Bonsoir à tous !
J'ai un petit soucis que je n'arrive pas à régler...
Dans la 1ère ligne de mon code, je souhaiterais sélectionner de la ligne 6 à 10 mais pas de la feuille active mais d'une autre feuille.
Sub NouvelleLigne()
Rows("6:10").Select
Application.CutCopyMode = False
Selection.Copy
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Range("B6:Z9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B6").Select
ActiveCell.FormulaR1C1 = "Date"
Range("B7:C7").Select
ActiveCell.FormulaR1C1 = "Qualité précédente"
Range("B8:C8").Select
ActiveCell.FormulaR1C1 = "Quenching de la recette"
Range("D8").Select
ActiveCell.FormulaR1C1 = "Humidité"
Range("E8").Select
ActiveCell.FormulaR1C1 = "Valeur du nouveau quenching"
Range("C6").Select
ActiveCell.FormulaR1C1 = "Heure"
Range("D6").Select
ActiveCell.FormulaR1C1 = "À froid"
Range("D7").Select
ActiveCell.FormulaR1C1 = "Temps d'arrêt"
Range("E7").Select
ActiveCell.FormulaR1C1 = "Couleur"
Range("E6").Select
ActiveCell.FormulaR1C1 = "Température"
Range("B9:E9").Select
ActiveCell.FormulaR1C1 = "Rep 1 et 2"
Range("F6:G6").Select
End Sub
J'ai essayé quelque chose du genre mais ça ne marche pas :
Worksheets("Model_Recipe").Rows("6:10").Select
Pourriez-vous m'aider ?