Discussion :

[lemajecki]

Bonjour, je n'arrive pas à modifier une ligne insérer, voici mon 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
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
47
48
49
50
51
52
[A1].Select
 
 
    Do While ActiveCell.FormulaR1C1 <> ""
        ActiveCell.Offset(1, 0).Select
        Loop
    ' se positionner sur la bonne cellule
 
    ActiveCell.FormulaR1C1 = Text_nom.Text
 
    ActiveCell.Offset(0, 1).Select
 
    ActiveCell.FormulaR1C1 = Text_prenom.Text
 
    ActiveCell.Offset(0, 1).Select
 
    ActiveCell.FormulaR1C1 = Text_mail.Text
 
    ActiveCell.Offset(0, 1).Select
 
    ActiveCell.FormulaR1C1 = Text_tel.Text
 
    ActiveCell.Offset(0, 1).Select
 
 
 
    If RBT_homme.Value = True Then
 
        ActiveCell.FormulaR1C1 = "Homme"
    Else
        ActiveCell.FormulaR1C1 = "Femme"
    End If
 
    ActiveCell.Offset(0, 1).Select
 
    If CBX_marie.Value = True Then
 
        ActiveCell.FormulaR1C1 = "Marié(e)"
    Else
        ActiveCell.FormulaR1C1 = "Celibataire"
    End If
 
 
    Me.Hide
    Text_prenom.Text = ""
    Text_nom.Text = ""
    Text_mail.Text = ""
    Text_tel.Text = ""
 
 
 
End Sub

[Fvandermeulen]

Salut,

Il faudrait être un peu plus explicite sur ton problème...

Quoi qu'il en soit, voici une proposition d'adaptation de ton code pour le rendre plus court et normalement plus rapide.
(J'ai pas testé, pas envie de créer un UF)

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
Sub EcritFeuille()
Dim Ws As Worksheet
Dim DerLig As Long
 
Set Ws = Sheets("LeNomDeTaFeuille") 'Affecte la feuille cible à la variable Ws
DerLig = Ws.Cells(Ws.Columns(1).Cells.Count, 1).End(xlUp).Row 'Détermine la dernière ligne remplie sur base de la colonne A
[A1].Select
 
'DerLig+1 indique le numéro de la première ligne vide
Ws.Cells(DerLig + 1, 1) = Text_nom.Text 'Ecrit en colonne A
Ws.Cells(DerLig + 1, 2) = Text_prenom.Text 'Ecrit en colonne B
Ws.Cells(DerLig + 1, 3) = Text_mail.Text 'Ecrit en colonne C
Ws.Cells(DerLig + 1, 4) = Text_tel.Text 'Ecrit en colonne D
Ws.Cells(DerLig + 1, 5) = IIf(RBT_homme.Value = True, "Homme", "Femme") 'Ecrit en colonne E; le Iif fonctionne +/- comme le If d'Excel
Ws.Cells(DerLig + 1, 6) = IIf(CBX_marie.Value = True, "Marié(e)", "Celibataire") 'Ecrit en colonne F
 
    Me.Hide
    Text_prenom.Text = ""
    Text_nom.Text = ""
    Text_mail.Text = ""
    Text_tel.Text = ""
    Unload Me 'Permet de décharger le userform, la mise à "" est théoriquement inutile du coup
 
End Sub