XL 2016 Création de boutons en boucle

jul64600 · 21 Février 2023

Bonjour
1. Merci pour l'aide que vous m'apporterez car ce fichier est décisif pour moi au niveau pro...

j'ai un fichier avec un grand nombre de ligne.
Je souhaiterai créer un bouton avec une macro que écrirait "1" dans la cellule choisi dans la ligne.
enfin je souhaiterais multiplier ce bouton autant de fois que j'ai de ligne.

Plus concrètement :
En colonne A = N° de commande.
En colonne B = prêt à expédier ?

Pour la ligne 1 si je clique sur le bouton_1, la macro écrit "1" en B1
Pour la ligne 2 si je clique sur le bouton_2, la macro écrit "1" en B2

ainsi de suite….

Comment créer autant de bouton que j'ai de ligne ?
Comment affecter une macro qui mettra le "1" dans la colonne B de la ligne correspondante ?

sylvanu · 21 Février 2023

Bonjour Jul, et bienvenu sur XLD,
Je pense que la duplication de boutons n'est pas une bonne chose.
Il est peut être plus simple d'agir quand on clic sur une cellule.E n PJ quand on clique dans une cellule de la colonne B on met un 1 si A est non vide.
A mettre dans la feuille concernée :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B:B]) Is Nothing Then
        If Cells(Target.Row, "A") <> "" Then Target = 1
    End If
Fin:
End Sub

XL 2016 Création de boutons en boucle

jul64600

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires