Discussion :

[khalil.ch]

Bonjour à tous,

Je voudrais insérer des lignes dans une feuille Excel avec des données saisies à travers un formulaire (bouton ajouter: voir le fichier ci joint).
Le problème que à chaque fois que j'ajoute des données ils écrasent les anciennes. (les données seront enregistrés a chaque fois dans la même ligne) .
Sans complication ! mon objectif est de rajouter une ligne a chaque fois que je saisie des données dans le formulaire.

PS: je veux insérer ces valeurs à partir de la ligne 1340 b(déjà coloré en jaune pour n'est pas vous embêter encore plus )

Je vous envoie ci joint le fichier l'exemple avec le code vba.

Je vous remercie beaucoup d'avance pour votre aide .

[patricktoulon]

re
salut
si j'ai bien compris ton intention tu ajoute ta nouvelle ligne en dessous la ligne 1340 a chaque fois ( sans sélection !!)

dans ce cas ; le code de ton UserForm nettoyé et révisé

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
Private Sub CommandButton1_Click()' bouton "start"
    If TextBox1.Value = "" Or TextBox2.Value = "" Then
        MsgBox "Information manquante!!"
    Else
        With Sheets("Feuil1").Rows("1340:1340")
            .Offset(1).Insert Shift:=xlDown
            .Offset(1).Cells(1) = TextBox1.Value
            .Offset(1).Cells(2) = TextBox2.Value
            .Offset(1).Interior.Color = xlNone
        End With
        'on appelle la macro du bouton delete pour vider les textbox
        'pas la peine de faire un unload puis un new show
        CommandButton3_Click
    End If
End Sub
Private Sub CommandButton2_Click()'Bouton "End"
    Unload Me
End Sub
Private Sub CommandButton3_Click()'Bouton"Delete"
    TextBox1.Value = ""
    TextBox2.Value = ""
End Sub

[khalil.ch]

Oui @patricktoulon c'étais bien ça . Un grand merci pour vous.