Sélectionner une cellule en fonction du nom du button

[Fermé]
Signaler
-
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
-
Bonjour,
Je me tourne vers vous les experts.
J’ai un userform avec des CommandButton, tous ces boutons ont un nom correspondant à une liste de produit dans ma colonne A.
Je désire sélectionner dans ma colonne A le produit correspondant au nom du button pour le coller dans une autre cellule de ma feuille.
Merci pour votre aide.

1 réponse

Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
154
Bonsoir VDB, bonsoir le forum,

Ça manque un peu de précision mais tu adapteras le code ci-dessous :

Private Sub CommandButton1_Click() 'au clic dans le CommandButton1
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim R As Range 'déclare la variable R (Recherche)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set OS = Sheets("Feuil1") 'définit l'onglet source OS (à adapter à ton cas)
Set OD = Sheets("Feuil2") 'définit l'onglet destination OD (à adapter à ton cas)
'définit la recherche R (recherche le texte exact du CommandButton1 dans la colonne 1 (=A) de l'onglet source OS)
Set R = OS.Columns(1).Find(Me.CommandButton1.Caption, , xlValues, xlWhole)
If Not R Is Nothing Then 'condition : si au moins une occurrence est trouvée
    Set DEST = OD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST (à adapter à ton cas)
    R.Copy DEST 'copie la première occurrence trouvée dans DEST
End If 'fin de la condition
End Sub

Bonjour ThauTherm,

Merci d'aider le petit vieux que je suis, qui essaie de s'initier a VBA pour son association..

C'est vrai que je manque de précision.
Mon onglet source se nomme "caisse"
Mon onglet destination "mouvement"

lorsque le produit inscrit sur mon button se trouve dans la première colonne de mon onglet "caisse" il doit copier les cellules A,B,CetD correspondantes et les coller en "A2" dans mon onglet "mouvement caisse"
J'ai beau modifier les cellules de destinations, rien y fait.
Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
154
Bonjour VDB,

Sans le fichier qui va bien, difficile de comprendre. Regarde du coté de www.cjoint.com (ou autre) pour mettre un fichier en pièce jointe...
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 642 >
Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021

Salut tout le monde,

Juste de passage...

Pour joindre un fichier sur les forums de ccm il faut :
> se rendre sur le site : https://www.cjoint.com/
> cliquer sur "Parcourir"
> rechercher le fichier
> cliquer sur "Ouvrir"
> cliquer sur "Créer le lien Cjoint"
> copier le lien
> revenir ici le coller dans une réponse