une seule cellule en paramètre

[Seb]

Bonjour,
est-ce que c'est possible de changer :
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
pour que Target soit une seule cellule et que si on sélectionne une plage de cellules au lieu d'une seule la macro ne s'exécute pas ?
Par exemple, je voudrais que quand on sélectionne une seule cellule elle prends une couleur mais que si on sélectionne plusieurs cellules il ne se passe rien. Dans cette feuille, j'ai aussi des cellules fusionnées qui je voudrais compter comme une seule cellule.
J'ai essayé de faire une feuille pour mieux expliquer.
Merci.

 

[pyrof]

Bonjour,

voici une commande qui le permet
if target.row= ta_ligne and target.column= ta_colonne and target.rows=1 and target.columns=1 then action

Je sais, il y a plus simple

 

[Baroude]

Hello !

Voici une petite macro évenementielle :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
ActiveCell.Select
With Selection.Interior
.ColorIndex = 6 'jaune
.Pattern = xlSolid
End With
End If
End Sub

J'espère que ça te convient
Baroude

 

[Seb]

Merci, c'est ce dont j'avais besoin...