Recherche d'onglet en vba

[plasmadav]

Bonjour a tous

Je suis hyper novice en prog et je fais avec des bouts de code que je trouve a droite a gauche.🙁

Voila mon projet ressemble un peu a celui ci dessus.

Objectifs :

1 : identifier donnée dans une cellule.( fichier "recap" en A6)
2 : rechercher la donnée dans classeur "report"(la recherche se fait sur des noms de feuille
3 : si feuille trouvé recopie la feuille ou donné de la feuille dans Recap sur l'onglet du meme nom.
4 : si la donnée n'existe pas msgbox " valeur no found"
5 : meme operation sur la ligne suivante du fichier recap en A7. si possible stop apres deux lignes vides

Merci de votre aide

voila les fichiers

 

[wilfried_42]

Re : Recherche d'onglet en vba

bonjour


ton fichier en retour, si j'ai compris ce que tu voulais

 

[plasmadav]

Re : Recherche d'onglet en vba

Merci wilfried le principal ce fait et c excellent

3 points si possible a faire :

1 : si possible de créer l'onglet si n'existe pas dans recap.
2 : dans la recherche concernant le fichier recap je ne souhaite pas arriver a la fin des lignes excel mais mettre un condition qui dirait si pas de donner 2 lignes suivante stop la recherche.
3 : creer une nouvelle feuille permettant de reporter les reference pas trouvé
merci

 

[plasmadav]

Re : Recherche d'onglet en vba

personne pour completer ce point ? quelque ligne de code et s'en est fini

 

[plasmadav]

Re : Recherche d'onglet en vba

je fais remonter ce post si kk1 peu completer le code dans le dossier

merci

 

[plasmadav]

Re : Recherche d'onglet en vba

Rebonjour

voici le code initial qui me permettait a partir d'un fichier, choisir des cellules, et rechercher la valeur dans un autre classeur.

Sub Bouton1_QuandClic()
Dim i As Long, feuille As String
For i = 6 To Range("A65535").End(xlUp).Row
feuille = Range("A" & i).Value
On Error GoTo nontrouve
Workbooks("report.xls").Sheets(feuille).Cells.Copy Destination:=Workbooks("recap.xls").Sheets(feuille).Range("A1")
GoTo suite
nontrouve:
MsgBox feuille & " not found"
On Error GoTo 0
suite:
Next i
End Sub


ma problematique a evolué.

Maintenant je souhaite a partir de fichier qui se trouve sous un dossier que jouvre,

Sub Ouvre_Fiche_recap()

'Ouvre les fichiers sous un dossier(mois)

Dim Dossier As Object, Fichier As Object
Dim Chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
.ButtonName = "Choix Dossier" 'nom du bouton
.InitialFileName = ThisWorkbook.Path & "\" 'Le chemin de départ se fait a partir du point d'enregistrement de la feuille
.Title = "Choisissez le dossier et cliquez sur le bouton ""Choix Dossier"""
.Show
If .SelectedItems.Count > 0 Then
Chemin = .SelectedItems(1) & "\"
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
If Right(Fichier.Name, 3) = "xls" Then Workbooks.Open Fichier 'ouvre les fichiers sous dossier
Next Fichier
End If
End With
End Sub

je veux que tous les fichiers que j'ai precedemment ouvert prennent les references dans LES ONGLETS RECAP, cherche la reference dans report la copie et colle sur le fichier utilisé.

un fois que c'est fait enregistre le fichier et passe au suivant.

En plus

1 : Créer l'onglet en fonction de la recherche
2 : Dans la recherche concernant le fichier recap je ne souhaite pas arriver a la fin des lignes excel mais mettre un condition qui dirait si pas de donner 2 lignes suivante stop la recherche.
3 : creer une nouvelle feuille permettant de reporter les references pas trouvé dans report

 

[dixit]

Re : Recherche d'onglet en vba

bonjour à tous,
question pour plasmadav
j'ai travaillé (un peu) sur ton sujet 78028 Recherche & Report De Valeur ; il me semble qu'il y a un rapport avec celui-ci.
où en sommes-nous ? car aider oui, perdre son temps non ...
à suivre

 

[plasmadav]

Re : Recherche d'onglet en vba

Bonjour Dixit

JE NE SUIS PAS UN IMPOSTEUR A VOULOIR FAIRE TRAVAILLER TOUS LE MONDE 😕 🙁

Les deux exercices se ressemblent car issus du meme fichier

1/ ce que je demande ici c du copier coler de feuilles.

2/ tandis que l'exercice sur lequel tu travailles concerne report de valeur avec condition d'existence de valeur. je ne peux pas executer ta macro si je ne resoud pas le point ici

je decoupe mes demande car si je fais un seul bloc je ne pense pas que je vais arriver a me faire comprendre

Voila je suis confus si j'ai semer le trouble 😕

 

[plasmadav]

Re : Recherche d'onglet en vba

Pour aide svp

 

[plasmadav]

Re : Recherche d'onglet en vba

bonjour le forum

Personne n'aurait une solution sur ce cas ?

si pas clair dite le moi je ferais en sorte d'etre plus clair

Merci bcoup

 

[dixit]

Re : Recherche d'onglet en vba

bonjour,
j'essaie d'y travailler dans la journée mais pour une fois il fait beau alors c'est plus dur ...

 

[plasmadav]

Re : Recherche d'onglet en vba

Salut Dixit,

C le monde a l'envers il fait beau en bretagne et gris a paris
OULALALALALALA

Merci

JE VIENDRAIS POUR LE WE ALORS 😀

 

[dixit]

Re : Recherche d'onglet en vba

re
j'ai des difficultés pour comprendre l'enchaînement des opérations : quel est l'ordre de travail et quels sont les noms des fichiers correspondants (par rapport à l'exemple fourni).
je n'ai pas l'habitude d'utiliser du code aussi complexe.
pour les boutons, je ne parviens pas (en mode création) à afficher les propriétés et le code en cliquant directement sur le bouton : problème de version ?
à suivre

 

[plasmadav]

Re : Recherche d'onglet en vba

donc je reprend

Dans l'exemple la macro fonctionne avec le fichier recap et report ouvert.

1/ je veux que la macro s'execute sur tous les classeurs ouverts ! sauf sur report
2/ cherches sur classeur l'onglet recap.
3/ PRENDS les n° commande (PP....) qui se trouve sur l'ONGLET RECAP
4/ Cherche l'onglet au n°de commande dans le classeur Report
5/ si existe copie colle l'onglet a la suite de recap
6/ si commande n'existe pas dans report reporter le n° commande sur une feuille créer au nom de No found (par exemple)
7/ Il faut que la recherche des numeros de commande s'arrete si deux lignes vides apres le dernier numero de commande afin que celui ci ne scan pas le dossier jusqu'a la fin du fichier (en ligne 40 j'ai dautre donné 😉 tu sais).
8/ recommence le cycle au point n° 2

Ensuite j'integre ta macro sujet 78028 Recherche & Report De Valeur

 

[dixit]

Re : Recherche d'onglet en vba

bonjour,
voici un premier jet
lire les informations de la feuil1
faire les tests (sur fichiers d'essai pour éviter tout problème)
et me dire si cela convient.