Discussion :

[gipn14]

Bonjour à tous développeurs,

j'ai un petit problème sur vba pour effectuer la tâche que je souhaite, je sollicite alors votre aide pour m'aider .

informations :
il y a trois colonnes :
colonne 1 : correspond aux codes barres
colonne 2 : correspond aux n° d'adhérent
colonne 3 : correspond à la date de retour du produit.

alors voici le problème :
sur un userform il y a :
- une combobox1 qui sélectionne les codes barres sur un autre feuille (boucle)
- une combobox 2 qui sélectionne le N° d'adhérent sur une autre feuille aussi (boucle)

mon problème et lorsque je sélectionne le code barre de la combobox1, et dans la combobox2 je sélectionne le n° adhérent,
je souhaite que cela recherche dans la colonne 1 le code barre que j'ai sélectionné de la combobox1 et que la combobox2 recherche le numéro d'adhérent.
en gros, un adhérent à emprunté un produit et donc j'ai réussi à l'inscrire dans deux colonnes maintenant il veut le rendre. donc je souhaite que ma commande recherche le code barre du produit correspondant et le numéro de l'adhérent (car plusieurs produits ont le même code barre, et plusieurs personnes peuvent emprunter ce produit donc il faut faire une association) et que lorsque je fais valider, cela affiche sur la ligne correspondant au code barre + n° adhérent la date de retour.

exemple :

colonne 1 colonne 2 colonne 3
543243 6543654
876878 7654323
876878 7654325
567543 0987654

voila : dans ma combobox 1 : je sélectionne la le code barre : 876878
dans la combobox2 : je sélectionne le code barre : 7654323

donc il m'associe alors la ligne 2 car il ya le code barre + le numéro adhérent correspondant à mes deux combobox, et non ma ligne 3 qui contient mon code barre mais pas le bon numéro adhérent.
et quand je fais valider : ca ajoute en colonne 3 ligne 2 : la date du jour.

j'ai essayer de faire 2 boucles puis un activecell.offset (0,3)
mais je n'y arrive pas dutout.

auriez vous la solution ?

merci à vous pour votre retour.

[Daniel.C]

Bonjour,

Essaie en adaptant :

Code :

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

1
2
3
4
5
6
7
8
9
    Dim C As Range
    With Sheets("Feuil1")    ' à modifier
        For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
            If C.Value = Me.combobox1.Value And C.Offset(, 1).Value = Me.combobox2.Value Then
                C.Offset(, 2).Value = Date
                Exit For
            End If
        Next C
    End With

[gipn14]

bonjour Daniel.c, merci pour ta réponse,
j'ai modifié le nom de la feuille
et j'ai inséré ton code dans mon bouton validé mais rien ne se passe.
faudrait t-il pas aussi rajouter la recherche dans la colonne 2 car je vois qu'il ny a qu'une recherche pour range A2 mais rien pour la colonne 2 ?

j'ai reussi a adapter c'est bon ce que je voulais pour ajouter la date, mais maintenant avec cette meme formule, j'ai essayé d'ajouter + 1 dans une case par rapport à la valeur que j'avais avant par exemple = j'ai 2 et avec le code j'ai 3

mais pour une autre utilisation du code, je voudrais qu'il inscrive la valeur de la textbox1 dans la case d'à coté mais je n'y arrive pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim C As Range
    With Sheets("cotisation_annuel")
        For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
            If C.Value = Me.combobox1.Value Then
               C.Offset(0, 1).Value = textbox1
                Exit For
            End If
        Next C
    End With
End Sub

avez vous la réponse ?

[Daniel.C]

j'ai reussi a adapter c'est bon ce que je voulais pour ajouter la date, mais maintenant avec cette meme formule, j'ai essayé d'ajouter + 1 dans une case par rapport à la valeur que j'avais avant par exemple = j'ai 2 et avec le code j'ai 3

Elle est où cette case ? Par exemple, si c'est A1 :

Code :

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

Range("A1").Value = Range("A1").Value + 1

mais pour une autre utilisation du code, je voudrais qu'il inscrive la valeur de la textbox1 dans la case d'à coté mais je n'y arrive pas :

Code :

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

C.Offset(0, 1).Value = Me.Textbox1.Text

[gipn14]

merci pour la partie du code 1 j'ai reussi,
pour l'ajouter d'une valeur de la text box j'ai ajouté ton code mais rien ne se passe.
pour info : ya un bouton qui permet de generer les valeurs dans le combobox1
et en dessous ya une textbox pour ajouter une valeur qui devra etre à coté de celle du n° de la combobox choisi, j'ai mit le code e entier pour info, mais je ne vois pas ou est l'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
num_ligne = 2
 
Do While Worksheets("cotisation_annuel").Cells(num_ligne, 1) <> ""
    combobox1.AddItem Worksheets("cotisation_annuel").Cells(num_ligne, 1)
    num_ligne = num_ligne + 1
 
    Loop
End Sub
 
Private Sub valider_cotisation_Click()
 
    Dim C As Range
    With Sheets("cotisation_annuel")
        For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
            If C.Value = Me.combobox1.Value Then
               C.Offset(0, 1).Value = Me.textbox1.Text
                Exit For
            End If
        Next C
    End With
End Sub

[Daniel.C]

S'il n'y a rien en colonne B, c'est soit que le textbox est vide ou, plus probablement que tu ne trouves pas égalité. Pour éviter les problèmes de casse, mets :

Code :

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

If UCase(C.Value) = UCase(Me.combobox1.Value) Then

ou mieux, puisqu'il s'agit de nombres :

Code :

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

If CInt(C.Value) = CInt(Me.combobox1.Value) Then

Enfin, plutôt qu'une boucle, tu peux utiliser la fonction "Match" pour rechercher la valeur du combobox en colonne A; en transformant cette dernière en numérique puisque le combobox fournit toujours une valeur texte.

[Invité]

Bonjour,
comment reseigne tu tes combobox?

Tu pourais affectere deux colonne a tes combo une dementionné a zéro de largeur contenant le numéro de la ligne row et la deuxième avec le code.

Anisi quand tu sélectionne un code tu retrouve la ligne directement sans recherche!