Fonction "and" qui ne fonctionne pas
Bonjour,
J'ai créé un UserFormqui permet d'insérer des information dans un tableau. Lorsque le UserForm, que l'on sélectionne "attribution machine", j'aurais aimé que lors d'un click sur "1 panier" ou "2 paniers", la macro trouve automatiquement la première ligne ayant aucun nom de client et le nombre de panier correspondant (1 ou 2). J'ai donc écris un code mais je n'arrive pas à vérifier les deux conditions en même temps. La macro trouve la dernière ligne ayant aucun client puis m'amène à la prochaine ligne ayant 2 paniers, même si un client est déjà attribué. C'est comme si la fonction AND ne marchait pas.
Private Sub OB_2paniers_Click()
If OB_2paniers = True Then
'TROUVER LA DERNIERE LIGNE "NOM CLIENT" NON VIDE ET LA DERNIERE LIGNE AVEC "NOMBRE PANIER" =2
Set nom_client = Range("E3")
Set nb_panier = Range("I3")
k = 3
While (nom_client.Value <> "" And nb_panier.Value <> "2")
k = k + 1
Set nom_client = Range("E" & k)
Set nb_panier = Range("I" & k)
Wend
Set num_serie = Range("A" & k)
'SORTIR LA DERNIERE LIGNE VALABLE
Me.Lb_num_serie.Caption = num_serie.Value
End If
Y aurait-il une solution? J'espère avoir été assez clair...
Merci d'avance!
Bonjour
Difficile de travailler sur un fichier protégé...
Bye !
Merci pour le fichier. Je pense que je me suis mal exprimé.
J'aimerais que :
- si je sélectionne "1 panier" dans ma UserForm, la macro trouve la première ligne vide dans la colonne "nom du client" (colonne E) avec un nombre de panier =1 dans la colonne I. Dans mon tableau exemple, cela correspondrait à la ligne n°16.
- si je sélectionne "2 paniers" dans ma UserForm, la macro trouve la première ligne vide dans la colonne "nom du client" (colonne E) avec un nombre de panier =2 dans la colonne I. Dans mon tableau exemple, cela correspondrait à la ligne n°23.
J'espère que je me suis un peu mieux exprimé...
Merci pour l'aide !
(PS: j'ai enlevé la protection du fichier)
bonjour,
sans regarder ton fichier, pour moi ton AND devrait être un OR.
soit
do UNTIL client="" AND panier="2"soit
do WHILE client <>"" OR panier<>"2"Super merci beaucoup, les deux solutions marchent très bien! :)