[Excel] lien CEL/CEL sur feuille inexistante
J0K0
Messages postés
167
Statut
Membre
-
J0K0 Messages postés 167 Statut Membre -
J0K0 Messages postés 167 Statut Membre -
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 !
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 !
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
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
