Macro : copier / coller

[roidurif]

Bonjour à tous,

ce que j'essaye de faire c'est tout simplement
j'ai deux onglets : 1) Fiche ; 2) Tableau

Quand je renseigne la fiche, j'aimerais à partir d'une macro recupérer ces données pour ensuite renseigner automatiquement le tableau.

Ce j'ai reussi à faire c'est de copier / coller automatiquement les données "article" ; "description" et "prix" de la fiche vers le tableau, mais là où je bloque et que je n'arrive pas, c'est dire :

De renseigner la "date début", "date de fin", "numero client" et la "devise".

ci-joint mon fichier

Pourrais je avoir votre aide SVP?

merci

Cordialement

 

[jeanpierre]

Re : Macro : copier / coller

Bonjour roidurif,

N° client inexistant dans ta base, sinon avec cet élément on peut utiliser RECHERCHEV(le n° client; la base, le numéro de colonne à extraite;0), le zéro pour une recherche exacte.

Il n'est, dans ce cas, pas besoin de macro.

A te lire.

Jean-Pierre

On peut aussi mettre, en F17, une liste de validation qui donne tous les numéros de clients pour éviter les erreurs de saisies.

 

[roidurif]

Re : Macro : copier / coller

Bonjour,

Mon fichier ne doit pas contenir de formule, c'est pour cela que j'essaye d etablir une macro.

Pouvez m'aider svp?

Merci de l'aide

 

[roidurif]

Re : Macro : copier / coller

Re,

J'ai essayer de faire pour copier numéro clients, mais ça le fait que pour la 1ere ligne, je ne sais pas comment faire pour les prochaine lignes.

Comment faire pour retranscrire cela à patir de l'onglet BDD : =SI(C2>0;'Fiche'!F17;0)

Sub test2()
'With Sheets("BDD")
For Each x In Sheets("BDD").Range("C2", [C2].End(xlDown))
If x > 0 Then Sheets("Fiche").Range("F17").Copy
Sheets("BDD").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Next x
'End With
End Sub

Merci de l'aide