Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel extraire des lignes

extraire des lignes

5 réponses
Avatar
sleg
Bonsoir,

je cherche une macro qui pourrais m'extraire des ligne de donn=E9e
automatiquement

en gros dans mon fichier d'exemple j'aimerais recuperer dans la
feuille 2 par exemple uniquement les lignes :
Printer name nananan :
Extended printer status Unknown


est possible et si oui comment ? chaque "paragraphe" a 18 lignes et
il y a en moyenne 80000 a 10000 lignes .

merci de votre aide.



fichier =3D=3D> http://www.cijoint.fr/cjlink.php?file=3Dcj201004/cij1vBwvtK=
.xlsx
Signaler un problème avec ce contenu

5 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
Jacky
Bonsoir,

ceci peut-être....
Resultat en feuil2 (code name)
'----------------
Sub jj()
Dim x As Long
With Feuil1
Feuil2.Cells.Clear
For i = 4 To .Cells(Rows.Count, 1).End(3).Row Step 19
x = Feuil2.Cells(Rows.Count, 1).End(3).Row + 1
.Cells(i + 2, 1).EntireRow.Copy Feuil2.Range("a" & x)
.Cells(i + 16, 1).EntireRow.Copy Feuil2.Range("a" & x + 1)
Next
End With
End Sub
'---------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201004/cijTZqYuy2.xls

--
Salutations
JJ


"sleg" a écrit dans le message de news:

Bonsoir,

je cherche une macro qui pourrais m'extraire des ligne de donnée
automatiquement

en gros dans mon fichier d'exemple j'aimerais recuperer dans la
feuille 2 par exemple uniquement les lignes :
Printer name nananan :
Extended printer status Unknown


est possible et si oui comment ? chaque "paragraphe" a 18 lignes et
il y a en moyenne 80000 a 10000 lignes .

merci de votre aide.



fichier ==> http://www.cijoint.fr/cjlink.php?file=cj201004/cij1vBwvtK.xlsx
Avatar
Jacky
RE...

Sans vba
Sur une feuille vierge

En A2
=INDIRECT("Feuil1!"&ADRESSE(((LIGNE()/2-1)*19)+6;COLONNE()))
En A3
=INDIRECT("Feuil1!"&ADRESSE(((LIGNE()/2-1)*19)+10.5;COLONNE()))

Sélectionner A2:A3
Et recopier vers la droite et vers le bas aussi loin que besoin

--
Salutations
JJ


"Jacky" a écrit dans le message de news: OZddS%
Bonsoir,

ceci peut-être....
Resultat en feuil2 (code name)
'----------------
Sub jj()
Dim x As Long
With Feuil1
Feuil2.Cells.Clear
For i = 4 To .Cells(Rows.Count, 1).End(3).Row Step 19
x = Feuil2.Cells(Rows.Count, 1).End(3).Row + 1
.Cells(i + 2, 1).EntireRow.Copy Feuil2.Range("a" & x)
.Cells(i + 16, 1).EntireRow.Copy Feuil2.Range("a" & x + 1)
Next
End With
End Sub
'---------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201004/cijTZqYuy2.xls

--
Salutations
JJ


"sleg" a écrit dans le message de news:

Bonsoir,

je cherche une macro qui pourrais m'extraire des ligne de donnée
automatiquement

en gros dans mon fichier d'exemple j'aimerais recuperer dans la
feuille 2 par exemple uniquement les lignes :
Printer name nananan :
Extended printer status Unknown


est possible et si oui comment ? chaque "paragraphe" a 18 lignes et
il y a en moyenne 80000 a 10000 lignes .

merci de votre aide.



fichier ==> http://www.cijoint.fr/cjlink.php?file=cj201004/cij1vBwvtK.xlsx



Avatar
sleg
Bonjour,

merci de ton aide ça fonctionne mais j'ai un petit probleme dans mon
fichier j'ai dans certain cas une ligne vide apres la ligne commençant
par "Comment" est il possible de retirer cette ligne vide apres
"Comment".

merci encorre.

On 7 avr, 20:24, "Jacky" wrote:
Bonsoir,

ceci peut-être....
Resultat en feuil2 (code name)
'----------------
Sub jj()
Dim x As Long
With Feuil1
Feuil2.Cells.Clear
  For i = 4 To .Cells(Rows.Count, 1).End(3).Row Step 19
    x = Feuil2.Cells(Rows.Count, 1).End(3).Row + 1
    .Cells(i + 2, 1).EntireRow.Copy Feuil2.Range("a" & x)
    .Cells(i + 16, 1).EntireRow.Copy Feuil2.Range("a" & x + 1)
  Next
End With
End Sub
'---------------
Voir icihttp://www.cijoint.fr/cjlink.php?file=cj201004/cijTZqYuy2.xls

--
Salutations
JJ

"sleg" a écrit dans le message de news:

Bonsoir,

je cherche une macro qui pourrais m'extraire des ligne de donnée
automatiquement

en gros dans mon fichier d'exemple j'aimerais recuperer dans la
feuille 2 par exemple uniquement les lignes :
Printer name nananan :
Extended printer status Unknown

