Incrémentation de feuille à feuille

[fouedou77]

Bonjour,

Est-il possible quand j'incrémente par la droite, d'incrémenter la même cellule sur chaque feuille et pas chaque cellule sur une seule feuille.

Si oui comment faire svp ?

Je ne sais pas si c'est très clair loll 🙂

 

[skoobi]

Re : Incrémentation de feuille à feuille

Bonjour,

si j'ai bien compris:

Sub incrémente()
  For i = 1 To 5
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).[A1].Value = i
  Next
End Sub

 

[PascalXLD]

Re : Incrémentation de feuille à feuille

Bonjour

tu as essayé en sélectionnant toutes tes feuilles et que tu fais un cliquer glisser ensuite ?

 

[fouedou77]

Re : Incrémentation de feuille à feuille

Je suis désolé mais ce n'est pas ce que je voulais.

En tout cas merci quand même skoobi car cette macro est très intéressante !

Voici un fichier avec, en couleur sur la troisième feuille, le résultat quand je tape la formule sur la cellule A1 et que je tire vers la droite.

Ce que je veux, c'est A1 de la feuille 1, puis à droite A1 de la feuille 2 et A1 de la feuille 3.

Est-ce que c'est plus clair là ? lol

 

[fouedou77]

Re : Incrémentation de feuille à feuille

Personne pour ce petit soucis qui, j'en suis sûr, doit être très facile pour vous...

Merci 🙂

 

[PascalXLD]

Re : Incrémentation de feuille à feuille

re

excuses moi mais je n'ai pas trop compris ce que tu voulais

 

[fouedou77]

Re : Incrémentation de feuille à feuille

Même avec ce nouveau fichier ? 😉 😛