Renseigner une cellule via USERFORM

gilbert_RGI

XLDnaute Barbatruc

• 13 Octobre 2013

• #2

Re : Renseigner une cellule via USERFORM

Bonjour

un truc du genre

 

Pièces jointes

• userForm_simple.xls

  62 KB · Affichages: 73

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 13 Octobre 2013

• #3

Re : Renseigner une cellule via USERFORM

Bonjour Gilbert !
Formidable !
Merci.

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 15 Octobre 2013

• #4

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.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 15 Octobre 2013

• #5

Re : Renseigner une cellule via USERFORM

PatLac à dit:

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

Cliquez pour agrandir...

Code:

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

Code:

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

 

Dernière édition: 16 Octobre 2013

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 16 Octobre 2013

• #6

Re : Renseigner une cellule via USERFORM

Gilbert !
Foooooormidable !
Merci et bonne journée.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 16 Octobre 2013

• #7

Re : Renseigner une cellule via USERFORM

PatLac à dit:

Gilbert !
Foooooormidable !
Merci et bonne journée.

Cliquez pour agrandir...

Forminableeeeeee comme dirait Stromae

@ plus

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 16 Octobre 2013

• #8

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

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 16 Octobre 2013

• #9

Re : Renseigner une cellule via USERFORM

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

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 16 Octobre 2013

• #10

Re : Renseigner une cellule via USERFORM

Laetitia !
Merci.

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 16 Décembre 2013

• #11

Re : Renseigner une cellule via USERFORM

gilbert_RGI à dit:

Code:

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

Code:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 17 Décembre 2013

• #12

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 😎

 

Pièces jointes

• userForm_simple_v2.xls

  77.5 KB · Affichages: 29

Dernière édition: 17 Décembre 2013

Vote positif 0 Vote négatif