Vbs excel et autoincrément ...

DjiDjo -  
Ova Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -
'lut

Je me demande comment autoincrémenter une case dans excel d'une feuille à l'autre (dans le même fichier)

Je sais on peut le faire à la main mais ce serai trop long, on m'a donc parler du visual basic pour le faire, or je n'ai que TRES peu de notion de programmation.

Quelqu'un sait comment faire ??

@+
A voir également:

1 réponse

Réponse 1 / 1
Ova Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   22
 
Bonjour,
Je peux peut-etre t'aider un petit peu.

Sous Vba, tu peux écrire un truc de ce genre :

Public Sub ajouterUn()
Dim NbPages As Integer
Dim PremierNum As Integer
Dim i As Integer

NbPages = ActiveWorkbook.Sheets.Count '' determiner le nombre de pages dans le classeur concerné

PremierNum = Sheets(1).Range("A1").Value '' =>aller chercher la première valeur, supposée ici être en A1 sur la feuille 1

For i = 2 To NbPages '' =>de la page 2 jusqu'à la valeur NbPages
Sheets(i).Range("A1").Value = Sheets(i - 1).Range("A1").Value + 1 '' => ajouter 1 à la valeur présente sur la page précédente
Next
End Sub

Vala !!! J'espère que cela t'aidera un peu ...


Ova
.:: Ki ne teste rien n'a rien ::..
0