A voir également:
- Excel incrémentation automatique numéro
- Numero prive - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Word et excel gratuit - Guide
2 réponses
Bonsoir,
Tout d'abord, il faut créer une nouvelle fonction pour incrémenter un chiffre de 1:
Ensuite, si par exemple les numéros se trouvent dans la colonne A dans les cellules A2, A3, A4....An
Une macro qui va chercher ce dernier numéro créé dans An et qui l'augmente de 1 et écrit ce nouveau numéro dans A(n+1) :
Voilà j'espère que cela t'aidera ou te donnera une piste
Bonne nuit
Tout d'abord, il faut créer une nouvelle fonction pour incrémenter un chiffre de 1:
Function NouveauNuméro(DerNum)
NouveauNuméro = DerNum + 1
End Function
Ensuite, si par exemple les numéros se trouvent dans la colonne A dans les cellules A2, A3, A4....An
Une macro qui va chercher ce dernier numéro créé dans An et qui l'augmente de 1 et écrit ce nouveau numéro dans A(n+1) :
Sub AffecteNouveauNum()
Dim DerNum As Integer 'DerNum est le denier numéro créé
DerNum = Range("A2").End(xlDown).Value
NouveauNum = NouveauNuméro(DerNum)
DerCell = Range("A2").End(xlDown).Address 'DerCell est la dernière cellule contenant l dernier numéro
Range(DerCell).Activate
ActiveCell.Offset(1, 0).Value = NouveauNum 'écrit le nouveau numéro dans la cellule vide en dessous
End Sub
Voilà j'espère que cela t'aidera ou te donnera une piste
Bonne nuit
