[Excel] lien CEL/CEL sur feuille inexistante

Question

Bonjour à toutes et tous, 

Grâce à l'aide d'un helpeur, je viens de finaliser le bout de code suivant, me servant à copier une feuille, la renommer en "1", puis les suivantes en "2", "3", etc ...

Private Sub CommandButton1_Click()
    'Sélectionne la feuille 0 (vierge) et la copie
    Sheets("0").Copy Before:=Sheets(1)
    ActiveSheet.Name = Worksheets.Count - 2
End Sub

J'aimerais ajouter à ces lignes un moyen de faire un lien du contenu d'une cellule de cette page vers une cellule d'une autre page.
J'avais comme première intention un simple : 
='1'!A6
--> Sauf que ma feuille 1 n'est pas encore créée.

Une idée peut être ?

merci !

J0K0 · Answer

Rebonjour !

Voici un bout de code via l'enregistreur, rebidouillé, mais qui ne marche pas des masses !

Sub Macro4()
    Range("A6:AL8").Select
    ActiveCell.FormulaR1C1 = "test"
    With ActiveCell.Characters(Start:=1, Length:=4).Font
        .Name = "Tahoma"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Sheets("recapitulatif").Select
    Range("A5:H5").Select
    ActiveCell.FormulaR1C1 = "test"
    Range("A10:H10").Select
End Sub

de plus cette première esquisse met le contenu de la cellule vers récapitulatif n'importe où dans mon tableau ... Auriez vous quelque chose de plus simple ?
Je pensais à un ='1'!A6 mais si la feuille 1 n'existe pas, ça ne marche pas !

:(

merci

[Excel] lien CEL/CEL sur feuille inexistante

1 réponse

Votre réponse

Discussions similaires

Newsletters