XL 2019 Figer une ligne dans une macro

S

soan

XLDnaute Barbatruc

Inactif

• 16 Décembre 2020

• #2

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

 

Pièces jointes

• Exo RM1204.xlsm

  18.1 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2020

• #3

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

VB:

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

 

Pièces jointes

• Macro test beoin d'aide.xlsm

  14.9 KB · Affichages: 5

Vote positif 0 Vote négatif

R

RM1204

XLDnaute Nouveau

• 16 Décembre 2020

• #4

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.

 

Pièces jointes

• Macro test beoin d'aide.xlsm

  15.5 KB · Affichages: 4

Vote positif 0 Vote négatif

R

RM1204

XLDnaute Nouveau

• 16 Décembre 2020

• #5

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2020

• #6

Si vous utilisez :

VB:

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.

 

Vote positif 0 Vote négatif

R

RM1204

XLDnaute Nouveau

• 16 Décembre 2020

• #7

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2020

• #8

Dans votre fichier initial, on trouve :

VB:

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 ?

 

Vote positif 0 Vote négatif

R

RM1204

XLDnaute Nouveau

• 16 Décembre 2020

• #9

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.

 

Vote positif 0 Vote négatif