Je n'arrive pas à la boucler...

[peper-eliot]

Bonsoir à tous… ou plutôt bonjour…lol

Je fais appel à vous, histoire de pouvoir aller me reposer un peu…
Il s'agit d'une petite histoire de boucle qui me fait tourner en bourrique, avec des message du style :
If sans End If, Next sans For, End With sans With
Et pourtant, je suis sûr que c'est bête comme choux...

Alors voilà
​

Soit une "feuil1" avec 2 colonnes
la A, numérotée de 1 à 10
la B, avec ou non une donnée
Soit un userform avec une combobox
La question est : comment alimenter cette combo avec les éléments de la colonne A Si et Seulement Si il n'y a aucun élément dans la colonne B

Voilà ou j'en suis...

Private Sub UserForm_Initialize()
Dim WS As Worksheet 'Variable pour un Objet Worksheet
Dim L As Integer 'Variable pour le numéro de derniere ligne
Dim i As Integer 'Variable pour incrémenter les données

Set WS = ThisWorkbook.Sheets("Feuil1") 'la feuille de travail
L = WS.Range("A65536").End(xlUp).Row 'la dernière ligne en partant du bas
Application.ScreenUpdating = False

For i = 2 To L 'Boucle départ
If ("B" & i) = "" Then 'si il n'y à rien dans la colonne B alors j'alimente
With Me.ComboBox1 'la ComboBox1
.AddItem WS.Range("A" & i) 'avec la valeur de la colonne A
Next i 'je continue'
End With

Application.ScreenUpdating = True
End Sub


Merci encore pour votre aide
Et merci à PostVL, c'est vraiment sympa et pratique

@+ peper-eliot

 

[Pascal76]

Bonjour

Essaies comme ceci

For i = 2 To L 'Boucle départ
If WS.Range("B" & i) = "" Then 'si il n'y à rien dans la colonne B alors j'alimente
With Me.ComboBox1 'la ComboBox1
.AddItem WS.Range("A" & i) 'avec la valeur de la colonne A
End With
End If
Next i 'je continue'

Pascal

 

[peper-eliot]

Je viens de découvrir ta réponse, pascal.
Après une journée passée à promener mes charmants bambins, c'est mon petit cadeau du jour... lol

Merci, merci et encore merci...

C'était vraiment bête comme choux, mais quand on apprend à marcher, les gadins, c'est naturel...

Bonne soirée à tous, et particulièrement à toi , pascal.
Et peut être à un de ces quatre sur le Chat. c'est pas l'envie qui me manque d'y aller, mais faut être raisonnable...

@+ peper-eliot