XL 2019 Figer une ligne dans une macro

[RM1204]

Bonjour à tous,
Après de multiples tentatives et recherches, je n'ai pas trouvé de solutions à mon problème.
Voilà, j'ai réalisé une macro très basique en enregistrant un étirement de certaines cellules.
Malheureusement je m'attendais à ce que, lors de l'insertion de ligne ma macro se mette à jours toute seule, ce qui n'est pas le cas. Elle se réalise jusqu'à la cellule où j'ai tiré donc, après insertion de ligne, celle ci ne les comptabilise pas, j'ai mis le dossier en fichier joint pour que vous puissiez y voir plus clair.
J'aurais donc besoin de votre aide pour résoudre ce problème. J'ai déjà essayé de mettre des $, mais sans résultats …
HELP PLZ!

PS: Premier post sur un forum !

 

[soan]

Bonjour RM1204,

Bienvenue sur le site XLD !

ton fichier en retour.

a) sélectionne F11 ; saisis 130 et valide
b) sélectionne F12 ; saisis 80 et valide

ça marche pareil pour les lignes en dessous.

à te lire pour avoir ton avis.

soan

 

[sylvanu]

Bonjour RM bienvenu sur XLD, Bonjour Soan,
Un essai avec simplement :

Sub Macro_Test()
    Range("G3:U4").Copy Destination:=Range("G3:U10")
End Sub

 

[RM1204]

Bonjour, je vous remercie de vos réponses rapides.
Malheureusement, ce n'est pas ce que je recherche .
Je ne sais même pas si c'est possible à vrai dire.
Je souhaiterais que lors de l'insertion d'une ligne ma macro soit à jour.
Je m'explique, dans mon cas je prends les cellules de G3 à U4 et mon but est de les étirer jusqu'aux cellules G3:U10.
Rien de bien compliqué me direz-vous? Mais lorsque je veux insérer une ligne entre G3:U4 et G3:U10 la macro reste la même et traite jusqu'à G3:U10 .Pourtant, il y a maintenant 11 lignes à traiter et je souhaiterais que la macro se mette à jour au fur et à mesure que j'ajoute des lignes. La première partie du tableau est toute les deux semaines je veux un nombre. Et la deuxième partie du tableau est toutes les 3 semaines.
Voila le dossier en un peu plus grand que le précédent. L'officiel est vraiment énorme.
En espérant vous relire très vite.

 

[RM1204]

Désolé du double poste mais je pensais à quelque chose comme ça dans la macro.
Tant que colonne A = 2semaines alors on prends les deux première ligne et on étire.
Je ne sais pas comment faire cela et si c'est la bonne idée.

 

[sylvanu]

Si vous utilisez :

Sub Macro_Test()
    DL = Range("C65500").End(xlUp).Row
    Range("G3:U4").Copy Destination:=Range("G3:U" & DL)
End Sub

DL calcula la dernière ligne du tableau.
Le copier coller est alors dynamique de la ligne 3 à la dernière ligne.

 

[RM1204]

Merci Sylvanu, mais lorsque j'insère une ligne, cela ne fonctionne pas :/, il faut que j'en insère 2 pour que cela fonctionne. Or je n'aurais pas tout le temps besoin d'insérer 2 ligne en même temps.

 

[sylvanu]

Dans votre fichier initial, on trouve :

Range("G3:U4").Select

Donc on sélectionne deux lignes pour les dupliquer.
Si vous n'insérer qu'une ligne, qu'est ce qu'on duplique ?

 

[RM1204]

La combinaison qui suit celle du dessus. La première ligne doit être réaliser en S1/S3/S5 etc...
La deuxième S2/S4/S6 etc...
La ligne que j'insère doit suivre celle du dessus. Si celle du dessus était comme la première alors elle devra être comme la deuxième et vice-versa.