XL 2016 Création de boutons en boucle

jul64600

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Classeur5.xlsm
    13.5 KB · Affichages: 7

Statistiques des forums

Discussions
312 202
Messages
2 086 180
Membres
103 152
dernier inscrit
Karibu