Renseigner une cellule via USERFORM

[PatLac]

Bonjour à tous !

J'ai cherché sur le forum, mais n'ai pas trouvé de réponses à mes interrogations, ou alors elles n'étaient pas adaptées.

Donc voila :

Je cherche donc à renseigner dans la "feuil2" la cellule A1 et B1 dans une Userform que j'appelerai via la "feuil1".

Une fois la cellule A1 et B1 remplie, ce sera au tour de la cellule A2 et B2 d'être remplies, etc .... de manière à créer une base de données.

Comment dois-je m'y prendre ?

Merci pour votre aide.

Bon week-end à tous.

 

[gilbert_RGI]

Re : Renseigner une cellule via USERFORM

Bonjour

un truc du genre

 

[PatLac]

Re : Renseigner une cellule via USERFORM

Bonjour Gilbert !
Formidable !
Merci.

 

[PatLac]

Re : Renseigner une cellule via USERFORM

Bonsoir Gilbert !
Si je désire remplir une cellule prédéfini, style i64 et j64, que dois-je modifier ?
Merci.

 

[gilbert_RGI]

Re : Renseigner une cellule via USERFORM

Bonsoir Gilbert !
Si je désire remplir une cellule prédéfini, style i64 et j64, que dois-je modifier ?
Merci.

Private Sub CommandButton1_Click()
'dercel = Sheets(2).Range("i36536").End(xlUp).Row + 1

With Sheets(2)
.Cells(64, 9) = Me.TextBox1
.Cells(64, 10) = Me.TextBox2
End With
Unload Me
End Sub

ou comme ça pour incrémenter les données à cet endroit

Private Sub CommandButton1_Click()
    dercel = Sheets(2).Range("i36536").End(xlUp).Row + 1
    If dercel < 64 Then dercel = 64
    With Sheets(2)
        .Cells(dercel, 9) = Me.TextBox1
        .Cells(dercel, 10) = Me.TextBox2
    End With
    Unload Me
End Sub

 

[PatLac]

Re : Renseigner une cellule via USERFORM

Gilbert !
Foooooormidable !
Merci et bonne journée.

 

[gilbert_RGI]

Re : Renseigner une cellule via USERFORM

Gilbert !
Foooooormidable !
Merci et bonne journée.

Forminableeeeeee comme dirait Stromae

@ plus

 

[laetitia90]

Re : Renseigner une cellule via USERFORM

bonjour tous
si je peus me permettre dans ce cas la

il vaut mieux ecrire comme cela
=TextBox1.Value

=TextBox2.Value

comme cela pas erreur dans la cellule

 

[PatLac]

Re : Renseigner une cellule via USERFORM

On à les même Références ...

 

[PatLac]

Re : Renseigner une cellule via USERFORM

Laetitia !
Merci.

 

[yves03]

Re : Renseigner une cellule via USERFORM

Private Sub CommandButton1_Click()
'dercel = Sheets(2).Range("i36536").End(xlUp).Row + 1

With Sheets(2)
.Cells(64, 9) = Me.TextBox1
.Cells(64, 10) = Me.TextBox2
End With
Unload Me
End Sub

ou comme ça pour incrémenter les données à cet endroit

Private Sub CommandButton1_Click()
    dercel = Sheets(2).Range("i36536").End(xlUp).Row + 1
    If dercel < 64 Then dercel = 64
    With Sheets(2)
        .Cells(dercel, 9) = Me.TextBox1
        .Cells(dercel, 10) = Me.TextBox2
    End With
    Unload Me
End Sub

Bonsoir a tous,
Je m'inspire de ton exemple pour mettre en place un fichier
Est il possible a chaque fois que l'on insère une ligne a l'aide de l'userform d'incrémenter une ligne en colonne C par exemple avec une valeur comme celle ci : AES0001 , la ligne suivante AES0002 et ainsi de suite
Merci beaucoup

 

[gilbert_RGI]

Re : Renseigner une cellule via USERFORM

Bonjour
pour bien comprendre
tu veux en C1 ->AES0001
puis en C2 -> AES0002 etc mais pendant combien de lignes ?

voilà un exemple sur 10 lignes