Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Insertion de ligne nouveau cas de figure

Insertion de ligne nouveau cas de figure

4 réponses
Avatar
eis
colonne H. Après avoir trié mon tableau, je ne veux isoler que la 1ère
> ligne avec un 3. En fait, voilà ce que je veux isoler les lignes > à 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
> 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
Signaler un problème avec ce contenu

4 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
Philippe.R
Bonsoir,
Voici un eprocédure qui fonctionne sur ton exemple comportant une chaîne de 24 caractères avec le
chiffre discriminant situé en 9 ème position à partir de la droite :

Sub inserligne_si3()
'MPFE Philippe.R le 27/09/2003
Dim laCel As Range, leCont As String
For Each laCel In Range("h1:h20")
leCont = laCel.Value
If Left(Right(leCont, 9), 1) = "3" Then
laCel.Select
Selection.EntireRow.Insert Shift:=xlDown
Exit Sub
End If
Next laCel
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"eis" a écrit dans le message de
news:OY$
colonne H. Après avoir trié mon tableau, je ne veux isoler que la 1ère
ligne avec un 3. En fait, voilà ce que je veux isoler les lignes > à 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
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







Avatar
AV
colonne H. Après avoir trié mon tableau, je ne veux isoler que la 1ère
ligne avec un 3



Rows([H:H].Find("3").Row).Insert

AV


Avatar
eis
merci pour l'info
"Philippe.R" a écrit dans le message de news:
bl500c$cna$
Bonsoir,
Voici un eprocédure qui fonctionne sur ton exemple comportant une chaîne
de 24 caractères avec le

chiffre discriminant situé en 9 ème position à partir de la droite :

Sub inserligne_si3()
'MPFE Philippe.R le 27/09/2003
Dim laCel As Range, leCont As String
For Each laCel In Range("h1:h20")
leCont = laCel.Value
If Left(Right(leCont, 9), 1) = "3" Then
laCel.Select
Selection.EntireRow.Insert Shift:=xlDown
Exit Sub
End If
Next laCel
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"eis" a écrit dans le message de
news:OY$
colonne H. Après avoir trié mon tableau, je ne veux isoler que la 1ère
ligne avec un 3. En fait, voilà ce que je veux isoler les lignes > à 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
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











Avatar
eis
c'est sympa merci
yves
"AV" a écrit dans le message de news:
#
colonne H. Après avoir trié mon tableau, je ne veux isoler que la 1ère
ligne avec un 3



Rows([H:H].Find("3").Row).Insert

AV