A voir également:
- Repeter condition jusqu'à 1 cellule doné vb
- Excel cellule couleur si condition texte - Guide
- Vb - Télécharger - Langages
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
- Vb cable - Télécharger - Audio & Musique
13 réponses
CU est le nom d'une feuille ? si oui, il faut mettre les double-côtes
Sheets("CU")
Ou alors le numéro de la feuille
Sheets(1)
Range(Sheets(Cu).Cells(3, I)).Value n'est pas la bonne syntaxe.
Il faut écrire : Sheets("Cu").Cells(3, I).Value
I = I + 1 doit rester dans la boucle While ... je ne crois pas avoir dit qu'il fallait le déplacer. Prend la peine de bien lire les recommandations que l'on te donne et d'essayer de comprendre ce que tu fais.
;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
Sheets("CU")
Ou alors le numéro de la feuille
Sheets(1)
Range(Sheets(Cu).Cells(3, I)).Value n'est pas la bonne syntaxe.
Il faut écrire : Sheets("Cu").Cells(3, I).Value
I = I + 1 doit rester dans la boucle While ... je ne crois pas avoir dit qu'il fallait le déplacer. Prend la peine de bien lire les recommandations que l'on te donne et d'essayer de comprendre ce que tu fais.
;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
En tout cas pour moi, tu n'est pas très compréhensible...Déjà tu parle de répéter une action donc j'aurais aimé voir un while ou un for mais comme je n'ai pas tout compris...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
j'ai essayé d'écrire un truc mais sans conviction....
Quand les cellules de la ligne 2 sont numériques alors les écrire dans la listbox.
Boucle à partir de la troisième colonne.
Private Sub ComboBox1_Change()
Do While Cu!.Cells(3, I) <> ""
If IsNumeric(Cu.Cells(3, I).Value) Then
ListBox1.Value = Range("Cu!Cells(3, i)").Value
End If
I = 2
I = I + 1
Loop
End Sub
Merci de votre aide
j'ai essayé d'écrire un truc mais sans conviction....
Quand les cellules de la ligne 2 sont numériques alors les écrire dans la listbox.
Boucle à partir de la troisième colonne.
Private Sub ComboBox1_Change()
Do While Cu!.Cells(3, I) <> ""
If IsNumeric(Cu.Cells(3, I).Value) Then
ListBox1.Value = Range("Cu!Cells(3, i)").Value
End If
I = 2
I = I + 1
Loop
End Sub
Merci de votre aide
Merci pour l'info,
mais ca ne marche toujours pas, ca met en jaune la ligne
Do While Cu!.Cells(3, I) <> ""
mais ca ne marche toujours pas, ca met en jaune la ligne
Do While Cu!.Cells(3, I) <> ""
Merci de votre aide.
Voilà ce que j'ai écrit mais ca ne marche toujours pas!!!
Private Sub ComboBox1_Change()
I = 2
I = I + 1
Do While Sheets(Cu).Cells(3, I) <> ""
If IsNumeric(Sheets(Cu).Cells(3, I).Value) Then
ListBox1.Value = Range(Sheets(Cu).Cells(3, I)).Value
End If
Loop
End Sub
D'avance merci
Voilà ce que j'ai écrit mais ca ne marche toujours pas!!!
Private Sub ComboBox1_Change()
I = 2
I = I + 1
Do While Sheets(Cu).Cells(3, I) <> ""
If IsNumeric(Sheets(Cu).Cells(3, I).Value) Then
ListBox1.Value = Range(Sheets(Cu).Cells(3, I)).Value
End If
Loop
End Sub
D'avance merci
J'ai éécrit d'aprés vos conseils, il n'y plus de message d'erreur (c'est déjà mieux) mais il ne se passe rien dans ma lisbox
Private Sub ComboBox1_Change()
I = 3
Do While Worksheets("Cu").Cells(I, 2) <> ""
If IsNumeric(Worksheets("Cu").Cells(I, 2).Value) Then
ListBox1.Value = Cells(I, 2).Value
End If
I = I + 1
Loop
End Sub
Merci beaucoup
Private Sub ComboBox1_Change()
I = 3
Do While Worksheets("Cu").Cells(I, 2) <> ""
If IsNumeric(Worksheets("Cu").Cells(I, 2).Value) Then
ListBox1.Value = Cells(I, 2).Value
End If
I = I + 1
Loop
End Sub
Merci beaucoup
Pour la boucle sur colonne je viens de rechanger (j'avais juste essayé un truc)
J'ai mis ce que tu m'a dit mais ca me surligne la ligne rajouté en jaune
Private Sub CommandButton1_Click()
I = 2
Do While Worksheets("Cu").Cells(2, I) <> ""
If Not IsEmpty(Worksheets("Cu").Cells(2, I).Value) Then
ListBox1.AddItem = Worksheets("Cu").Cells(2, I).Value
End If
I = I + 1
Loop
End Sub
J'ai mis ce que tu m'a dit mais ca me surligne la ligne rajouté en jaune
Private Sub CommandButton1_Click()
I = 2
Do While Worksheets("Cu").Cells(2, I) <> ""
If Not IsEmpty(Worksheets("Cu").Cells(2, I).Value) Then
ListBox1.AddItem = Worksheets("Cu").Cells(2, I).Value
End If
I = I + 1
Loop
End Sub
Je ne sais pas.
Il y a beaucoup d'incohérence dans ce que tu donnes, ça devient difficile à suivre.
Tu étais dans l'évènement Change() du ComboBox1 et maintenant dans le Click() de CommandButton1 !!!
Tu passes d'un boucle sur les colonnes à une boucle sur les lignes ...
ListBox1 est placé où ? sur un userform ? une feuille ?
J'ai testé ici sur un Userform et la syntaxe que je t'ai donné fonctionne.
As-tu un message d'erreur ?
Il y a beaucoup d'incohérence dans ce que tu donnes, ça devient difficile à suivre.
Tu étais dans l'évènement Change() du ComboBox1 et maintenant dans le Click() de CommandButton1 !!!
Tu passes d'un boucle sur les colonnes à une boucle sur les lignes ...
ListBox1 est placé où ? sur un userform ? une feuille ?
J'ai testé ici sur un Userform et la syntaxe que je t'ai donné fonctionne.
As-tu un message d'erreur ?
