Augmenter une formule page par page

[toons]

Bonjour ,
je voudrai savoir comment peut on changer la formule apres chaque ouverture d une nouvelle page du meme classeur ....
sur la feuille 1 j ai un tableau (avec bcp de texte)
sur la feuille 2 je voudrai que C1 feuille2=A2feuille 1
sur la feuille 3 je voudrai que C1 feuille3=A3 feuille 1
sur la feuille 4 je voudrai que C1 feuille 4=A4 feuille 1 etc
voila
merci d avance à celui ou celle qui me comprendra

 

[Kiseki]

Re : Augmenter une formule page par page

Bonjour,

Je te propose à chaque désactivation de la feuille 1, donc quand tu à fait des changements, tu va sur une autre feuille et ça s'exécute.

Private Sub Worksheet_Deactivate()
Dim F As Worksheet, i As Byte
i = 2
For Each F In Worksheets
    If F.Name <> Sheets(1).Name Then
    Sheets(i).Range("C1") = Sheets(1).Range("A" & i)
    i = i + 1
    End If
Next
End Sub

 

[TempusFugit]

Re : Augmenter une formule page par page

Bonjour

Une autre méthode ( à mettre également dans ThisWorkBook)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Sh.Range("C1") = Sheets(1).Range("A" & Sh.Previous.Index + 1)
End Sub

Si tu veux une formule et non pas la valeur de la cellule, voici la même macro modifiée

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim f As String
On Error Resume Next
Sh.Range("C1").FormulaR1C1 = "=Feuil1!R[" & CStr(Sh.Previous.Index + 1) & "]C1]"
End Sub

Il faut mettre l'une ou l'autre (pas les deux)

 

[toons]

Re : Augmenter une formule page par page

Merci de m avoir repondu si rapidement mais je debute et n y arrive toujours pas ,
mais je persevere !!!

 

[toons]

Re : Augmenter une formule page par page

bon ca commence a marcher ;-)
maintenant je voudrais comprendre un peu plus
B2 en feuille 1 passe en C3 feuille 2
B3 en feuille 1 passe en C3 feuille 3,....
C3 en feuille 1 passe en D5 feuille 2, .....
merci d avance

 

[TempusFugit]

Re : Augmenter une formule page par page

Bonjour

Ou as-tu mis la macro précédemment proposée ?

Il ne faut pas la mettre dans un module standard, mais dans ThisWorkBook.

(Tu dois voir cela à gauche de ton écran quand tu vas dans VBE.
A partir d'Excel, Outils/Macros/Microsoft Visual Basic Editor)

 

[toons]

Re : Augmenter une formule page par page

Un grand merci,
ca marche
j'commence à comprendre !!! mais j comprends pas encore comment creer une formule et dechifrer la tienne ....

 

[toons]

Re : Augmenter une formule page par page

j aurai encore une petite question pour finaliser pon petit programme^^
j aimerai que en plus de copier la colonne A en C1 sur une autre feuille

Sh.Range("C1") = Sheets(1).Range("A" & Sh.Previous.Index + 1)

; le nom de la cellule copier (en A) prenne aussi place dans le nom de la feuille concerner(comme titre);
et que si c est possible d avoir un raccourci pour que qu en je veux atteindre une feuille je puisse cliquer sur le nom de la feuille en A et que la feuille s ouvre directement

j espere mettre bien exprimer ...

merci d avance

 

[Kiseki]

Re : Augmenter une formule page par page

Bonjour,

With sh
    .Name = .Range("C1")
    .Hyperlinks.Add Anchor:=.Range("C1"), Address:="", SubAddress:=Sheets(2).Name & "!A1"
End With

A adapter donc.

Tu peux aussi le faire avec une formule :
Les liens hyper-textes