FFO ?

Le
Michel69
voici ton code que j'ai modifié (feuil1 en bdd). Il faut savoir qu'il
fonctionne mais ne me recopie que la 1ère ligne (entête de col) ans info
dessous ?
Private Sub recherche()
Référence = InputBox("Saisisez la Référence", "Référence")
On Error Resume Next
ligne = Sheets("bdd").Range("E3", "E" &
Sheets("bdd").Range("E65535").End(xlUp).Row).Find(What:=Référence, _
After:=Sheets("bdd").Range("E3"), LookIn:=xlValues, LookAt:=xlWhole).Row
If ligne <> "" Then Sheets("bdd").Range("A1").EntireRow.Copy
Sheets.Add.Range("A1")
ActiveSheet.Name = Référence
Sheets("bdd").Range("A" & ligne).EntireRow.Copy
Sheets("référence").Range("A65535").End(xlUp).Offset(1, 0).lignesuivante =
ligne
For i = 1 To Sheets("bdd").Range("E65535").End(xlUp).Row
lignesuivante = Sheets("bdd").Range("E3", "E" &
Sheets("bdd").Range("E65535").End(xlUp).Row).FindNext(After:=Range("E" & _
lignesuivante)).Row
If lignesuivante > ligne Then Sheets("bdd").Range("A" &
ligne).EntireRow.Copy
Sheets("Référence").Range("A65535").End(xlUp).Offset(1, 0).lignesuivante =
ligne
Exit For
i = i + 1
Next
End Sub

Si je relance cette proc il me crèe une autre feuille.. sans les infos,
Ouppsss !
Tu vois le pb ?

Bien à toi
Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #18055101
Rebonjour Michel

Je pense ne pas avoir trés bien compris ton attente
Je t'ai conçu un code qui récupère dans une boîte de dialogue une référence,
la recherche en colonne E
A la première trouvée il recopie la 1° ligne dans un nouvel Onglet pour
récupérer les entêtes de colonne
Il renome ce nouvel Onglet avec la référence
Il recopie toute la ligne de la 1° référence trouvé
Il continue sa recherche pour recopier dans ce nouvel Onglet les lignes des
références correspondantes identiques

Mais ce n'est peut être pas ton résultat escompté

Dans cette alternative peux tu m'envoyer un fichier avec sur un Onglet les
données et sur un autre ce que tu souhaites

Sur ce lien :
http://www.cijoint.fr/index.php

Communiques moi le lien pour le récupérer

Merci d'avance
Michel69
Le #18055071
Re FFO,
Tu as très bien compris et je te remercie,
Ton code fonctionne parfaitement jusqu'à la création de l'onglet renommé
mais il ne recopie pas la 1ère ligne trouvé de la référence ni les autres
Cordialement
Michel
"FFO" a écrit :

Rebonjour Michel

Je pense ne pas avoir trés bien compris ton attente
Je t'ai conçu un code qui récupère dans une boîte de dialogue une référence,
la recherche en colonne E
A la première trouvée il recopie la 1° ligne dans un nouvel Onglet pour
récupérer les entêtes de colonne
Il renome ce nouvel Onglet avec la référence
Il recopie toute la ligne de la 1° référence trouvé
Il continue sa recherche pour recopier dans ce nouvel Onglet les lignes des
références correspondantes identiques

Mais ce n'est peut être pas ton résultat escompté

Dans cette alternative peux tu m'envoyer un fichier avec sur un Onglet les
données et sur un autre ce que tu souhaites

Sur ce lien :
http://www.cijoint.fr/index.php

Communiques moi le lien pour le récupérer

Merci d'avance



Michel69
Le #18055051
FFO j'ai placé un bout du fichier ici :
http://www.cijoint.fr/cjlink.php?file=cj200812/cij3f6gjcW.xls


"FFO" a écrit :

Rebonjour Michel

