Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Re: Insertion Lignes Suite

Re: Insertion Lignes Suite

2 réponses
Avatar
eis
"eis" <nospam-ychene@wanadoo.fr> a écrit dans le message de news: ...
> 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
> >
> > eis a écrit :
> > >
> > > 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
>
>
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
Bonjour,

Avec le 1er 1 en H1 :

Sub Toto()
a = Application.CountIf(Columns(8), 1)
Range("h1").Select
For cpt = 1 To 2
ActiveCell.Offset(a).Select
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1).Select
a = Application.CountIf(Columns(8), 2)
Next
End Sub

Camille

-----Message d'origine-----

"eis" a écrit dans le message
de news: ...

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" a écrit dans
le message de news:



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







.






Avatar
eis
Merci beaucoup Camille
J'avais oublier de repréciser que mes données commençaient en 2ème ligne
mais en modifiant H1 en H2, ton code marche parfaitement.
encore merci et bonjour à tous
yves
"Ellimac" a écrit dans le
message de news: 200701c3843c$f0c51d60$
Bonjour,

Avec le 1er 1 en H1 :

Sub Toto()
a = Application.CountIf(Columns(8), 1)
Range("h1").Select
For cpt = 1 To 2
ActiveCell.Offset(a).Select
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1).Select
a = Application.CountIf(Columns(8), 2)
Next
End Sub

Camille

-----Message d'origine-----

"eis" a écrit dans le message
de news: ...

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" a écrit dans
le message de news:



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







.