Incrémentation non idoine

[diable50630]

Je souhaite incrémenter une colonne suivant le résultat suivant ( saisi ligne par ligne)

='S(1)'!H40
='S(2)'!H40
='S(3)'!H40

Or voici ce qui se passe si je fais une copie vers le bas pour étendre la série
='S(3)'!H40
='S(3)'!H41

Il se produit le contraire du but recherché

‘S( n’incrémente pas)’ !H incrémente de 1

Comment arriver à l’effet contraire (pour info 52 lignes à la main c’est galère)


Win XP
Excel 2003

 

[Jacques87]

Bonsoir,

Dans ton cas j'utiliserais plutôt une macro dont le code serait

Dim I as Integer

For I = 1 To 52
formule =' =s(' & I & ')!H40'
Range('A' & I).Value = formule
Next I

Bon courage

 

[diable50630]

Merci de ton aide mais comment dois je exploiter ton info au niveau de ma feuille de calcul

Je n'ai jamais créer ou utiliser de macro

Peux tu me donner un lien d'apprentissage ou m'expliquer la manière d'utiliser ce que tu me propose

 

[Mytå]

Salut Diable, Jacques et le forum

Pour utiliser une macro

Fait Alt+F11 pour aller dans l'éditeur VBA
Va dans Insertion et Module
fait un Copier - Coller du code suivant

Sub Idoine()
'
' Touche de raccourci du clavier: Ctrl+q
'
Dim I As Integer

For I = 1 To 52
Application.DisplayAlerts = False
Range('A' & I).Formula = '='s(' & I & ')'!H40'
Next I
Application.DisplayAlerts = True

End Sub

Mytå

Message édité par: Mytå, à: 12/02/2006 02:58

 

[andré]

Salut diable50630, Jacques87 et Muta,
Salut le forum,

Normalement cette formule devrait s'incrémenter en l'écrivant comme suit à partir de la ligne 1 :

=INDIRECT(''S'&(LIGNE()&'!H40'))

Si le départ est sur une autre ligne, il faut soustraire le numéro de la ligne -1.
Ainsi avec un départ en ligne 5 :
=INDIRECT(''S'&(LIGNE()-4&'!H40'))

Â+

 

[andré]

Oups !
J'ai oublié les deux parenthèses et une ':

INDIRECT(''S('&(LIGNE()&')'!H40'))

Â+

Message édité par: andré, à: 12/02/2006 10:57

 

[diable50630]

Merci à Myta pour sa solution je viens d'essayer elle marche

J'ai juste le souci d'automatiser la mise à jour de la feuille de calcul lors de la création d'une valeur dans un nouvel onglet

 

[Mytå]

Re le forum

Diablo,

Regarde le programme en pièce jointe

Je l'ai fait vite, regarde si celà pourrait
te convenir


Mytå [file name=Idoine.zip size=10483]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Idoine.zip[/file]