Incrémenter une case à cocher

[EL ABED Mohamed]

bonjour;

j'ai une case à cocher dans F4 et liée aussi à F4.

je veux incrémenter cette case vers la droite et vers le bas ( j'ai besoin par exemple G11 lié aussi à G11 par une simple incrémentation)

pouvez-vous m’aider ?
par avance, merci

 

[job75]

Re,

Avec ceci on peut colorer/effacer plusieurs cellules sélectionnées sur une même ligne :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With [F7:L300] 'à adapter
  If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
  Cancel = True
  Intersect(Selection, ActiveCell.EntireRow, .Cells) = IIf(ActiveCell = "", " ", "")
End With
End Sub

Par sécurité une seule ligne est traitée à chaque fois.

Fichier (2 bis).

A+

 

[EL ABED Mohamed]

Je vous remercie tous pour votre réactivité

c'est très intéressant pour un débitant comme moi

 

[job75]

Re,

Bah le risque n'est pas bien grand, on peut traiter toutes les lignes de la sélection.

Fichier (2 ter), il a suffit de supprimer ActiveCell.EntireRow.

A+