Automatisation case à cochée
Bonjour à tous, j'aimerais mettre dans chaque lignes d'une colonne une case à cochée. Comment faire en VBA pour qu'elles soient toutes alignées?
Merci par avance pour vos réponses.
Bonjour
Je ne suis pas assez calé pour programmer cela, si c'est faisable, d'autres s'en chargeront.
J'ai donc bidoullé avec 2 Codes, voir dans le fichier
Si la méthode n'est pas très rationnelle, le résultat semble bon.
c'est surement une piste à exploiter
Cordialement
Bonjour
En combinant les 2 Private Sub précédentes
A la fin, il faut revalider A2
Cordialement
Bonjour Amadèus et bonjour à tous et toutes,
Je suis débutant en prog. Je me permet alor de poser quelques questions. Ou sont les lignes de codes qui ton permis de mettre une case à cocher dans chaque ligne de la colonne B?
cordialement,
Bonjour
C'est la 2ème partie du Code de Feuille qui commence à:
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Dim s As Shape
On Error Resume Next
For Each s In Me.Shapes
s.ControlFormat.LinkedCell = s.TopLeftCell.Offset(1, 1).Address
Next
End If
End SubCordialement
Quand je compile, il me dit qu'il y a un problème sur le "Me"
Re,
Tu ne dois pas "compiler", c'est automatique.
Tu devrais un peur rectifier les formules qui sont dans la colonne B
=DECALER(Choix2;1+LIGNES($1:2)-1;EQUIV($A$2;Choix1;0)-1;1)Pour que ce soit juste faut enlever le 1+
=DECALER(Choix2;LIGNES($1:2)-1;EQUIV($A$2;Choix1;0)-1;1)A+