Discussion :

[Dapangma]

Bonjour,


Je parcours une ligne, cellule par cellule, dans une boucle, en les sélectionnant pour faire avancer la boucle. Si elle a des infos je fais des traitements, si elle est vide je voudrais ne rien faire.

Code :

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

1
2
val2 = IIf(ActiveCell.Offset(0, 1).Select = "", Null, _
    CLng(ActiveCell.Value * 100) / 10000)

Le problème c'est que la sélection fait foirer le test, apparemment quand k'entre dans la cellule elle n'est plus considérée comme vide ( = ""). Je dois mettre quoi à la place des "" ?

Merci d'avance.

[ouskel'n'or]

Fais précéder ta ligne de
If not isempty(ActiveCell.Offset(0, 1)) then
'ta ligne

[Dapangma]

Merci mais... marche pas ! (ou à moitié).

Si la cellule est vide, je n'entre pas, puis je reboucle. Je suis resté sur ma cellule précédente, donc je boucle fou. Il faut que je sélectionne la cellule pour avancer à chaque itération, vide ou pas vide.

Par contre je peux faire (dans ma boucle) :

Code :

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

1
2
3
4
5
6
7
 
If isempty(ActiveCell.Offset(0, 1)) then
val = Null
ActiveCell.Offset(0, 1).Select
else
ma ligne
end if

Mais c'est un peu tiré par les cheveux.
S'il y a une solution plus propre je suis preneur.

[ouskel'n'or]

Montre ta boucle

[Papou93]

Bonjour dapangma, le forum,

Je pense que tu utilise un boucle 'For....Next'.
As-tu essayé avec une boucle 'For Each....In....Next' ?

Un exemple :

Code :

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

1
2
3
For Each cel In Range("A1:L1").Cells
    If IsEmpty(cel) Then cel.Value = cel.Address
Next

La boucle balaie la plage A1...L1. Si la cellule analysée est vide, elle y inscrit son adresse (ça marche, j'ai testé)

A toi donc d'adapter à ton sujet.

Espérant avoir répondu.

Cordialement.

[beekeep]

salut à tous,

Bonjour dapangma, le forum,

Je pense que tu utilise un boucle 'For....Next'.
As-tu essayé avec une boucle 'For Each....In....Next' ?

Un exemple :

For Each cel In Range("A1:L1").Cells
If IsEmpty(cel) Then cel.Value = cel.Address
Next

La boucle balaie la plage A1...L1. Si la cellule analysée est vide, elle y inscrit son adresse (ça marche, j'ai testé)

A toi donc d'adapter à ton sujet.

Espérant avoir répondu.

Cordialement.

c'est d'autant plus une bonne solution car elle n'utilise pas les "select" et "active".

[Papou93]

Un autre avantage intéressant est que l'on peut balayer des zones de cellules non contigües, comme :

Code :

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

1
2
3
For Each cel In Range("A1:L1, C3:E3").Cells
  If IsEmpty(cel) Then cel.Value = cel.Address
Next

Cordialement

[Gorfael]

Salut Dapangma et le forum

Si la cellule est vide, je n'entre pas, puis je reboucle. Je suis resté sur ma cellule précédente, donc je boucle fou. Il faut que je sélectionne la cellule pour avancer à chaque itération, vide ou pas vide.

Tu travailles sur ActiveCell avec des select.
Montre ta macro qu'on t'aide à éliminer ceux-ci.
Pour éliminer ton problème, il faudra avoir une idée du but à atteindre.

val2 = IIf(ActiveCell.Offset(0, 1).Select = "", Null, CLng(ActiveCell.Value * 100) / 10000)

??? Que vient faire ton sélect ? Évites de mélanger les instructions pour qu'Excel ne s'emmêle pas les pinceaux.

Merci mais... marche pas ! (ou à moitié).

Normal, il a pas de jambes (ou à moiié).

Plus tu es moins précis, moins on peut plus t'aider!
Si je réponds "chez moi ça marche, avec juste une petite modif" ça t'aidera sûrement ?

Pas de code, pas de but à atteindre, des commentaires imprécis... reste la magie, je pense.
A+