Code Private...nom ambigu détecté....

[Christian0258]

Bonjour à tout le form,

Je souhaiterais votre aide pour adapter ce code...

J'ai ces deux codes sous la même feuille comment modifier pour que ça fonctionne? (suis zéro en VBA)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([c10:c10], Target) Is Nothing Then
UserForm3.Show
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([c6:c6], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload F_calendar
F_calendar.Show
End If
End Sub

Merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[Paritec]

Re : Code Private...nom ambigu détecté....

Bonsoir Christian,
essayes comme cela tu retires les deux autres naturellement
a+ Papou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([c10:c10], Target) Is Nothing Then UserForm3.Show
If Not Intersect([c6:c6], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload F_calendar
F_calendar.Show
End If
End Sub

 

[Christian0258]

Re : Code Private...nom ambigu détecté....

Re, le forum,

Merci PARITEC, c'est impec de chez impec.

amitiés,
à+

Christian