additionner une cellele a2 = a2+1

B

Blunet

Guest

• 29 Janvier 2006

• #2

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]

 

Pièces jointes

• Classeur1_20060129085935.zip

  6.3 KB · Affichages: 10

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 29 Janvier 2006

• #3

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]

 

Pièces jointes

• Classeur1_20060129090158.zip

  6.3 KB · Affichages: 13

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 29 Janvier 2006

• #4

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

 

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 29 Janvier 2006

• #5

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

 

Vote positif 0 Vote négatif

S

sioli

Guest

• 30 Janvier 2006

• #6

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.

 

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 31 Janvier 2006

• #7

Salut Sioli,
le code ci devrait te satisfaire

Code:

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

 

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 31 Janvier 2006

• #8

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]

 

Pièces jointes

• Classeur1_20060131083535.zip

  6 KB · Affichages: 12

Vote positif 0 Vote négatif