VBE

Sigles de 2 caractères

► Sigles de 3 caractères

Sigles de 4 caractères

Sigles de 5 caractères

Sigles de 6 caractères

Sigles de 7 caractères

Sigles de 8 caractères

VBE peut faire référence à :

• Visual Basic Editor, dans les logiciels de la suite bureautique Microsoft Office
  • VBE ou VB-E, (en)Visual Basic for Excel, contraction de VBA pour Excel (tableur Microsoft)
• la tension base-émetteur d'un transistor bipolaire
• VESA BIOS Extensions, un standard informatique pour les BIOS de cartes graphiques
• Virtual Building Explorer

Dim DiSora As Worksheet

Dim DiSoraDevise As Worksheet

Dim DiSoraGlobal As Worksheet

'Définir les feuilles à copier et de destination

Set DiSora = ThisWorkbook.Worksheets("Fichier DI SORA")

Set DiSoraDevise = ThisWorkbook.Worksheets("Fichier DI SORA - DEVISE")

Set DiSoraGlobal = ThisWorkbook.Worksheets("Fichier DI SORA GLOBAL")

' Copier les données de DiSora vers DiSoraGlobal

Dim LastRowGlobal As Long

Dim LastRowDiSora As Long

' Trouver la dernière ligne avec des données dans DiSora

LastRowDiSora = DiSora.Cells(DiSora.Rows.Count, "A").End(xlUp).Row

' Copier les données de DiSora (colonnes A à E)

DiSora.Range("A1:E" & LastRowDiSora).Copy

DiSoraGlobal.Range("A1").PasteSpecial Paste:=xlPasteValues

' Trouver la dernière ligne avec des données dans DiSoraGlobal après la copie

LastRowGlobal = DiSoraGlobal.Cells(DiSoraGlobal.Rows.Count, "A").End(xlUp).Row

' Copier les données de DiSoraDevise vers DiSoraGlobal

Dim LastRowDiSoraDevise As Long

' Trouver la dernière ligne avec des données dans DiSoraDevise

LastRowDiSoraDevise = DiSoraDevise.Cells(DiSoraDevise.Rows.Count, "A").End(xlUp).Row

' Copier les données de DiSoraDevise (colonnes A à E) à partir de la ligne 2

DiSoraDevise.Range("A2:E" & LastRowDiSoraDevise).Copy

DiSoraGlobal.Range("A" & LastRowGlobal + 1).PasteSpecial Paste:=xlPasteValues

' Optionnel : nettoyer le presse-papier

Application.CutCopyMode = False

' Message de confirmation

MsgBox "Les données ont été copiées avec succès dans 'Fichier DI SORA GLOBAL'."

' Optionnel : Ajuster la largeur des colonnes pour mieux voir les données

DiSoraGlobal.Columns("A:E").AutoFit