cellules fusionnées

S

Seb

Guest
Bonjour,
j'utilise ça :
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
pour continuer la macro que si on a sélectionné une seule cellule (fusionnée ou pas).
Mais j'ai des cellules fusionnés (par ex: (u2,v2) ou (u2,u3) mais pas de (u2,u3,v2,v3) : je ne fusionne que sur une ligne ou une colonne ) et elles sont comptées avec des nombres de lignes ou colonnes > 1 et donc la macro ne continue pas, mais je voudrais qu'elle continue.
J'ai essayé :
If Target.Rows.Count > 1 And Target.Columns.Count > 1 Then Exit Sub
mais dans ce cas on peut sélectionner plusieurs cellules en ligne ou colonne.
Quelqu'un aurait une solution ?
Merci.
 

Pièces jointes

  • Classeur1.xls
    24.5 KB · Affichages: 65
  • Classeur1.xls
    24.5 KB · Affichages: 66
  • Classeur1.xls
    24.5 KB · Affichages: 68
Z

Zon

Guest
Bonjour,

Je ne comprends pas pourquoi dans ton exemple, tu rajoutes la condition If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub, car sans celle-ci, cellule fusionnée ou pas on a le même résultat avec le code dessous:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("cel")) Is Nothing Then Exit Sub 'pour tester si la cellule et dans le cadre
If Not OldRng Is Nothing Then
OldRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng = Target
End Sub


A+++
 
Z

Zon

Guest
Re,

Voilà, en rajoutant un test pour voir si target est fusionnée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.MergeCells = True Then
OldRng.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
Set OldRng = Target
End If
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Intersect(ActiveCell, Range("cel")) Is Nothing Then Exit Sub 'pour tester si la cellule et dans le cadre
If Not OldRng Is Nothing Then
OldRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng = Target
End Sub

A+++
 
S

Seb

Guest
Merci, je vais essayer ça...
Ca marche bien mais il y a toujours un petit quelquechose...
On peut toujours sélectionner une plage de cellules si la première est une cellule fusionnée...
Par exemple, si (a2,a3) est fusionnée on peut sélectionné (a2,a3,a4,...).
Désolé d'être aussi pointilleux...
Et merci pour ton aide...
 

Discussions similaires

Réponses
7
Affichages
486

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson