Nommer la page précédente

marmotte18 · 24 Janvier 2009

Bonjour,

Je dois aider un ami et je sêche lamentablement.

J'ai la macro suivante :

Code:

Sub Macro1()
    ActiveCell.FormulaR1C1 = _
        "=INDEX(Feuil1!R1:R65536,MATCH(C2,Feuil1!C[13],0),MATCH(R1C,Feuil1!R1,0))"
    Range("C2").Select
End Sub

Elle provient de l'enregistreur automatique de macros, après avoir tapé la formule suivante dans la cellule C2 de Feuil2 :

Code:

=INDEX(Feuil1!$1:$65536;EQUIV($B:$B;Feuil1!P:P;0);EQUIV(C$1;Feuil1!$1:$1;0))

Il souhaiterait la transformer de manière à ne plus faire apparaître "Feuil1" mais une information qui donnerait l'indication de prendre la feuille précédente.

Quelle est la bonne syntaxe pour transformer la macro ?

Merci par avance

job75 · 24 Janvier 2009

Re : Nommer la page précédente

Bonjour marmotte,

Il faut déterminer le nom (propriété Name) de la feuille qui précède la feuille active, en utilisant la propriété Index :

Code:

Sub Macro1()
Dim NomFeuil As String
If ActiveSheet.Index > 1 Then
NomFeuil = Sheets(ActiveSheet.Index - 1).Name
ActiveCell.FormulaR1C1 = _
     "=INDEX(" & NomFeuil & "!R1:R65536,MATCH(C2," & NomFeuil & "!C[13],0),MATCH(R1C," & NomFeuil & "!R1,0))"
Range("C2").Select
End If
End Sub

A+

marmotte18 · 24 Janvier 2009

Re : Nommer la page précédente

Merci job75,

Ta solution marche impécablement bien !

Nommer la page précédente

marmotte18

XLDnaute Impliqué

job75

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

Discussions similaires

Nommer la page précédente

marmotte18

XLDnaute Impliqué

job75

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency