XL 2010 Private Sub Worksheet_Change

Atlas85200

XLDnaute Nouveau
Bonjour,

J'ai écris la macro suivante
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$28" Then
If Target.Value = "NON VERIFIE" Then
Me.Range("D28").Value = "X"
Me.Range("G28").Value = "X"
End If
If Target.Value <> "NON VERIFIE" Then
Me.Range("D28").Value = ""
Me.Range("G28").Value = ""
End If
End If
End Sub
Seulement je voudrais que cette procédure soit faite une seconde fois comme suit :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$48" Then
If Target.Value = "NON VERIFIE" Then
Me.Range("B50").Value = "X"
Me.Range("E50").Value = "X"
End If
If Target.Value <> "NON VERIFIE" Then
Me.Range("B50").Value = ""
Me.Range("E50").Value = "X
End If
End If
End Sub
Je n'arrive pas à combiner les deux, pouvez vous m'aider svp ?

merci par avance
 
Solution
Bonsoir.
Essayez ça si votre Me.Range("E50").Value = "X est bien une erreur de collage :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$B$28" Then
      If Target.Value = "NON VERIFIE" Then
         Me.Range("D28").Value = "X"
         Me.Range("G28").Value = "X"
      Else
         Me.Range("D28").Value = Empty
         Me.Range("G28").Value = Empty
         End If
   ElseIf Target.Address = "$G$48" Then
      If Target.Value = "NON VERIFIE" Then
         Me.Range("B50").Value = "X"
         Me.Range("E50").Value = "X"
      Else
         Me.Range("B50").Value = Empty
         Me.Range("E50").Value = Empty
         End If
      End If
   End Sub

Dranreb

XLDnaute Barbatruc
Bonsoir.
Essayez ça si votre Me.Range("E50").Value = "X est bien une erreur de collage :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$B$28" Then
      If Target.Value = "NON VERIFIE" Then
         Me.Range("D28").Value = "X"
         Me.Range("G28").Value = "X"
      Else
         Me.Range("D28").Value = Empty
         Me.Range("G28").Value = Empty
         End If
   ElseIf Target.Address = "$G$48" Then
      If Target.Value = "NON VERIFIE" Then
         Me.Range("B50").Value = "X"
         Me.Range("E50").Value = "X"
      Else
         Me.Range("B50").Value = Empty
         Me.Range("E50").Value = Empty
         End If
      End If
   End Sub
 

Discussions similaires

Réponses
1
Affichages
410

Statistiques des forums

Discussions
315 107
Messages
2 116 274
Membres
112 710
dernier inscrit
FJL