Discussion :

[dec3003]

bonjour a tous

voila mon petit souci ma dernierre feuille est composée de plusieure cellule contenant un titre j aimerai pouvoir inserer des ligne juste en desous de chaque cellule titre selon condition exemple inserer la ligne 1 de la feuill 1 sous la ligne titre1 si la cellule "d1" de la lige 1 contien le "titre1"
seulement je ne connais pas la synthaxe de linsertion de ligne j ai chercher mais sans resultat

en claire

Code :

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

1
2
3
IF Worksheets(feuil1).cells(i;3).Text = Worksheets(feuil2).Cells(A1).text then 
??????????????' insere la ligne1 de la Worksheets(feuil1) sous la Worksheets(feuil2).Cells(A1)
end if

merci d'avance


ps j aimerai si possible garder la meme mise en forme donc garder la meme couleur de text, de fond, et la meme police et taille
et ne pas deplacer la ligne mais plutot inserer une copie de cette ligne

[wilfried_42]

bonjour

essaye ça :

Code :

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

Worksheets(feuil1).rows(i+1).insert

attention, tu travailles dans une boucle (je pense à For / Next)
en ajoutant des lignes, ta limite inférieure va augmenter à chaque insertion. si tu utilises For / Next, change et utile Do loop until ou While / Wend