Re : Checkboxes sur des feuilles "neuves" pour faire copie d'une ligne précise
Skoobi, Forum🙂
Merci de bien vouloir m'aider, quelques autres explications.
C'est plus clair je crois en Feuil1 et 3.
J'ai déjà mis ça dans le Module1 pour la Feuille Copie (et les 2 autres)
'Je crée mes 3 Feuilles
Sheets("Feuil1").Copy Before:=Sheets(1)
ActiveSheet.Name = ("Copie")
Sheets.Add Before:=Sheets("Copie")
ActiveSheet.Name = ("Autres")
Sheets.Add Before:=Sheets("Autres")
ActiveSheet.Name = ("Plus Récents")
Ca a l'air de coller
Je créé bien mes Checkbox comme ceci dans les Feuilles (Autres et Plus Récents)
With Sheets("Plus Récents")
fin1 = Sheets("Plus Récents").Range("A65536").End(xlUp).Row
liste = Sheets("Plus Récents").Range("j2:z" & fin1)
For m = LBound(liste, 1) To UBound(liste, 1)
Set But = .CheckBoxes.Add(.Range("k" & m + 1).Left, .Range("k" & m + 1).Top, 100, -1)
But.Caption = "Ligne" & liste(m, 1)
Next m
End With
Le gros problème c'est que à chaque Checkbox en colonne "K", (numéro et quantité aléatoire) il faudrait associer une macro "automatique" qui fasse ce que tu m'a fournit avec la méthode du Doubleclick en fonction du n° de ligne de la colonne J. (Copier, "écraser" en Feuil1)
Si on décoche, on retrouve les données par l'intermédiaire de la "Copie"
Un peu tordu mon truc mais c'est comme ca que j'apprends. 😀
En espérant que tout le monde s'y retrouve.🙄
Merci d'avance. 🙂Vive XLD