Discussion :

[mainro84]

Bonjour à tous,

Nous avons un sujet à traiter pour la matière Excel et VBA et bloquons sur un point du sujet.

Je vous explique rapidement, nous devons simuler l'inscription d'élèves à un cours. Pour ceci nous avons crée un UserForm avec toutes les informations nécessaires (nom, prénom, adresse mail, nom du professeur) et quand l'élève remplit les informations et valide, celles-ci apparaissent sur un fichier Excel.
Jusque là tout va bien, les informations apparaissent bien sur Excel.

Cependant, à chaque fois que nous enregistrons un nouvel élève, celui-ci efface le précédent car nous n'arrivons pas à passer à la ligne suivante sur excel. Je vous donne les informations nécessaires:

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
Private Sub CmdValider_Click()
 
Dim rng As Range
Dim i As Integer
 
If TbxNom = "" Or TbxPrenom = "" Or TbxMail = "" Or IsNull(ListBox1) Then
    MsgBox "Prénom, nom et adresse mail obligatoire", vbExclamation, strAppName
    TbxNom.SetFocus
    Exit Sub
Else
 
     Range("A4") = TbxNom.Value
        Range("B4") = TbxPrenom.Value
        Range("C4") = TbxMail.Value
        Range("D4") = ListBox1.Value
 
End If
 
With ThisWorkbook.Worksheets("Inscription")
 
 
    Set rng = .Range("A3")
    i = rng.Rows.Count + 3
 
    End With    
End Sub

Si vous pouviez nous aider à passer à cette fichue ligne suivante, ce serait génial

[mercatog]

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
Private Sub CmdValider_Click()
Dim NewLig As Long
 
If TbxNom = "" Or TbxPrenom = "" Or TbxMail = "" Or IsNull(ListBox1) Then
    MsgBox "Prénom, nom et adresse mail obligatoire", vbExclamation, strAppName
    TbxNom.SetFocus
    Exit Sub
Else
    With ThisWorkbook.Worksheets("Inscription")
        NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Range("A" & NewLig) = TbxNom.Value
        .Range("B" & NewLig) = TbxPrenom.Value
        .Range("C" & NewLig) = TbxMail.Value
        .Range("D" & NewLig) = ListBox1.Value
    End If
End With
End Sub

[gilou41]

j'avais ete confronté à un problème similaire et comme je suis encor assez limité en vba j'avais contourné le problème en insérant une ligne dans mon fichier en début de macro. C'est pas folichon mais ça marche