Ambiguous name detected: worksheet_change en VBA excel

Résolu
Dianex87 Messages postés 79 Date d'inscription   Statut Membre Dernière intervention   -  
Dianex87 Messages postés 79 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai sur le même Worksheet les 2 macro suivantes :

Private Sub Worksheet_Change(ByVal sel As Range)
'Column A is autofilled with the date of the last line update
If sel.Row > 2 Then
Application.EnableEvents = False
Cells(sel.Row, "A").Value = Date
Application.EnableEvents = True
End If
End Sub

ET

Private Sub Worksheet_Change(ByVal Target As Range)
'When a new row is created, column B is autofilled with the creation of the date
Range("B" & Target.Row).Value = Now
End Sub

Et les 2 ne peuvent visiblement pas fonctionner car étant sur le meme sheet; j'ai le message suivant: Ambiguous name detected worksheet_change.

J'ai besoin des 2; quelqu'un aurait-il la solution SVP?

Merci bcp,
Dianex

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
bonjour,

comme ceci: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim changement As Boolean
If Target.Rows(1).Cells.Count = Columns.Count Then changement = True
If Target.Columns(1).Cells.Count = Rows.Count Then changement = True
If changement = True Then
Range("B" & Target.Row).Value = Now
End If
If Target.Row > 2 Then
Application.EnableEvents = False
Cells(Target.Row, "A").Value = Date
Application.EnableEvents = True
End If
End Sub

0
Dianex87 Messages postés 79 Date d'inscription   Statut Membre Dernière intervention  
 
Mille mercis de ton aide sur mes 2 sujets !!
Cela fonctionne
0

Discussions similaires

Boot failure detected
Loshxn -
georges97 -

1 réponse
display name ?
nggrosbidou -
Carré -

8 réponses
Boot failure detected
Alex38440 -
Edawards_0352 -

8 réponses
usb device over current
jean-michel -
Robin -

39 réponses
Problème BIOS (Boot failure)
MoVdd -
flo88 -

2 réponses