Macro rappel de données vers autre feuille

Bonjour à tous,

Après avoir recherché sans succès des informations pour fabriquer ma macro, je vous expose mon problème:

dans un classeur excel, j'ai 4 feuilles

"fichier clients"

"modele de saisie des demandes"

"fichier demandes"

"saisie fiche nouveau client"

Je souhaite avoir une macro qui depuis la feuille "modele de saisie des demandes":

après saisie du nom du demandeur un bouton lance une recherche s'effectuant sur la feuille "fichier clients" dans la colonne nom. si le nom est trouvé la macro recopie des informations (prénom/tel/service/...) présentes sur la même ligne que le nom dans les cases spécifiées dans la feuille "modele de saisie des demandes". A la validation-Impression de la demande, l'ensemble de ces informations s'enregistrent dans la feuille "fichier demandes" et s'effacent du modèle.

Si le nom n'existe pas, ouverture de la feuille "saisie fiche nouveau client".

Voila, je pense vous avoir donné tous les paramêtres de mes besoins. Merci beaucoup pour votre aide et joyeuses fêtes à tous.

Bonjour,

Pour pouvoir t'aider, il faudrait voir le fichier, savoir où tu en est ?

Amicalement

Claude.

Bonjour,

d'abord tous mes voeux pour 2010,

je vous joins le fichier lié à ma demande, j'espère qu'il vous sera possible de m'aider,

cordialement

Thierry

BONSOIR TEALK78

J'espère que cela te convient

A toi de continuer

-- 04 Jan 2010, 21:18 --

bonsoir

je m'excuse fait je n'arrive pas a zipper le fichier

copie le code et place le sur un nouveau bouton de ta feuille modele de saisie

'Sub Bouton29_QuandClic()

'With Sheets("fichier clients").Range("a1:a65500")

' Set c = .Find(Sheets("modele de saisie des demandes").Range("D8"), LookIn:=xlValues)

' If Not c Is Nothing Then

' firstAddress = c.Address

' Do

' Sheets("modele de saisie des demandes").Range("D10") = c.Offset(0, 1).Value

' Sheets("modele de saisie des demandes").Range("C12") = c.Offset(0, 2).Value

' ' ET AINSI DE SUITE

' Loop While Not c Is Nothing And c.Address <> firstAddress

' End If

'End With

'End Sub

Un grand merci pour ce fabuleux coup de main, j'arrive à rappeler mes données comme il convient cependant si je peux et sans abuser, est-il possible que pour un client donné, ayant plusieurs émissions ou sections budgétaires, de passer à la ligne suivante à partir du moment ou le nom est toujours le même afin de faire défiler dans les cases les différents choix pour un même nom par un clic sur le bouton affecté à la macro?

Cdlt

Thierry

BONJOUR TEALK78

J'espère que cela te conviendra

Sub Bouton29_QuandClic()

Application.ScreenUpdating = False

If Sheets("modele de saisie des demandes").Range("D10") <> "" Then

Sheets("fichier clients").Select

Cells.Find(What:=Sheets("modele de saisie des demandes").Range("D8"), After:=ActiveCell, LookIn:=xlValues, LookAt:= _

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, SearchFormat:=False).Activate

Sheets("fichier clients").Select

Sheets("modele de saisie des demandes").Range("D10") = ActiveCell.Offset(0, 1).Value

Sheets("modele de saisie des demandes").Range("C12") = ActiveCell.Offset(0, 2).Value

Sheets("modele de saisie des demandes").Select

' ET AINSI DE SUITE

Else

With Sheets("fichier clients").Range("a1:a65500")

Set c = .Find(Sheets("modele de saisie des demandes").Range("D8"), LookIn:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

Do

Sheets("fichier clients").Select

Range(c.Address).Select

Sheets("modele de saisie des demandes").Range("D10") = c.Offset(0, 1).Value

Sheets("modele de saisie des demandes").Range("C12") = c.Offset(0, 2).Value

' ET ANISI DE SUITE

Sheets("modele de saisie des demandes").Select

Loop While Not c Is Nothing And c.Address <> firstAddress

End If

End With

End If

Application.ScreenUpdating = True

End Sub

Un grand merci à tous pour cette aide précieuse, j'ai réussi à comprendre les bases de certaines commandes mais une formation s'impose!!

Bonjour,

Toujours répéter la même chose, c'est lassant ! (le résolu)