XL 2019 Help ! Copier valeur selon 2 arguments combobox !

Buzzz · 4 Février 2020

Bonjour à toutes et tous !
Je sèche sur de la programmation VBA... Certain de trouver ma solution avec vos compétences !
J'ai un Userform1 dans lequel se trouve :
1 combobox1 (liste de date)
1 textbox1 (pour saisir un nom)
1 combobox2 (numéro de place - 7 au total)
Je souhaite que le nom saisi dans la textbox1 soit copié dans la feuille 'Places' sur la ligne correspondant à la date de la combox1 (les dates sont en colonne A) et dans la colonne correspondant à la place saisie dans la combobox2 (Place 1 = Colonne B / Place 2 = Colonne C etc...)

merci pour votre aide précieuse !

Greg

xUpsilon · 4 Février 2020

Bonjour,

L'utilisation de find dans votre Userform n'est pas tout à fait adaptée :
Les valeurs que vous proposez dans les combobox ne sont pas exactement celles stockées sur la feuille.
Ainsi, il est impossible pour la macro de trouver la ligne et la colonne correspondantes, car les valeurs entrées dans les combobox ne correspondent pas exactement aux valeurs stockées en "en-têtes".

Du coup soit il faut créer un tableau de correspondance entre les valeurs de la combobox et celles du tableau, soit il faut modifier le tableau de la feuille Places.

Bonne continuation

laurent3372 · 4 Février 2020

Bonjour,

VB:

Private Sub CommandButton1_Click()
Dim li As Integer, col As Integer 'déclare les variables li et col (LIgne et COLonne)

With Sheets("Places") 'prend en compte l'onglet "Places"
    ' Détermination ligne et colonne de la case à remplir
    li = WorksheetFunction.Match(ComboBox1.Value, .Range("$A$2:$A$367").Value, False) + 1
    col = WorksheetFunction.Match(ComboBox2.Value, .Range("$k$2:$k$8").Value, False) + 1
    .Cells(li, col) = TextBox1.Value 'place le contenue de la TextBox11
End With 'fin de la prise en compte de l'onglet "BDD"
Unload Me
End Sub

Tu devrais donner des noms parlants à ton userform et à ses composants (feuille Propriétés - champ (name))

Buzzz · 4 Février 2020

Super Laurent ! tu assures
merci beaucoup !

laurent3372 · 4 Février 2020

N'oublie pas de marquer comme résolu

XL 2019 Help ! Copier valeur selon 2 arguments combobox !

Buzzz

XLDnaute Nouveau

Pièces jointes

xUpsilon

XLDnaute Accro

laurent3372

XLDnaute Impliqué

Buzzz

XLDnaute Nouveau

laurent3372

XLDnaute Impliqué

Discussions similaires