est possible et si oui comment ? chaque "paragraphe" a 18 lignes  et
il y a en moyenne 80000 a 10000 lignes .

merci de votre aide.

fichier ==>http://www.cijoint.fr/cjlink.php?file=cj201004/cij1vBwvt K.xlsx
Avatar
Jacky
Re..

Je ne saisie pas tout a fait le sens.....
Il y a des blocs de 19 lignes de Server name à Server name
Y a t'il des blocs de 20 lignes ?

Si oui, un passage avant le traitement avec cette macro
'----------------------
Sub jj3()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim i As Long
With Feuil1
For i = 4 To .Cells(Rows.Count, 1).End(3).Row
If Left(.Cells(i, 1), 7) = "Comment" And .Cells(i + 1, 1) = "" Then .Cells(i + 1, 1).EntireRow.Delete
Next
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'---------------------

--
Salutations
JJ


"sleg" a écrit dans le message de news:

Bonjour,

merci de ton aide ça fonctionne mais j'ai un petit probleme dans mon
fichier j'ai dans certain cas une ligne vide apres la ligne commençant
par "Comment" est il possible de retirer cette ligne vide apres
"Comment".

merci encorre.

On 7 avr, 20:24, "Jacky" wrote:
Bonsoir,

ceci peut-être....
Resultat en feuil2 (code name)
'----------------
Sub jj()
Dim x As Long
With Feuil1
Feuil2.Cells.Clear
For i = 4 To .Cells(Rows.Count, 1).End(3).Row Step 19
x = Feuil2.Cells(Rows.Count, 1).End(3).Row + 1
.Cells(i + 2, 1).EntireRow.Copy Feuil2.Range("a" & x)
.Cells(i + 16, 1).EntireRow.Copy Feuil2.Range("a" & x + 1)
Next
End With
End Sub
'---------------
Voir icihttp://www.cijoint.fr/cjlink.php?file=cj201004/cijTZqYuy2.xls

--
Salutations
JJ

"sleg" a écrit dans le message de news:

Bonsoir,

je cherche une macro qui pourrais m'extraire des ligne de donnée
automatiquement

en gros dans mon fichier d'exemple j'aimerais recuperer dans la
feuille 2 par exemple uniquement les lignes :
Printer name nananan :
Extended printer status Unknown

est possible et si oui comment ? chaque "paragraphe" a 18 lignes et
il y a en moyenne 80000 a 10000 lignes .

merci de votre aide.

fichier ==>http://www.cijoint.fr/cjlink.php?file=cj201004/cij1vBwvtK.xlsx
Avatar
sleg
merci beaucoup pour ton aide c nickel.

bonne journée.


On 8 avr, 10:11, "Jacky" wrote:
Re..

Je ne saisie pas tout a fait le sens.....
Il y a des blocs de 19 lignes de Server name à Server name
Y a t'il des blocs de 20 lignes  ?

Si oui, un passage avant le traitement avec cette macro
'----------------------
Sub jj3()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim i As Long
With Feuil1
  For i = 4 To .Cells(Rows.Count, 1).End(3).Row
     If Left(.Cells(i, 1), 7) = "Comment" And .Cells(i + 1, 1) = "" Then .Cells(i + 1, 1).EntireRow.Delete
  Next
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'---------------------

--
Salutations
JJ

"sleg" a écrit dans le message de news:

Bonjour,

merci de ton aide ça fonctionne mais j'ai un petit probleme dans mon
fichier j'ai dans certain cas une ligne vide apres la ligne commençant
par "Comment" est il possible de retirer cette ligne vide apres
"Comment".

merci encorre.

On 7 avr, 20:24, "Jacky" wrote:



> Bonsoir,

> ceci peut-être....
> Resultat en feuil2 (code name)
> '----------------
> Sub jj()
> Dim x As Long
> With Feuil1
> Feuil2.Cells.Clear
> For i = 4 To .Cells(Rows.Count, 1).End(3).Row Step 19
> x = Feuil2.Cells(Rows.Count, 1).End(3).Row + 1
> .Cells(i + 2, 1).EntireRow.Copy Feuil2.Range("a" & x)
> .Cells(i + 16, 1).EntireRow.Copy Feuil2.Range("a" & x + 1)
> Next
> End With
> End Sub
> '---------------
> Voir icihttp://www.cijoint.fr/cjlink.php?file=cj201004/cijTZqYuy2.xls

> --
> Salutations
> JJ

> "sleg" a écrit dans le message de news:
>
> Bonsoir,

> je cherche une macro qui pourrais m'extraire des ligne de donnée
> automatiquement

> en gros dans mon fichier d'exemple j'aimerais recuperer dans la
> feuille 2 par exemple uniquement les lignes :
> Printer name nananan :
> Extended printer status Unknown

> est possible et si oui comment ? chaque "paragraphe" a 18 lignes et
> il y a en moyenne 80000 a 10000 lignes .

> merci de votre aide.

> fichier ==>http://www.cijoint.fr/cjlink.php?file=cj201004/cij1vBw vtK.xlsx- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -