Discussion :

[Yannick14670]

Bonjour,

En fonction d'une valeur de cellule de la colonne U - je souhaite insérer en dessous le nombre de ligne de cette valeur et copier le contenu de la ligne

Exemple :
En ligne 12 - colonne U12 = 1 - j'insère 1 ligne en dessous de la ligne 12 et je colle les valeurs de la ligne 12
En ligne 24 - Colonne U24 = 4 - j'insère 4 lignes en dessous de la ligne 24 et je colle à chaque fois les valeurs de la ligne 24
etc..

Je vous remercie de m'aider

[mjpmjp]

bonjour,
dans le ruban (menu), onglet développeur, tu actionne "enregistrer une macro"
à partir de cet instant toutes tes actions sont enregistrées dans un module
tu devras arrêter l'enregistrement

l'action à enregistrer est : insérer une ligne en 13

En ligne 12 - colonne U12 = 1 - j'insère 1 ligne en dessous de la ligne 12 et je colle les valeurs de la ligne 12

tu arrêtes l'enregistrement et tu obtiens une macro

tu recommences..
l'action à enregistrer est : copier la ligne 12 et insérer en 13
tu arrêtes l'enregistrement et tu obtiens une 2eme macro

En ligne 24 - Colonne U24 = 4 - j'insère 4 lignes en dessous de la ligne 24 et je colle à chaque fois les valeurs de la ligne 24

tu prévois de répéter 4 fois la macro d'insertion de ligne

tu mets donc cette macros dans une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
for n=1 to 4
  macro d'insertion de ligne
next n

le n ce place à la place de 24+1 --> rows(24 + n)

il te reste à écrire le code pour tester les cellules de la colonne "U"
dont la ligne qui teste le contenu et qui appelle la macro qui copie la ligne 24 et insère de 24+n -->25 (n=1) à 28 (n=4)

montres nous ton code ...

@+JP

[mjpmjp]

bonjour,
voila à quoi ressemble la macro que tu appelles : call CopierEtInsererLigne(24,4)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
private sub CopierEtInsererLigne (LigneCopier as double, NombreDeFois as integer)
  'ICI code pour copier la ligne "LigneCopier" --> rows(LigneCopier)
 
  'ICI code pour inserer la ligne
     for n=1 to NombreDeFois
        macro d'insertion de ligne
     next n
end sub

@+JP