Discussion :

[abouhossam]

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

Code :

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

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 :

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

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 ?