Onglet masqué erreur

Bonjour,

Est -il possible de modifier cette partie du code svp pour que l'incrémentation de ID fonctionne lorsque la feuille Données est masquée ?

Lorsque l'onglet données est actif cela fonctionne parfaitement.

If lig = 2 Then

Sheets("BASE").Range("D" & lig) = 1

Else

Sheets("BASE").Range("D" & lig) = Application.WorksheetFunction.Max(Columns(4)) + 1

End If

Merci pour votre aide

Bonjour Subfestivus

Il faut faire appel à l'objet conteneur pour la colonne

Application.WorksheetFunction.Max(Sheets("BASE").Columns(4)) + 1

A+

Bonjour,

Max(Columns(4))
Tu n'indiques pas la feuille, par défaut c'est celle active.

La prochaine fois donne plus de précision sur le pb.
Message d'erreur ?
Résultat obtenu différent de l'attendu ?
eric