problème avec if

Version imprimable

problème avec if

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.

18/01/2012, 11h16
jfontaine

Bonjour,

Citation:

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 ?
18/01/2012, 15h04
abouhossam

merci jfontaine

Citation:

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 :

Citation:

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

merci.
18/01/2012, 15h27
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
18/01/2012, 17h09
abouhossam

c'est le même problème et le même message.
18/01/2012, 17h42
gFZT82

Bonjour,

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

Cordialement.
18/01/2012, 22h55
BlueMonkey

gFZT82

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.
19/01/2012, 12h29
abouhossam

Bjr à tous
La cellule B18 est bien fusionnée.
je vais enlever le fusionnement et essayer
merci bcp.
19/01/2012, 12h50
abouhossam

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