Insertion Lignes Suite

bonjour Yves,

pour une solution macro,

Sub InsertLigneSi3()
For i = Range("H65536").End(xlUp).Row To 1 Step -1
If Range("H" & i) = 3 Then Rows(i).Insert Shift:=xlDown
Next
End Sub

isabelle

Bonjour à tous !
Comment inserrer automatiquement une ligne dans un tableau
lorsque la valeur d'une cellule dans la colonne H est égale à 3 ?
merci pour vos lumières
Yves

Bonjour Isabelle
j'ai déjà eu l'occasion de te remercier pour ton aide.J'espérais me
débrouiller avec une partie de la solution mais là
j'ai un souçi avec ton code.Quand je l'exécute il me crée des lignes vierges
au dessus de chaque lignes avec un 3 en
colonne H. Après avoir trié mon tableau, moi je ne veux isoler que la 1ère
ligne avec un 3. En fait, voilà la totalité de
ce que je veux obtenir.Je veux isoler les lignes avec des 1, puis les lignes
avec des 2, puis les lignes au dessus de 2.
x x x x x x x 1 x x x x
x x x x x x x 1 x x x x
x x x x x x x 1 x x x x
ligne vide
x x x x x x x 2 x x x x
x x x x x x x 2 x x x x
ligne vide
x x x x x x x 3 x x x x
x x x x x x x 3 x x x x
x x x x x x x 3 x x x x
x x x x x x x 3 x x x x
x x x x x x x 4 x x x x
x x x x x x x 4 x x x x
x x x x x x x 5 x x x x
x x x x x x x 5 x x x x
x x x x x x x 6 x x x x
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3F735403.C6CF2890@videotron.ca...

bonjour Yves,

pour une solution macro,

Sub InsertLigneSi3()
For i = Range("H65536").End(xlUp).Row To 1 Step -1
If Range("H" & i) = 3 Then Rows(i).Insert Shift:=xlDown
Next
End Sub

isabelle

Bonjour à tous !
Comment inserrer automatiquement une ligne dans un tableau
lorsque la valeur d'une cellule dans la colonne H est égale à 3 ?
merci pour vos lumières
Yves