[XL-2003] problème avec if [Résolu]

[abouhossam]

bjr à tous
j'ai developpé une macro et j'ai rencontré un problème lors de l'executuion.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If Target.Column = 2 And Target.Row >= 17 And Target.Row <= 36 Then
    If Target.Value <> "" Then
            Set model = Target
            With Sheets("feuil1")
            For Each cell In .Range("e48:e52")
                If cell.Value = Target.Value Then
                Range("g" & Target.Row).Value = cell.Offset(0, 3).Value
                Exit For
                End If
            Next
            End With
    Else
    Target.Offset(0, -1) = ""
    Target.Offset(0, 5) = ""
    End If
End If

le problème se pose quand je supprime le contenu de la cellule TARGET, et je reçoi la ligne

Code :

If Target.Value <> "" Then

en jaune
merci à vous.

[jfontaine]

Bonjour,

e problème se pose quand je supprime le contenu de la cellule TARGET, et je reçoi la ligne

Quel problème ???

- Je ne vois pas de ligne qui supprime le contenu de target !

- a quoi sert la variable model ?

[abouhossam]

merci jfontaine

quand je supprime le contenu de la cellule TARGET

je veux dire manuellement
par exemple:
la cellule "b18" contienne la valeur "xxxxx"
quand je supprime le contenu de "b18"
je reçoi un message de déborage et

Code :

If Target.Value <> "" Then

en jaune.
c'est ça le problème.
pour te dire je n'ai pas ce problème quand j'écris quelque chose dans "b18".
merci

Le message est :

erreur d'exécution '13':
Incompatibilité de type.

merci.

[jfontaine]

A mon avis ta target.value contient une erreur

Ajoute ce test

Code :

If Target.Column = 2 And Target.Row >= 17 And Target.Row <= 36 And Left(Target.Text,1)<>"#" Then

[abouhossam]

c'est le même problème et le même message.

[gFZT82]

Bonjour,

La cellule B18 n'est-elle pas fusionnée ?

Cordialement.

[BlueMonkey]

Bonsoir,

Target étant généralement un Range, il n'y a pas de garantie qu'il ne contienne
qu'une seule cellule. Et si Target désigne un Range de plusieurs cellules, une tentative
d'utilisation de la propriété .value provoquera une erreur d'exécution.

C'est le cas lorsque les cellules sont fusionnées (comme le dit gFZT82) ou simplement si
Target renvoi la sélection courante, et que plusieurs cellules sont actuellement sélectionnée.

[abouhossam]

Bjr à tous
La cellule B18 est bien fusionnée.
je vais enlever le fusionnement et essayer
merci bcp.

[abouhossam]

merci à tous
lorseque j'ai enlevé le fusionnement la macro a bien marché
merci bcp