extraire des lignes

Le
sleg
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #21514982
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"
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
Jacky
Le #21516022
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"
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"
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



sleg
Le #21517232
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"
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"
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
Jacky
Le #21517592
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"
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"
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"
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
sleg
Le #21518002
merci beaucoup pour ton aide c nickel.

bonne journée.


On 8 avr, 10:11, "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"
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"


> 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" >
> 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 -
Publicité
Poster une réponse
Anonyme