Je pense ne pas avoir trés bien compris ton attente
Je t'ai conçu un code qui récupère dans une boîte de dialogue une référence,
la recherche en colonne E
A la première trouvée il recopie la 1° ligne dans un nouvel Onglet pour
récupérer les entêtes de colonne
Il renome ce nouvel Onglet avec la référence
Il recopie toute la ligne de la 1° référence trouvé
Il continue sa recherche pour recopier dans ce nouvel Onglet les lignes des
références correspondantes identiques

Mais ce n'est peut être pas ton résultat escompté

Dans cette alternative peux tu m'envoyer un fichier avec sur un Onglet les
données et sur un autre ce que tu souhaites

Sur ce lien :
http://www.cijoint.fr/index.php

Communiques moi le lien pour le récupérer

Merci d'avance



FFO
Le #18055041
Rebonjour Michel
As tu essayé mon exemple ????

http://www.cijoint.fr/cjlink.php?file=cj200812/cijY3SaWu8.xls


Fais des essais et dis moi ce qui cloche

Tu peux aussi me transmettre ton exemple par le biais de ce site :

http://www.cijoint.fr/index.php

Je crois que du concret vaut mieux que des longs discours

Merci
FFO
Le #18055241
Rebonjour Michel

Est tu certain du fichier envoyé ????
Pas d'onglet "bdd"
1 seul Onglet "Parametrage"
Colonne E vide de toute référence

J'ai des doutes quant au bon fichier reçu

Peux tu m'en dire plus !!!!

Merci
Michel69
Le #18055391
FFO,
Désolé.
Je viens d'essayer ton exemple. Il fonctionne mais en cas de plusieurs
occurences d'un matricule il me recopie autant de fois la 1ère trouvée et pas
les autres ?
Merci de ton aide
Michel

"FFO" a écrit :

Rebonjour Michel

Est tu certain du fichier envoyé ????
Pas d'onglet "bdd"
1 seul Onglet "Parametrage"
Colonne E vide de toute référence

J'ai des doutes quant au bon fichier reçu

Peux tu m'en dire plus !!!!

Merci



FFO
Le #18055371
Rebonjours

Je n'arrive pas à comprendre ce que tu veux dire :


"en cas de plusieurs
occurences d'un matricule il me recopie autant de fois la 1ère trouvée et pas
les autres ?"

Où sont les matricule par rapport aux occurences ???
Pas sur la même ligne ???
Mais alors comment distinguer les unes des autres pour savoir que l'une est
un matricule l'autre est une occurence ????

Grand mystère pour moi

Un exemple serait salutaire avec explications appropriées

Merci pour moi
Michel69
Le #18055501
FFO,
Voici un exemple concret
Merci pour ton temps
Michel

"FFO" a écrit :

Rebonjours

Je n'arrive pas à comprendre ce que tu veux dire :


"en cas de plusieurs
occurences d'un matricule il me recopie autant de fois la 1ère trouvée et pas
les autres ?"

Où sont les matricule par rapport aux occurences ???
Pas sur la même ligne ???
Mais alors comment distinguer les unes des autres pour savoir que l'une est
un matricule l'autre est une occurence ????

Grand mystère pour moi

Un exemple serait salutaire avec explications appropriées

Merci pour moi



FFO
Le #18055721
Rebonjour Michel

Tu as laissé l'adresse du lien dans la Souris !!!!
Tu ne me l'a pas transmis pour récupérer ton document

Si les Occurences sont sur les lignes qui suivent la référence en partant du
postulat que la colonne des références (colonne E) est vide pour chaque
Occurence je te propose ce code :

