additionner une cellele a2 = a2+1

[sioli]

bonjour a tous je voudrais ecrire en vba une formule pour additionner une cellule par un chifre donner

ex: a2 = a2 + 1

ex2: si a2= ' x39 ' j'additionne a2 +1 je devrais avoir x40

ex3: je vais plus loin

j'ouvre un fichier qui active une macro ' sa je ne s'ai pas encore le faire ?' dans la colonne a1 se trouve dejas un n° x39 ,ma macro controle le chifre a1 et d'apres ce chifre l'additionne puis resauve sur le mème nom du ficher que j'ai ouver

merci a tous ceux qui peuvent m'aider.

 

[Blunet]

Salut Sioli,
Je ne comprends pas bien ton pb s'agit-il d'un cumul à l'ouverture d'un fichier ?
De quel type sont les données des cellules à additionner, des nombres ou du texte ?

Pour lancer une MAcro à l'ouverture suffit d'insérer la MAcro dans Workbook_Open.

Ciao [file name=Classeur1_20060129085935.zip size=6416]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060129085935.zip[/file]

 

[Blunet]

Salut Sioli,
Je ne comprends pas bien ton pb s'agit-il d'un cumul à l'ouverture d'un fichier ?
De quel type sont les données des cellules à additionner, des nombres ou du texte ?

Pour lancer une MAcro à l'ouverture suffit d'insérer la MAcro dans Workbook_Open.
J'espère que ce fichier joint peut t'aider..

Ciao [file name=Classeur1_20060129090158.zip size=6416]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060129090158.zip[/file]

 

[Claudy]

Bonjour vous deux...
Ca sert à quoi d'ouvrir , d'incrémenter et de fermer aussitot?
:unsure:
moi je ferais:

Private Sub Workbook_Open()
Range('A1').Value = Range('A1').Value + 1
ThisWorkbook.Save
End Sub
A+ Claudy

 

[Blunet]

Salut Claudy,

Je sais pas trop à quoi ça sert, mais visiblement sioli veut tenter une expérience :woohoo:
Mais je me demande s'il ne veut pas incrémenter et donner le résultat comme nom de fichier :huh:
Ciao

 

[sioli]

non en faite se que je veus faire s'est:

ouvrir une document vierge que je doit remplire,mais avent de le remplir je doit incrementer une cellule qui comporte ex:x ou z ou n'inporte qu'elle letre de l'alphabe avec un numero 13 ex: x30 et sauver ce document vierge pour que la prochaine fois que j'ouvre ce document vierge il s'incremente de nouveau a x31 et unssi de suite.
bien sur je remplis le document que je sauve sur un autre nom.

j'ai dejas fais toute s'est procedure mais il me menque plus que ce petit detail.

 

[Blunet]

Salut Sioli,
le code ci devrait te satisfaire

Private Sub Workbook_Open()
    Range('IU1').Value = 'X'
    Range('IV1').Value = Range('IV1').Value + 1
    Range('A1').Value = Range('IU1').Value & Range('IV1').Value
End Sub

Ciao

 

[Blunet]

Je te joint un fichier exemple, note que tout se fait au niveau de la routine locale Workbook_Open()

A+ [file name=Classeur1_20060131083535.zip size=6109]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060131083535.zip[/file]