UF et mise à jour d'une feuille

[paul87]

bonjour à tous, bonjour le forum
dans le brouillon ci joint, je souhaiterai à chaque nouvel utilisation du UF que les données entrées soient stockées automatiquement dans la feuille "archive" a partir de la ligne 2.....et ainsi de suite.....
Comment faire...?
Merci pour vos aide

 

[Excel_lent]

Re : UF et mise à jour d'une feuille

Salut,

Cela correspond-il à ta demande :?

With Worksheets("archive")
derli = Sheets("archive").Range("A65536").End(xlUp).Row + 1
.Range("a" & derli) = TextBox1.Value
.Range("b" & derli) = TextBox2.Value
...
End With
Unload UserForm1

Ne pas confondre Unload et Hide : le premier permet d'ouvrir l'USF avec une remise à zéro, l'autre permet de retrouver les valeurs déjà saisies.

 

[excalibur]

Re : UF et mise à jour d'une feuille

bonjour paul excelent le forum une autre methode
Private Sub CommandButton1_Click()
Dim x As integer, i As Byte
x = Sheets("archive").Range("A65536").End(xlUp).Row + 1
For i = 1 To 7
Sheets("archive").Cells(x, i) = Me.Controls("Textbox" & i)
Next i
Unload Me
End Sub
salutations

 

[paul87]

Re : UF et mise à jour d'une feuille

Bonjour....Merci à vous 2
vos deux versions sont OK...ça marche..
dans la version d'excalibur,
comment faire si je veux rajouter des combobox...ou autres controles par exemple..?
Merci encore

 

[excalibur]

Re : UF et mise à jour d'une feuille

rebonjour le fil tu peus rajouter autant de controles que tu veus !!! autrement que veus tu faire exactement ???? comme cela c est pas facile si tu trouve pas ton bonjour dans les archives du forum .on peut te zipper des exemples pour plus de comprehension salutations

 

[Excel_lent]

Re : UF et mise à jour d'une feuille

Bonsoir à tous,

Jette un oeil sur le fichier joint pour avoir un exemple.
Il est plus intéressant pour "le sexe" de choisir une option (façon de parler !).

 

[paul87]

Re : UF et mise à jour d'une feuille

Re bonjour et merci à vous Excel_lent et excalibur...pour tous vos conseils..
j'ai encore une question...
dans le brouillon que j'ai mis en pj,
j'ai une donnée "N°List" que je renseigne sur le uf 1 (qui est stockée en colonne E)...
à l'initialisation du uf3, je souhaiterai avoir la meme donnée dans le textbox1..
encore merci par avance
et puis je crois qu'après ça j'aurais tout ....

 

[excalibur]

Re : UF et mise à jour d'une feuille

rebonjour le fil dans userform3 code
Option Explicit
Private Sub CommandButton1_Click()
Unload UserForm3
End Sub
Private Sub UserForm_Initialize()
Dim x As Variant
x = Sheets("archive").Range("E65536").End(xlUp).Value
TextBox1 = x
End Sub
salutations

 

[paul87]

Re : UF et mise à jour d'une feuille

Bonsoir,
Merci à toi excalibur...
c'est parfait..j'y était presque
bien cordialement