Commentaire de lignes

[fifi87]

bonjour,

je débute, je crois comprendre ce bloc mais pouvez-vous me dire comment ça fonctionne, en particulier les lignes orange...

' définir la feuille Source
Set ShtS = Sheets("Feuil2")
' Définir la feuille Destination
Set ShtD = Sheets("aaa")
' Trouver la dernière ligne de la feuille source
With ShtS
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
' Pour chaque ligne
For Lig = 5 To DerLig

merci bonne journée

 

[Guest]

Re : Commentaire de lignes

Bonjour fifi,

Tu as raison de poser des questions si tu ne comprends pas.

[COLOR=#ff8c00]DerLig = .Range("A" & Rows.Count).End(xlUp).Row[/COLOR]

DerLig est une variable
Rows.Count retourne (donne) le nombre de lignes de la feuille 65536 ou plus pour xl2007
Range("A" & Rows.count) retourne donc la cellule A65536 (ou plus si 2007)
End(xlUp) est l'équivalent vba de CTRL+flèche vers le haut

Donc Range("A65536").End(XlUp) donnera la dernière cellule non vide de la colonne en partant du bas de la colonne A et en remontant.
.Row retourne son numéro de ligne

au final DerLig contient le numéro de la dernière cellule non vide de la colonne A

For Lig = 5 To DerLig est égal à "Partir de la ligne 5 jusqu'à la ligne 'DerLig'

A+

 

[fifi87]

Re : Commentaire de lignes

et bien merci beaucoup pour ces infos très précises!😉
bonne journée!