Discussion :

[Ninja92400]

bonjour, à tous,

Je me présente, nouveau venu sur ce forum, je recherche de l'aide pour m'aider à constituer une macro.
Je précise que je ne connais rien en programmation ou quelque langage que ce soit.
Si vous pouviez m'aider, et expliquer en même temps que je puisse essayer de comprendre ça serait encore plus cool de votre part.

Alors je vous explique le topo :
J'ai une feuille Excel (nommée FORMULAIRE) que je me sert pour recueillir des informations, j'aimerai que ces informations soient envoyées dans un tableau (Tab_placements) sur une autre feuille (nommée LISTE PLACEMENTS)sur une nouvelle ligne, quand on clique sur le bouton "ENVOYER". Une fois les informations collectées et copiées dans ce tableau je souhaiterai la remise à zéro des cellules de la page "FORMULAIRE" afin de retrouver un formulaire vierge pour une nouvelle utilisation.

J'espère que je suis assez clair. je vous joint donc le fichier sur lequel je travaille pour que vous puissiez y apporter les solutions.

Je vous remercie par avance de votre aide si précieuse pour moi, en espérant pouvoir comprendre quelque chose.

Ninja92400

[Marc-L]

Bonjour.

Rappels :

• Règles
  
  
• Important : Fichiers joints dans les discussions

[antonysansh]

Pour bien commence en VB Excel je te conseil cet excellent Tuto : Tutoriel de Pierre Fauconnier
Tu devrais pouvoir déjà faire pas mal de chose avec ce dernier.

[Theze]

Bonjour,

Inscris le premier enregistrement manuellement afin de partir sur la bonne ligne ou alors, pour la 1ère inscription, il faut gérer le fait que le tableau est vide.
Tu colle le code ci-dessous dans un module standard (depuis Excel, combinaison de touches Alt+F11, dans le menu Insertion, cliquer sur "Module" et coller dans la partie droite de l'éditeur) ensuite, clic droit sur le bouton et affecter une macro et choisir "Deplacer" :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub Deplacer()
 
    Dim Lgn As Long
 
    'contrôle si les champs sont remplis
    If Range("SOMME_PLACEE").Value = "" Or _
        Range("TAUX").Value = "" Or _
        Range("DATE_PLACEMENT").Value = "" Or _
        Range("NUMERO_COMPTE").Value = "" Or _
        Range("TYPE_COMPTE").Value = "" Or _
        Range("BANQUE").Value = "" Then
 
        MsgBox "Veuillez compléter les différents champs !"
 
        Exit Sub
 
    End If
 
    'inscrit les valeurs dans le tableau
    With Worksheets("LISTE PLACEMENTS")
 
        Lgn = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
 
        .Range("E" & Lgn).Value = Range("SOMME_PLACEE").Value
        .Range("F" & Lgn).Value = Range("TAUX").Value
        .Range("A" & Lgn).Value = Range("DATE_PLACEMENT").Value
        .Range("I" & Lgn).Value = Range("FIN_PLACEMENT").Value
        .Range("J" & Lgn).Value = Range("DATE_VIREMENT").Value
        .Range("C" & Lgn).Value = Range("NUMERO_COMPTE").Value
        .Range("B" & Lgn).Value = Range("TYPE_COMPTE").Value
        .Range("D" & Lgn).Value = Range("BANQUE").Value
        .Range("G" & Lgn).Value = Range("INTERETS").Value
        .Range("H" & Lgn).Value = Range("TOTAL").Value
 
    End With
 
    'vide les champs
    Range("SOMME_PLACEE").Value = ""
    Range("TAUX").Value = ""
    Range("DATE_PLACEMENT").Value = ""
    Range("NUMERO_COMPTE").Value = ""
    Range("TYPE_COMPTE").Value = ""
    Range("BANQUE").Value = ""
 
End Sub

Hervé.

[Ninja92400]

Merci beaucoup, tu me sauve la vie !
faut que j'apprenne à faire ca lol et d'autres choses encore
Je sais que pour toi ca a du être très facile pour moi c'est du chinois mdr
et merci encore de tout mon cœur.

Ninja92400