Discussion :

[remy67]

Bonjour,

Une des fonctions classique que j'utilise est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop

J'ai donc mon tableau que je parcours mais problème la première ligne du tableau est un 0 dans le cas ou je suis et ma fonction préféré considère que la cellule avec mon 0 est vide.

Avez vous une solution à mon problème ??

Merci beaucoup

[jfontaine]

Bonjour,

Sur mon poste Isempty retourne Faux quand la cellule est à 0

Test avec 0 de saisie et avec formule retournant 0

[MarcelG]

Bonjour à toi, Bonjour le Forum,

Une astuce consisterait à compléter ta condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Not Isempty(Activecell) Or Acitivecell = 0

Mais plutôt que de balayer tes cellules une à une sans distinction, tu peux utiliser en amont la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SpecialCells

(voir l'aide en ligne)

[jfontaine]

Si tu veux te placer sur la prochaine ligne vide tu peux éviter la boucle par ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Columns(ActiveCell.Column).End(xlDown).Row + 1, ActiveCell.Column).Select

[MarcelG]

Si je peux me permettre, Jérôme, dans ce cas, j'utiliserais plus volontiers la métode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SpeciallCells

par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim c As Range
For Each c In Range("A1:A10").SpecialCells(xlCellTypeBlanks)

[remy67]

Il semble que le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Not Isempty(Activecell) or ActiveCell=0

ne fonctionne pas.

Mais ca ma donné l'idée de ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Not IsEmpty(ActiveCell) Or ActiveCell.Offset(0, 2).Value = Not Empty

Y'a vraiment des fois, je me demande comment je trouve pas des trucs aussi simple ....

J'ai pas encore regardé concernant SpecialCells, mais je vais regarder.

Merci

[SfJ5Rpw8]

....
Y'a vraiment des fois, je me demande comment je trouve pas des trucs aussi simple ....

pas si simple que cela je ne comprends pas ce que tu teste avec :

ActiveCell.Offset(0, 2).Value = Not Emptycela revient à dire :
ActiveCell.Offset(0, 2).Value = -1il y as quoi dans cette colonne ?