Discussion :

[fred62200]

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

[deedolith]

Hello,

Il sera préférable d'enregistrer dans une feuille masquée les données techniques de ton classeur (celle que manipulées par VBA et que l'utilisateur final ne doit surtout pas bidouiller.

Ensuite:

à chaque ouverture de feuille

Soyons précis dans le vocabulaire, qu'entendez-vous par "ouverture de feuille" ?
Aux dernières nouvelles, on ouvre un classeur, pas une feuille (qui fait partie du classeur).

Enfin, sur quel événement appeliez vous cette procédure ?

[fred62200]

le nouveau numéro de facture ne s'affiche pas dans la nouvelle feuille que j'ouvre (j'ouvre la nouvelle feuille en faisant clic droit sur nom de la feuille "Facture" et déplace ou copier et créer une copie.

[Guy7700]

Bonjour,

A placer dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
    Dim numero As Long
    With Sheets("Facture")
        numero = .Range("B2").Value
        numero = numero + 1
        .Range("B2").Value = numero
    End With
End Sub

Elle s’exécute automatiquement à chaque ouverture du fichier, comme demandé.

En espérant que ça puisse t'aider.

Bàt,

[fred62200]

Bonjour Guy, merci pour ta réponse.
A placer dans ThisWorkBook, c'est à dire dans mon classeur ?

[Guy7700]

Tu appuies sur ALT F11, tu vas arriver dans le module VBA.
Tu colles le code dans le module ThisWorkbook comme sur l'image ci-jointe



Bàt,

[fred62200]

Ah d'accord, je ne connaissais pas cette procédure, ça me sera certainement utile dans l'avenir, merci à vous.