Référence = InputBox("Saisisez la Référence", "Référence")
On Error Resume Next
Ligne = Sheets("bdd").Range("E1", "E" &
Sheets("bdd").Range("E65535").End(xlUp).Row).Find(What:=Référence,
After:=Sheets("bdd").Range("E1"), LookIn:=xlValues, _
LookAt:=xlWhole).Row
If Ligne <> "" Then
Sheets("bdd").Range("A1").EntireRow.Copy Sheets.Add.Range("A1")
ActiveSheet.Name = Référence
i = 0
Do While Sheets("bdd").Range("E" & Ligne).Offset(i + 1, 0) = ""
i = i + 1
Loop
Sheets("bdd").Range("A" & Ligne, "A" & Sheets("bdd").Range("A" &
Ligne).Offset(i, 0).Row).EntireRow.Copy
Sheets(Référence).Range("A65535").End(xlUp).Offset(1, 0)
Lignesuivante = Ligne
For j = 1 To Sheets("bdd").Range("E65535").End(xlUp).Row
Lignesuivante = Sheets("bdd").Range("E1", "E" &
Sheets("bdd").Range("E65535").End(xlUp).Row).FindNext(After:=Range("E" &
Lignesuivante)).Row
If Lignesuivante > Ligne Then
i = 0
Do While Sheets("bdd").Range("E" & Lignesuivante).Offset(i + 1, 0) = ""
i = i + 1
Loop
Sheets("bdd").Range("A" & Lignesuivante, "A" & Sheets("bdd").Range("A" &
Lignesuivante).Offset(i, 0).Row).EntireRow.Copy
Sheets(Référence).Range("A65535").End(xlUp).Offset(1, 0)
Else
Exit For
End If
j = j + 1
Next
End If

Sur ce lien mon exemple corrigé ainsi

Colonne E certaines références ont des Ocurrences (2,10,15)

Fais des essais avec et donnes moi ton avis !!!!

http://www.cijoint.fr/cjlink.php?file=cj200812/cijjaq86Qx.xls
Michel69
Le #18055711
Désolé FFO,
Croisement de pattes et plantage micro.
Voici le classeur avec l'adresse
http://www.cijoint.fr/cjlink.php?file=cj200812/cijlUlD1a5.xls
Merci pour le temps consacré
Michel

"FFO" a écrit :

Rebonjour Michel

Tu as laissé l'adresse du lien dans la Souris !!!!
Tu ne me l'a pas transmis pour récupérer ton document

Si les Occurences sont sur les lignes qui suivent la référence en partant du
postulat que la colonne des références (colonne E) est vide pour chaque
Occurence je te propose ce code :

Référence = InputBox("Saisisez la Référence", "Référence")
On Error Resume Next
Ligne = Sheets("bdd").Range("E1", "E" &
Sheets("bdd").Range("E65535").End(xlUp).Row).Find(What:=Référence,
After:=Sheets("bdd").Range("E1"), LookIn:=xlValues, _
LookAt:=xlWhole).Row
If Ligne <> "" Then
Sheets("bdd").Range("A1").EntireRow.Copy Sheets.Add.Range("A1")
ActiveSheet.Name = Référence
i = 0
Do While Sheets("bdd").Range("E" & Ligne).Offset(i + 1, 0) = ""
i = i + 1
Loop
Sheets("bdd").Range("A" & Ligne, "A" & Sheets("bdd").Range("A" &
Ligne).Offset(i, 0).Row).EntireRow.Copy
Sheets(Référence).Range("A65535").End(xlUp).Offset(1, 0)
Lignesuivante = Ligne
For j = 1 To Sheets("bdd").Range("E65535").End(xlUp).Row
Lignesuivante = Sheets("bdd").Range("E1", "E" &
Sheets("bdd").Range("E65535").End(xlUp).Row).FindNext(After:=Range("E" &
Lignesuivante)).Row
If Lignesuivante > Ligne Then
i = 0
Do While Sheets("bdd").Range("E" & Lignesuivante).Offset(i + 1, 0) = ""
i = i + 1
Loop
Sheets("bdd").Range("A" & Lignesuivante, "A" & Sheets("bdd").Range("A" &
Lignesuivante).Offset(i, 0).Row).EntireRow.Copy
Sheets(Référence).Range("A65535").End(xlUp).Offset(1, 0)
Else
Exit For
End If
j = j + 1
Next
End If

Sur ce lien mon exemple corrigé ainsi

Colonne E certaines références ont des Ocurrences (2,10,15)

Fais des essais avec et donnes moi ton avis !!!!

http://www.cijoint.fr/cjlink.php?file=cj200812/cijjaq86Qx.xls



Publicité
Poster une réponse
Anonyme