Discussion :

[Tomtom76]

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+

[AllyKo]

Salut TomTom,

je peux te donner quelques pistes :

Avant ton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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!

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JPierreM]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tomtom76]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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???