XL 2010 Private Sub Worksheet_Change

Atlas85200 · 24 Juin 2024

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

Dranreb · 24 Juin 2024

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 · 24 Juin 2024

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

Atlas85200 · 24 Juin 2024

Parfait, génial !!!Merci beaucoup

XL 2010 Private Sub Worksheet_Change

Atlas85200

XLDnaute Nouveau

Dranreb

Dranreb

XLDnaute Barbatruc

Atlas85200

XLDnaute Nouveau

Discussions similaires