Copie de cellules entre 2 onglets avec un filtre de recherche

[papyroller]

Bonjour à tous,
Je vous joins mon fichier Excel.
Mon problème est le suivant :
Je souhaite créer une facture à partir de mon bouton facture, celui-ci écrit sur l'onglet 2008 puis fait une copie de l'onglet modele facture pour créer une nouvelle facture.
Je souhaite récupérer les informations concernant le N° d'affaire (Nom client,...) de l'onglet affaire et les copier sur mon nouvel onglet facture

si vous pouvez m'aider ce sera génial.

Papy

 

[skoobi]

Re : Copie de cellules entre 2 onglets avec un filtre de recherche

Bonjour,

Dans l'USF "saisiefacture" tu mets "nom de la facture", où trouves-tu l'info dans la liste d'affaire?
Le client ne se trouve pas dans l'USF.
Copie à revoir 🙄

 

[papyroller]

Re : Copie de cellules entre 2 onglets avec un filtre de recherche

Bonjour,

Dans l'USF "saisiefacture" tu mets "nom de la facture", où trouves-tu l'info dans la liste d'affaire?
Le client ne se trouve pas dans l'USF.
Copie à revoir 🙄

"nom de la Facture" est indépendant (c'est juste une information)
Dans la liste d'affaires je cherche à récupérer les coordonnées du client correspondant au N° d'affaire de l'USF "saisiefacture" et les copier dans la facture créée.

Papy

 

[papyroller]

Re : Copie de cellules entre 2 onglets avec un filtre de recherche

Je crois qu'il me faut quelque chose comme la formule rechercheV
mais que je puisse utiliser dans une macro

Papy

 

[skoobi]

Re : Copie de cellules entre 2 onglets avec un filtre de recherche

Re bonjour,

pour la récupération les informations de l'onglet affaire, voici:

'récupération info feuille "listeaffaire"
         With Sheets("ListeAffaire")
            Set numaff = .Columns("a:a").Find(NumAffaire.Value, LookIn:=xlValues)
         End With
         nomaff = numaff.Offset(0, 1).Value
         adrclt = numaff.Offset(0, 2).Value
         nomclt = numaff.Offset(0, 3).Value
         suite = numaff.Offset(0, 4).Value
         code = numaff.Offset(0, 5).Value
         Ville = numaff.Offset(0, 6).Value
         adrville = numaff.Offset(0, 7).Value

tu ajoutes celà dans la macro du bouton "valider" avant la partie "ajout dans la facture".

puis, pour le nom client en "F5" ça donne:

Range("F5:F8").Value = nomclt

Tu remarqueras au passage que j'ai enlevé la partie "select" qui est inutile et ralenti la macro....

 

[papyroller]

Re : Copie de cellules entre 2 onglets avec un filtre de recherche

Je viens de tester et ça marche exactement comme je veux

Merci

Papy