UF et mise à jour d'une feuille

Excel_lent

XLDnaute Impliqué

• 4 Septembre 2007

• #2

Re : UF et mise à jour d'une feuille

Salut,

Cela correspond-il à ta demande :?

Code:

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.

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 4 Septembre 2007

• #3

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

 

Dernière édition: 4 Septembre 2007

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 5 Septembre 2007

• #4

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

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 5 Septembre 2007

• #5

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

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 5 Septembre 2007

• #6

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 !).

 

Pièces jointes

• essai+.xls

  32.5 KB · Affichages: 45

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 6 Septembre 2007

• #7

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 ....

 

Pièces jointes

• test.zip

  24.7 KB · Affichages: 32
• test.zip

  24.7 KB · Affichages: 31
• test.zip

  24.7 KB · Affichages: 33

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 6 Septembre 2007

• #8

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

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 6 Septembre 2007

• #9

Re : UF et mise à jour d'une feuille

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

 

Vote positif 0 Vote négatif