[Excel]Nom de la dernière feuille utilisée
Résolu/Fermé
J0K0
Messages postés
163
Date d'inscription
lundi 7 mai 2007
Statut
Membre
Dernière intervention
19 juillet 2019
-
13 nov. 2009 à 00:23
J0K0 Messages postés 163 Date d'inscription lundi 7 mai 2007 Statut Membre Dernière intervention 19 juillet 2019 - 13 nov. 2009 à 00:51
J0K0 Messages postés 163 Date d'inscription lundi 7 mai 2007 Statut Membre Dernière intervention 19 juillet 2019 - 13 nov. 2009 à 00:51
A voir également:
- [Excel]Nom de la dernière feuille utilisée
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Aller à la ligne excel - Guide
- Formule excel - Guide
- Nom de l'adresse - Forum Consommation & Internet
1 réponse
J0K0
Messages postés
163
Date d'inscription
lundi 7 mai 2007
Statut
Membre
Dernière intervention
19 juillet 2019
17
13 nov. 2009 à 00:51
13 nov. 2009 à 00:51
RE,
en fait, j'ai trouvé une autre astuce qui pour l'instant me plait assez, mais j'ai une erreur :
Sub Macro7()
ActiveSheet.Range("A6:AL6").Copy
Sheets("recapitulatif").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5:AL5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A5:AL5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
'ActiveCell.FormulaR1C1 = "='2'!R[1]C"
ActiveSheet.Range("A6:AL6").Paste
'Range("A6:AL6").Select
End Sub
Cette erreur se situe à la fin :
ActiveSheet.Range("A6:AL6").Paste
Une idée ? merci !
en fait, j'ai trouvé une autre astuce qui pour l'instant me plait assez, mais j'ai une erreur :
Sub Macro7()
ActiveSheet.Range("A6:AL6").Copy
Sheets("recapitulatif").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5:AL5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A5:AL5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
'ActiveCell.FormulaR1C1 = "='2'!R[1]C"
ActiveSheet.Range("A6:AL6").Paste
'Range("A6:AL6").Select
End Sub
Cette erreur se situe à la fin :
ActiveSheet.Range("A6:AL6").Paste
Une idée ? merci !