koukou40
XLDnaute Occasionnel
Bonjour à Tous,
J'ai récupéré un fichier Excel d'un collègue démissionnaire qui travaillé très souvent avec VBA. Or, ce n'est pas du tout mon cas et je voudrais comprendre une partie du code de ce fichier :
"Sub Presentation()
Dim i, j As Integer
i = 2
Do While Sheets("Données").Cells(i, 1).Value <> ""
i = i + 1
Loop
i = i - 1
For j = 2 To i
Sheets("Essai").Cells(j, 1).Value = Sheets("Données").Cells(j, 14).Value
Sheets("Essai").Cells(j, 2).Value = Sheets("Données").Cells(j, 1).Value
Sheets("Essai").Cells(j, 3).Value = Sheets("Données").Cells(j, 63).Value
Sheets("Essai").Cells(j, 4).Value = Sheets("Données").Cells(j, 12).Value
Sheets("Essai").Cells(j, 5).Value = Sheets("Données").Cells(j, 18).Value
Sheets("Essai").Cells(j, 6).Value = Sheets("Données").Cells(j, 36).Value
Sheets("Essai").Cells(j, 7).Value = Sheets("Données").Cells(j, 24).Value
Sheets("Essai").Cells(j, 8).Value = Sheets("Données").Cells(j, 34).Value"
Merci d'avance pour vos réponses !
Amicalement,
J'ai récupéré un fichier Excel d'un collègue démissionnaire qui travaillé très souvent avec VBA. Or, ce n'est pas du tout mon cas et je voudrais comprendre une partie du code de ce fichier :
"Sub Presentation()
Dim i, j As Integer
i = 2
Do While Sheets("Données").Cells(i, 1).Value <> ""
i = i + 1
Loop
i = i - 1
For j = 2 To i
Sheets("Essai").Cells(j, 1).Value = Sheets("Données").Cells(j, 14).Value
Sheets("Essai").Cells(j, 2).Value = Sheets("Données").Cells(j, 1).Value
Sheets("Essai").Cells(j, 3).Value = Sheets("Données").Cells(j, 63).Value
Sheets("Essai").Cells(j, 4).Value = Sheets("Données").Cells(j, 12).Value
Sheets("Essai").Cells(j, 5).Value = Sheets("Données").Cells(j, 18).Value
Sheets("Essai").Cells(j, 6).Value = Sheets("Données").Cells(j, 36).Value
Sheets("Essai").Cells(j, 7).Value = Sheets("Données").Cells(j, 24).Value
Sheets("Essai").Cells(j, 8).Value = Sheets("Données").Cells(j, 34).Value"
Merci d'avance pour vos réponses !
Amicalement,