Ajouter 1 à cellule de la feuille précédente etc ...

Résolu/Fermé
roroberto Messages postés 1 Date d'inscription lundi 31 octobre 2016 Statut Membre Dernière intervention 31 octobre 2016 - 31 oct. 2016 à 12:16
 roroberto - 1 nov. 2016 à 06:18
Bonjour,
Je souhaite ajouter 1 à la cellulel A1 de la feuille 1 sur la cellule A1 de la feuille 2, et ainsi de suite
Je n'ai pas trouvé de macro correspondante et ne sais pas en créer tout seul.
Merci d'avance
A voir également:

5 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
31 oct. 2016 à 13:29
Bonjour,

Formule dans Feuil2!A1 :
=Feuil1!A1 +1

A+
0
Merci pour la réponse rapide.
La formule fonctionne bien sur la feuille2 mais pas sur les autres.
Quand j'ai 50 en A1 de feuille1 je retrouve bien 51 en A1 de feuille2 et 51 également en feuille3 (au lieu de 52) 51 aussi 51sur les autres.
En fait la formule, lors de la copie sur les feuilles, fait toujours référence à la feuille1 et non la feuille précédente à celle sur laquelle on la copie.
comment faire ?
Merci
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
31 oct. 2016 à 17:40
Si tu as un grand nombre de feuilles, tu peux utiliser cette macro :
Sub Numerotation()
Dim Ws As Worksheet
Dim Nom As String
Nom = Worksheets("Feuil1").Name
For Each Ws In Worksheets
If Ws.Name <> "Feuil1" Then
Ws.Range("A1").Formula = "=" & Nom & "!A1+1"
Nom = Ws.Name
End If
Next Ws
End Sub

A+
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
31 oct. 2016 à 18:39
Bonjour à tous les deux

Un exemple
http://www.cjoint.com/c/FJFrNbZ6rgn

Cdlmnt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Merci à vous deux.
Impec
Bonne journée
0