Macro enregistrement de données par formulaire dans base

Bonjour à tous!

Je suis nouveau sur le forum, débutant en VB et en macro, et je galère pas mal avec un travail que l'on m'a confié. Il s'agit à partir d'un formulaire (pas avec la fonction formulaire de Excel) d'enregistrer des informations dans une base de donnée. Je ne dispose pas d'Access donc je tente par défaut avec Excel...

Je m'explique:
J'ai une base de donnée qui recense des clubs de sport et je souhaite à partir d'un formulaire, appeler un club, saisir des informations le concernant (dates, contact...) et les transposer par une macro (copie/colle) dans la base à la place de la ligne correspondant au club appélé dans le formulaire.

Mon problème est que je ne sais pas comment programmer la macro pour retrouver la ligne dans la base et coller à sa place la nouvelle entrée saisie dans le formulaire.

J'ai beau cherché dans les forums et les tutoriels, je ne trouve pas de solution à mon problème et je ne comprends pas toujours les subtilités du langage VB. Tout ça pour dire, I NEED HELP... Je vous joins un condensé du fichier sur lequel je travail afin de mieux comprendre mon problème.

Merci d'avance de vos réponses
A+

Salut TomTom,

je peux te donner quelques pistes :

Avant ton :

Code:

---

1 2 3

'La ça coince, je ne sais pas comment retrouver la ligne correspondant au n° de club saisie dans le formulaire' Range("A?:F?").Select

---

pourquoi tu ne parcourrais pas ta colonne B, avec un petit while comme il faut, à la recherche du nom du club ?

une fois que tu l'as trouvé, tu auras la ligne de ton club s'il existe :)

Dans ton fichier excel tu indiques :

Citation:

---

Petit problème de format date, moi pas comprendre???

---

quel est le problème ? j'ai regardé le format de la cellule et il est formater sur : jj/mm du coup si tu rentre 06/04/2009 la cellule t'affichera bien 06/04!

on va y aller par étape
Pour trouver le nom du club
utilise la fonction find
pour une recherche dans la colonne A

Code:

---

1 2 3 4 5

'pour avoir l'adresse msgbox Range("A:A").Find("Nom du club A").Address   'pour avoir la ligne msgbox Range("A:A").Find("Nom du club A").row

---

Ps : je n'ai pas ouvert ton fichier il va faloir que tu adapte le code

Juste avant la ligne
'La ça coince, je ne sais pas comment retrouver la ligne correspondant au n° de club saisie dans le formulaire'
place le code suivant :

Code:

---

1 2 3

With Worksheets("Base club").Range("A2:A100") a = .Find(Worksheets("Formulaire").Cells(2, 1), LookIn:=xlValues).Row End With

---

a renvoie le n° de la ligne que tu cherches
ensuite dans ton code à la place de range("A?:A?) utilise cells(a,1)

Par contre ta démarche mériterait un UserForm ce serait + convivial

Merci pour vos réponses!!! Rapide et efficace

N'étant pas très dégourdi, j'ai suivi la solution proposée par JPierreM qui a fait tout le boulot, Grand Merci! Ca fonctionne PRESQUE bien. J'ai suivi tes instructions et l'enregistrement se passe bien et va dans la ligne voulue, c super. Voiçci le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Macro5() ' ' Macro5 Macro ' Range("A2:F2").Select Selection.Copy Sheets("Base club").Select With Worksheets("Base club").Range("A2:A100") a = .Find(Worksheets("Formulaire").Cells(7, 2), LookIn:=xlValues).Row End With Cells(a, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub

---

Cependant, j'ai un nouveau souci, les recherchev mises en place pour consulter les infos contenues dans la ligne de la base correspondant au n°club saisit dans le formulaire (recherchev(numéroclub;base2;2;faux) ne fonctionnent plus lorsqu'un enrgistrement a été effectué. Alors qu'il n'y a pas de raison apparante.

Est ce que vous pouvez m'eclairer???