Discussion :

[abouhossam]

bjr à tous
j'ai developpé un macro dont le syntaxe est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If IsNumeric(Sh.Name) Then
If Target.Value <> "" Then
If Target = Range("e14") Then
.
.
.
.
.
end if
end if
end if
end sub

le problème se pose lors ce que je supprime le contenu de la cellule "E14" qui est fusionnée E14;G14
par contre le problème ne se pose pas lors ce que je supprime le contenu d'une cellule non fusionnée
le message d'erreur sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Value <> "" Then

j'espere que mon problème soit clair
merci de votre aide

[mercatog]

ça ne peut pas fonctionner, il fallait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If target.count=1 then
            if target.value<>""

mais cela risque de s'éloigner de ce que tu veux
2cellules fusionnées, c'est quoi le Target correspondant?

[abouhossam]

merci mercatog
ça marche très bien
mais je veux savoir la signification de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If target.count=1 then

s.v.p
merci

[mercatog]

signifie que le Target comprend une seule cellule pour pouvoir parler de sa valeur (Target.Value)

C'est pourquoi s'il y a des changements qui impliquent des tests sur la valeur de Target par exemple, au début de ta sub tu fais une fois pour toute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.count>1 Then exit sub

[abouhossam]

merci bcp mercatog

[Gorfael]

Salut à tous
Pas sûr de comprendre le but à atteindre : si tu as des cellules fusionnées, la macro ne doit pas agir ?
Si ce n'est pas la cas, quelles sont les modifications devant être faites ?
A+