A voir également:
- Sélectionner une cellule en fonction du nom du button
- Fonction si et - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Excel
- Colorer une cellule en fonction de la valeur d'une autre cellule - Forum Excel
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
1 réponse
Bonsoir VDB, bonsoir le forum,
Ça manque un peu de précision mais tu adapteras le code ci-dessous :
Ç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
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.
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...
Juste de passage...
> 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