Bonjour,
J’ai un petit souci sur un code en VBA. J'ai cherché sur votre forum, j'ai des piste, mais pas de réponse.
J’aimerai copier une ligne, et à partir d’un nombre sur une cellule, la répliqué autant de fois à partir de la ligne copié.
Par exemple :
La cellule contient le nombre « 5 »
le code va copier la ligne 4, sélectionner de la ligne 4 à 8 (4 + le nombre 5) et coller sur la sélection.
J’ai fait un début de code :
Dim i As Integer
Sheets("Template").Select //sélectionne la feuille
Range("4:4").EntireRow.Copy //copie la ligne 4
i = Sheets("Tableau de bord").Range("C31").Value // récupère la valeur de la cellule (sur une autre feuille)
Range("4:4+i").EntireRow.Select // là c’est moche :)
Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove //colle la ligne sur les ligne sélectionné.
Après j'ai aussi un autre code, juste pour sélectionner les cellules que je veux mais je trouve le code plus compliqué
Dim i As Integer
Sheets("Template").Select
Range("F4:K4").Copy
i = Sheets("Tableau de bord").Range("C31").Value
Range("F4:K4+i").Select
Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Pouvez vous m’aider sur la sélection de lignes suivant la valeur de la cellule.
Merci de votre aide