Repetition de saisie macro

Bonsoir tout le monde,

Une autre proposition :
Pour une multitude de cellules utiliser une seule checkbox (donc un code unique) et la déplacer sur la cellule sélectionnée.

Ou bien plus simplement ne pas utiliser de checkbox et changer la couleur sur un clic-droit...

Exemple.xls

eric

Bonjour,
Pouvez-vous mettre une copie du code concerné?

Merci de t'être arrété sur ma question Pingou, je te poste ça demain...

Salutations.

Bonjour Pingou,
Désolé pour ma réponse succincte d'hier mais je n'étais pas près de mon poste.
Rien ne vaut une bonne illustration alors voici un lien vers un fichier exemple créé pour l'occasion. Non le changement de couleur n'est pas lié au contenu de la cellule mais doit être déclenché uniquement lorsque l'on coche la case correspondante, l'objectif et purement visuel, c'est tout.
il yaurait d'autres actions liées à la coche de la case comme un renvoie des données colonne D vers un autre tableau.
Mon problème est donc que je dois paramètrer chaque checbox par rapport à sa cellule et que dans mon fichier réel j'ai une quantité astronomique de checbox.
Je suis novice en macro et, peut-être n'ai-je pas choisi la meilleur methode....
merci

https://www.cjoint.com/?0kClVKgr5Fv

Bonjour,
Une solution via VBA : http://www.cijoint.fr/cjlink.php?file=cj201010/cijyuEJzoZ.xls

Bonjour,

Une autre solution, en utilisant un module de classes...

Bonne journée

http://www.cijoint.fr/cjlink.php?file=cj201010/cijaPtwAxc.zip

Bonsoir à tous,
Je met un peu de temps à répondre mais l' agenda est surchargé....
un grand merci à tous les 3 car mon "problème" est résolu grace à votre aide.
Vos solutions sont extra car, et c'était l'objectif, je n'aurais pas à paramètrer X Checkboxs.
Mais je ne m'arrete pas la et vais examiner vos codes pour comprendre le fonctionnement .
encore merci pour votre implication,
à+ je met le poste en résolu.

Bonjour,
je reviens vers notre discussion pour y apporter une précision (pour ceux qui auraient ce problème).
j'ai adopté la méthode de Eriic qui est vraiment top et offre de nombreuses possibilité pour amèliorer la navigation sous excel.
Toutefois, j'ai rencontré un problème en voulant mettre 2 Private Sub Worksheet_BeforeRightClick. En fait il n'est pas possible de mettre 2 fois la ligne et il faut les 2 instructions dans le même Private Sub Worksheet_BeforeRightClick
ci dessous mon code qui fonctionne dans la même feuille et pour les 2 instructions
si cela peut servir à quelqu'un...

et encore merci!

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D8:I14,D20:I26,D34:I40,N8:S14,N20:S26,N34:S40,X8:AC14,X20:AC26,X34:AC40")) Is Nothing Then
Cancel = True
Select Case Target.Interior.ColorIndex
    Case xlNone
        Target.Interior.ColorIndex = 4
        Target = "X"
    Case 4
        Target.Interior.ColorIndex = 15
        Target = "0"
    Case 15
        Target.Interior.ColorIndex = 4
        Target = "X"
    End Select
End If

If Not Intersect(Target, Range("C8:C14,C20:C26,C34:C40,M8:M14,M20:M26,M34:M40,W8:W14,W20:W26,W34:W40")) Is Nothing Then
Cancel = True
statut.Show
End If
End Sub