Discussion :

[Familitom]

Bonjour,
Je découvre "Visual basic" avec Excel 2007.

Je souhaite faire incrémenter la valeur d'une cellule que j'ai nommée "Incrément" de +1 après chaque enregistrement de mon fichier.
J'arrive à inscrire le nom de ma cellule "Bord_0001" que je souhaite faire évoluer à "Bord_0002", "Bord_0003" etc via la commande suivante:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Incrémentation()
'
'Macro le 23/03/2010 par Toto
'
'
vPlageNom = Range("incrément").End(xlDown).Row
ActiveWorkbook.Names.Add Name:="Bord_0001", RefersToR1C1:=vPlageNom
 
End Sub

mais je n'arrive pas à l'incrémenter automatiquement après l'enregistrement.

S'il vous faut plus de renseignements n'hésités pas à me le faire savoir.

Merci d'avance pour votre aide.

[jfontaine]

Bonjour,

Il existe un évènement "BeforeSave" que tu trouveras dans Thisworkbook
Comme son nom l'indique il exécute le code juste avant l'enregistrement du fichier

[Familitom]

je n'y arrive pas mieux avec la réponse que j'ai eu et je voudrais savoir s'il est possible d'incrémenter la cellule à l'ouverture de mon fichier.

merci.

[alsimbad]

heu
je pense que tu compliques un peu
utilise les macro evenementielle du module workbook
je te le fais de tete, flemme de regarder

Code :

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

1
2
3
4
 
Sub Workbook_BeforeSave 
range A1 = range A1 + 1
 End Sub