Discussion :

[sash6]

Re-bonjour les pros,

J'essaie de faire une boucle qui me permette de remplir les cellules de la colonne A, tant que les cellules de la colonne B sont renseignées. Voici mon "code":

Code :

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

1
2
3
4
5
6
7
8
9
Sub boucle()
 
Dim Intcount As Integer
Do
Intcount = Intcount + 1
ActiveCell = Range("D9")
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
 
End Sub

Le problème c'est que cela renseigne seulement la première cellule de mon tableau, puis rien...comprends pas, ça fait que semaines que je travaille avec VBA...Quelqu'un a t-il une idée?

[flo_flo]

Tu ne peux pas supprimer les cellules vides ?

Sinon si tu as une colonne complète à côté (cellules non-vides), tu peux faire une boucle sur la hauteur totale de ton tableau avec l'instruction :

Code :

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

1
2
 
Range("C1").CurrentRegion.Rows.Count

qui te renvoie le nombre de ligne de ton tableau... si la colonne C n'a pas de celulle vide :p

[wilfried_42]

bonjour sash6

je pense avoir compris le but de la boucle

Code :

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

1
2
3
4
5
6
7
8
9
Sub boucle()
 
Dim Intcount As Long
Do
Intcount = Intcount + 1
cells(intcount ,1) = Range("D9")
Loop Until IsEmpty(cell(intcout,2))
 
End Sub

met en place en colonne A la valeur de D9 tant qu'il y à une valeur en colonne B
Attention : si tu as des formules en colonne B, Les cellules ne sont pas considérées comme vides

Amicalement

[sash6]

bonjour wilfied 42,

effectivement, c'est de cela qu'il s'agit! mais ça ne marche toujours pas, la boucle est bouclée sans avoir rempli les cellules.

[wilfried_42]

re:

j'ai laissé ton code comme il etait, mais la ligne commence à 1 dans ton code alors B1 doit pas etre vide

de plus il est à l'envers le code, tu traites Forcement la premiere cellule A et tu testes la cellule B de la meme ligne pour faire la suivant

personnellement je verrai plutot cela :

Code :

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

1
2
3
4
5
6
7
8
Sub boucle()
Dim Intcount As Long
intcount = 5 ' Initialisation de la premiere ligne a traiter
Do while cells(intcount,2).value>""
cells(intcount ,1) = Range("D9")
Intcount = Intcount + 1
Loop 
End Sub

@ te lire

[sash6]

a y est wil! En fait les cellules de la colonne B contenaient du menu déroulant, il fallait utiliser isempty

Code :

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

1
2
3
4
5
6
7
8
9
Sub boucle()
 
Dim Intcount As Long
Do
Intcount = Intcount + 1
cells(intcount ,1) = Range("D9")
Loop Until IsEmpty(cell(intcout,2))
 
End Sub

Petite question bête: si je veux que la boucle commence à partir de la ligne 16, je fais comment?

[tonton fred]

Je ne suis pas sur que IsEmpty soit bien adapte pour les cellules, une cellule vide contient une chaine vide, pas un objet non initialise.

Utilise plutot un test du type

Code :

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

1
2
3
While cells(i,j).value <> ""
'ou 
Until Cells(i,j).value = ""

[sash6]

Oohhh! le deuxième code marche encore mieux! t'as bien vu! merci et encore merci!