Augmenter une formule page par page

K

Kiseki

XLDnaute Occasionnel

• 10 Octobre 2011

• #2

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.

VB:

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 10 Octobre 2011

• #3

Re : Augmenter une formule page par page

Bonjour

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

Code:

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

Code:

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)

 

Dernière édition: 10 Octobre 2011

Vote positif 0 Vote négatif

T

toons

Guest

• 10 Octobre 2011

• #4

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 !!!

 

Vote positif 0 Vote négatif

T

toons

Guest

• 10 Octobre 2011

• #5

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 11 Octobre 2011

• #6

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)

 

Vote positif 0 Vote négatif

T

toons

Guest

• 14 Octobre 2011

• #7

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 ....

 

Vote positif 0 Vote négatif

T

toons

Guest

• 16 Octobre 2011

• #8

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

 

Vote positif 0 Vote négatif

K

Kiseki

XLDnaute Occasionnel

• 17 Octobre 2011

• #9

Re : Augmenter une formule page par page

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif