Comment ajouter des infos d'une user form sur une ligne "libre"

[azerty6767]

Bonjour,

J'ai une userform contenant 10 champs ; tous ces champs contiennt une information.

En validant (bouton valider) la user form, j'aimerais que les 10 infos des 10 champs soient automatiquement ajoutées sur une ligne (dans 10 colonnes côte à côte).

EN réexécutant la user form et en remplissant les 10 champs avec de nouvelles données, j'aimerais que en revalidant, la ligne en-dessous de la ligne déjà remplie se remplissse...


Pourriez-vous m'aider svp ?

Merci,


Alain

 

[Spitnolan08]

Re : Comment ajouter des infos d'une user form sur une ligne "libre"

Bonjour,

Soit un UF avec 10 TextBox : TextBox1, TextBox2...
et un Command Button1
avec ce code par exemple:

Private Sub CommandButton1_Click()
Dim Ins as single
With Sheets("Feuil1")
    Ins = .Range("A65500").End(xlUp).Row + 1
    For j = 1 To 10
        .Cells(Ins, j) = Controls("TextBox" & j).Value
    Next
End With
End Sub

Cordialement

 

[azerty6767]

Re : Comment ajouter des infos d'une user form sur une ligne "libre"

Merci beaucoup !.. En Fait, il y a un message d'erreur : "erreur de compilation variable requise"... "j" serait en cause... au secours ! lol

... et si je veux ajouter la valeur d'un champ d'un UF dans une colonne précise
..comment puis-je faire ?


Exemple :

L'événément "NONO" est prévu la semaine 40, donc S40.
J'aimerais que "NONO" se retrouve dans la colonne dont le titre s'appelle "S40"



Merci beaucoup,

 

[Spitnolan08]

Re : Comment ajouter des infos d'une user form sur une ligne "libre"

Re,

"erreur de compilation variable requise"... "j" serait en cause...

Tu dois être en Option Explicite;Ajoute après la ligne :

Dim Ins as single
Dim i as integer

L'événément "NONO" est prévu la semaine 40, donc S40.
J'aimerais que "NONO" se retrouve dans la colonne dont le titre s'appelle "S40"

Cela ne semble pas correspondre à ta demande initiale... Mais c'est faisable. Cependant pour éviter de tourner en rond, il serait préférable que tu joignes un bout de ton fichier.

Cordialement