Recherche et copier certaines valeur dans une autre feuille

Bonjour,

Je souhaite créer une macro qui réaliserai les actions suivantes:

J'ai un fichier Excel avec un onglet DATA et un autre FACTURE

• Lorsque je lance la macro, celle-ci me demande quelle valeur rechercher.
• Puis la macro recherche cette valeur dans toutes les feuilles de tous les onglets.
• Lorsque les valeurs sont trouvées, certaine cellules sont copié dans ma facture (donc dans certaine cellule)

La recherche de valeur semble fonctionner mais je ne suis pas sur de bien m'y prendre...

J'ai des notions mais pas autant que les votre, pouvez vous m'aider ?

voila ce que j'ai fais :

Private Sub CommandButton1_Click()

Set twb = ThisWorkbook

Dim resultat As String

resultat = InputBox("Entrer numéro de Chambre :", "Titre")

If resultat <> "" Then

MsgBox "Le Numéro recherché est " & resultat

End If

i = 0

For Each ws In twb.Worksheets

Set trouve = ws.Cells.Find(resultat, LookIn:=xlValues, LookAt:=xlWhole)

Bonsoir,

avec un fichier exemple de ce que tu souhaites se serait beaucoup plus facile de te répondre.

Cordialement.

Oui pardon, voila :

Pour tout dire j'aimerais qu'en donnant mon numéro de chambre ma facture se remplisse avec

Date de l'appel, temps de la communication, et prix

Toujours personne pour un petit coups de main ?

Bonjour

J'avais regardé ton fichier, et dedans il y a une macro qui fait les 9/10ème de ce que tu veux

Cette macro te copie les lignes dans un nouveau classeur

Le principe est le même pour la facture

Il te suffit de recopier les bonnes colonnes

Indique pour chaque colonne de la facture les colonnes des pages à recopier

C'est ça mon problème, comme j'ai pu le dire je connais un peu mais pas tout et je n'arrive pas à ce que les ligne se copies dans la facture....

Et puis c'est pas la ligne complète c'est certaines cellule a,b,c et g

Bonsoir

Une incompréhension

anarland a écrit :

c'est certaines cellule a,b,c et g

Donc la date, la chambre, Callee et Billing duration et on les place où dans la facture ?

Car on n'a "Qté", "Réf", "Désignation" et "prix Unitaire" (peut-être aussi "Tva")

Banzai64 a écrit :

Indique pour chaque colonne de la facture les colonnes des pages à recopier

Bonjour,

Sur la feuille DATA, je dois récupérer les valeurs A,C et G pour les copier dans la feuille Facture (a partir de la ligne 19) en D,E et F

DATA FACTURE

A -> F

C -> E

G -> D

Sauvez moi j'y arrive pas.... pas assez doué encore

Merci les zami

Bonjour

A tester

C'est parfait !! t'es au top

Et dis moi comme je pourrais lui faire sauter des lignes ? passé de la ligne 56 à la ligne 100 ?

Je sais faire un Range mais pas un saut de ligne...

Bonjour

Rajoutes la ligne

      Do
        Ok = True
        Range("F" & Ligne) = Trouve.Offset(0, -1)
        Range("E" & Ligne) = Trouve.Offset(0, 1)
        Range("D" & Ligne) = Trouve.Offset(0, 5)
        Ligne = Ligne + 1
       If Ligne = 57 Then Ligne = 100
        Set Trouve = Ws.Columns("B").FindNext(Trouve)
      Loop While Trouve.Address <> Depart

Je te remercie mille fois !!!!