Macro numérotation_automatique ne fonctionne pas

Bonjour, j'essaye de créer une macro qui numérote automatiquement une

facture en incrémentant de 1 à chaque ouverture de feuille, mais ça ne

fonctionne pas :

Sub Numérotation_automatique()

Sheets("Facture").Select

Set numéro = Range("B2").Value

numéro = numéro + 1

Range("B2").Value = numéro

End Sub

Bonjour,

Essayez (sans Set pour les valeurs) :

Sub Numerotation_automatique()
  With Sheets("Facture").Range("B2")
    .Value = .Value + 1
  End With
End Sub

Ou pour vraiment juste "corriger" votre code, comme ceci (évitez les accents dans le code) :

Sub Numerotation_automatique()
  ' rend la feuille active
  Sheets("Facture").Activate

  ' numero est un entier
  Dim numero As Integer
  numero = Range("B2").Value

  ' affectation de la nouvelle valeur
  Range("B2").Value = numero + 1  
End Sub

Merci Saboh !

ça fonctionne en faisant ceci :

Sub Auto_Open()
'
' Auto_Open Macro
'
' Touche de raccourci du clavier: Ctrl+n
'
With Sheets("Facture").Range("B2")
.Value = .Value + 1
End With
End Sub

Je vous en prie, content d'aider. N'oubliez pas de passer le sujet en résolu.

Bonne journée.

Merci, bonne journée également.