Bonjour,
je n'arrive pas à faire arrêter la sélection sur chaque cellule non vide d'un colonne,( je récupère le N° de ligne pour un autre traitement), dans le cas ou j'ai plusieurs cellules contiguës:
ligne 1 AAA
ligne 3 333
ligne 4 ççç
ligne 5 RRR
ligne 800 YYY
la sélection s’arrête sur les ligne 800 , 5 ,3 et 1 mais pas sur la ligne 4, ce que je voudrais
Sub tata()
Dim i As Long
For i = 1000 To 1 Step -1
Range("A" & i).End(xlUp).Select
i = ActiveCell.Row
MsgBox i
'traitement autre'
Next i
End Sub
Avez vous une solution à mon problème?
J'ai essayé en incrémentant i=i+1, ca marche, mais avec 1000 ligne, c'est long
Merci
Thomas
je n'arrive pas à faire arrêter la sélection sur chaque cellule non vide d'un colonne,( je récupère le N° de ligne pour un autre traitement), dans le cas ou j'ai plusieurs cellules contiguës:
ligne 1 AAA
ligne 3 333
ligne 4 ççç
ligne 5 RRR
ligne 800 YYY
la sélection s’arrête sur les ligne 800 , 5 ,3 et 1 mais pas sur la ligne 4, ce que je voudrais
Sub tata()
Dim i As Long
For i = 1000 To 1 Step -1
Range("A" & i).End(xlUp).Select
i = ActiveCell.Row
MsgBox i
'traitement autre'
Next i
End Sub
Avez vous une solution à mon problème?
J'ai essayé en incrémentant i=i+1, ca marche, mais avec 1000 ligne, c'est long
Merci
Thomas