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 ?
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
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
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
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
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
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
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 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
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
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
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,
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
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
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
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
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
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,
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
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
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)
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)
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)
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)
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)
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)