maval
XLDnaute Barbatruc
Bonjour,
J'ai un petit souci avec mon code.
J'ai ajoutes une colonne avant la colonne "C" de la feuille nommé "Données" depuis je n'arrive pas a classer sa doit être a se niveau mais je ne c'est pas?
Merci de votre aide
Cordialement
Maval
J'ai un petit souci avec mon code.
J'ai ajoutes une colonne avant la colonne "C" de la feuille nommé "Données" depuis je n'arrive pas a classer sa doit être a se niveau mais je ne c'est pas?
Code:
ActiveCell.FormulaR1C1 = "=Données!R[-1]C[-3]"
Code:
'Classement
Private Sub Worksheet_Activate()
Dim vTabl As Range
'ActiveSheet.Unprotect
Range("F5").Select
ActiveCell.FormulaR1C1 = "=Données!R[-1]C[-3]"
Range("F5").Select
Selection.AutoFill Destination:=Range("F5:F103"), Type:=xlFillDefault
Range("F5:F103").Select
Range("G5").Select
ActiveCell.FormulaR1C1 = "=Données!R[-1]C[-3]"
Range("G5").Select
Selection.AutoFill Destination:=Range("G5:g103"), Type:=xlFillDefault
Range("G5:g103").Select
Range("E5").Select
ActiveCell.FormulaR1C1 = "=Données!R[-1]C[3]"
Range("E5").Select
Selection.AutoFill Destination:=Range("E5:E103"), Type:=xlFillDefault
Range("E5:E103").Select
Range("h5").Select
ActiveCell.FormulaR1C1 = "=Données!R[-1]C[-1]"
Range("h5").Select
Selection.AutoFill Destination:=Range("h5:h103"), Type:=xlFillDefault
Range("h5:h103").Select
Range("E5:h103").Select
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Merci de votre aide
Cordialement
Maval