arret sur cellule non vide

[tomacho]

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

 

[vgendron]

Re : arret sur cellule non vide

Salut,
c'est normal que tu ne voies pas les lignes vides puisque tu demandes à ta macro de les passer..xlup
Range("A" & i).End(xlUp).Select

 

[tomacho]

Re : arret sur cellule non vide

salut,

mais je veux que ça s’arrête sur les cellule NON vide, or sur la ligne 4, ça ne s’arrête pas

 

[Efgé]

Re : arret sur cellule non vide

Bonjour tomacho, vgendron, Une proposition en utilisant

.SpecialCells(xlCellTypeConstants)

Le code est dans le code de la feuille. Cordialement

 

[tomacho]

Re : arret sur cellule non vide

Merci Vgendron et Efgé

je ne connaissais pas cette fonction, très intéressante, mais je n'arrive pas à l'appliquer car je voudrais effacer suivant une condition, une cellule sur la même ligne, et le fait de saisir toute les cellules non vide à la fois ne me le permet pas

Voir explication dans fichier joint, car mon explication n'est pas très claire!

Salutations

 

[Efgé]

Re : arret sur cellule non vide

Re, Une proposition, avec des Selects pour visualiser les cellules prisent en compte (tu pourras les remplacer par ClearContents ) Cordialement

 

[tomacho]

Re : arret sur cellule non vide

Un grand merci Efgé!

et ça tient en 2 lignes, c'est exactement ce qu'il me fallait

slts