Posez votre question Signaler

Excel VBA Boucle de Recherche cellules vides [Résolu]

herod1983 192Messages postés 2 octobre 2008Date d'inscription 11 mai 2011Dernière intervention - Dernière réponse le 11 nov. 2008 à 08:15

Bonjour,
J'ai fais une boucle simple de recherche de cellules vide dans une colonne A et qui inscrit une valeur dans la première cellule vide trouvée.
For i = 1 To 10
If Cells(i, 1).Value = "" Then Exit For
Next i
Cells(i, 1).Value = Sheets("feuil1").TextBox1.value
End Sub
Cela fonctionne, maintenant voila mon problème:
- cette boucle va de la cellule 1 à 10 mais moi j'aimerai qu'elle ne fasse que les cellules 1, 3, 5, 9
J'ai voulu essayer avec la propriété select case mais ma syntaxe est fausse.
Merci d'avance pour votre aide si quelqu'un a une idée

Excel VBA Boucle de Recherche cellules vides »

Suggestions

Excel VBA Boucle de Recherche cellules vides
[Excel VBA] Boucle textbox vers cellules » Forum
VBA - Dernière ligne non vide [Toutes versions] » Fiches pratiques
VBA boucle, recherche cellule vide » Forum
VBA atteindre prochaine cellule vide Excel (Résolu) » Forum
[VBA] Détection cellule vide (Résolu) » Forum

Plus

Réponse

mnlad 29Messages postés 7 juin 2008Date d'inscription 13 août 2011Dernière intervention 8 nov. 2008 à 14:45

Je pense que c'est impossible avec la boucle for je peux te proposer de faire le test de cellule. C'est-à-dire fais un test a l'intérieur de la boucle for qui test le numéro ou la position de la cellule
Par exemple tu peut faire:
if cellule=3 or Cellule=5 or Cellule=9 then
'Tu mes le code que tu veut
end if

Ajouter un commentaire

Réponse

herod1983 192Messages postés 2 octobre 2008Date d'inscription 11 mai 2011Dernière intervention 8 nov. 2008 à 14:55

Salut

Merci déjà de me répondre

Je vois pas trop ou tu veux en venir, pourrais tu me faire un code pour voir ce que sa donne
merci

Ajouter un commentaire

Réponse

lermite222 7381Messages postés 8 avril 2007Date d'inscription 29 mai 2012Dernière intervention 8 nov. 2008 à 14:56

Bonjour,
si c'est comme tu explique...
For i = 1 To 10 step 2
A+

Ajouter un commentaire

Réponse

pilas31 1080Messages postés 5 septembre 2008Date d'inscription 31 mai 2012Dernière intervention 8 nov. 2008 à 18:36

Bonjour,

Si tes indices de colonnes sont quelconques, tu peux aussi créer une collection et boucler dessus comme dans l'exemple ci dessous :

Dim Num_Colonne As New Collection

Num_Colonne.Add (1)
Num_Colonne.Add (3)
Num_Colonne.Add (5)
Num_Colonne.Add (9)

For Each i In Num_Colonne

....


Next i

Cdlt

Ajouter un commentaire

Réponse

lermite222 7381Messages postés 8 avril 2007Date d'inscription 29 mai 2012Dernière intervention 8 nov. 2008 à 18:50

Oups, j'avais pas vu que tu voulais pas du 7 :-D
peu aussi faire..
For i = 1 To 10 step 2
If i<>7 then
....
end if
Next i

Ajouter un commentaire

Réponse

herod1983 192Messages postés 2 octobre 2008Date d'inscription 11 mai 2011Dernière intervention 9 nov. 2008 à 23:34

Merci pour vos réponse j'ai trouvé aussi un truc pas mal et assez facile

toto = array(1,3,5,9)

for i = 0 to ubound(toto)

If Cells(toto(i), 1).Value = "" Then exit for

next i

Cells(toto(i), 1).Value = Sheets("feuil1").TextBox1.value

Bonne continuation
a+

Ajouter un commentaire

lermite222- 10 nov. 2008 à 11:22

Bonjour,
Effectivement, c'est la meilleur solution et la plus polyvalente.
A+

mnlad- 11 nov. 2008 à 08:15

Bonjour
La solution que tu as eu est la meilleure et c'est celle que j'ai aussi trouvé et que je voulais t'envoyer. Elle est impécable, facile et réalisable.

A+

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

Excel VBA Boucle de Recherche cellules vides [Résolu]

Excel VBA Boucle de Recherche cellules vides »

Passage au tout numérique : quel coût pour les particuliers ?