Question Visual Basic

[david.ridelaire]

Bonjour à tous,

voila j'ai insérer dans VBA ces 2 programmes dans la même feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1 Then
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Rows.Count = 1 Then
If Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Date
End If
End Sub

lorsque j'execute ces codes dans ma feuille de calcul une boite de dialogue apparait et me dit "erreur de compilation nom ambigu détecté Worksheet_change"

que doi-je faire pour qu'il s'execute normalement

d'avance merci à tous

DAVID

 

[PascalXLD]

Re : Question Visual Basic

bonjour

tu ne peux pas avoir 2 evenementielles change

Il faut mettre tes 2 codes ensemble

cela donnerait à peu près

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1 Then
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
elseIf Target.Column = 5 And Target.Rows.Count = 1 Then
If Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Date
End If
End Sub

 

[Gorfael]

Re : Question Visual Basic

Bonjour à tous,

voila j'ai insérer dans VBA ces 2 programmes dans la même feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1 Then
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Rows.Count = 1 Then
If Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Date
End If
End Sub

lorsque j'execute ces codes dans ma feuille de calcul une boite de dialogue apparait et me dit "erreur de compilation nom ambigu détecté Worksheet_change"

que doi-je faire pour qu'il s'execute normalement

d'avance merci à tous

DAVID

Salut

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.cells.Count > 1 Then exit sub
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
End If
If Target.Column = 5 And Target.Rows.Count = 1 Then
If Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Date
End If
End Sub

mais je verrais plutôt :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
If Target.Column = 5 And Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Date
End Sub

A+

 

[david.ridelaire]

Re : Question Visual Basic

Merci beaucoup à tous les 2

david