XL 2019 remplir des colonnes avec une textbox et une combobox

[PRUDHOMME12]

je m'explique je voudrais remplir des colonnes avec une textbox et une combobox palcées sur un usf.
exemple sélectionner la cellule G2 est remplir cette colonne avec la textbox1 et la colonne H2 avec la, combobox1.
J'espère que je suis clair merci à tous pour vos réponses.

 

[PRUDHOMME12]

je vous envoi mon fichier

 

[GALOUGALOU]

bonjour prudhomme12 bonjour le forum

je n'ai pas bien saisi votre demande, remplir uniquement la ligne active ou toute la colonne. je vous propose deux solutions.

si vous désirez remplir uniquement les colonnes F et G de la ligne active quelle que soit la cellule sélectionnée.

Private Sub CommandButton1_Click()
TextBox1.Value = Format(Now, "hh:mm")
Dim rw As Long
rw = ActiveCell.Row

        If Range("a" & rw) <> "" Then Range("f" & rw) = TextBox1.Value: Range("G" & rw) = ComboBox1.Value
        Unload Me

End Sub

si vous désirez remplir toute la colonne à partir de la ligne 2

Private Sub CommandButton1_Click()

TextBox1.Value = Format(Now, "hh:mm")


Dim Derligne As Long


Derligne = Range("a65536").End(xlUp).Row

    For I = 2 To Derligne

        If Range("a" & I) <> "" Then Range("f" & I) = TextBox1.Value: Range("G" & I) = ComboBox1.Value

   

    Next I

    Unload Me

End Sub

cordialement
galougalou

 

[Dranreb]

Bonjour.
Comme je vois deux ComboBox, je vous propose cet outils qui s'occupe de presque tout s'ils sont combinés et s'il s'agit de modifier une ligne existante:

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

 

[ChTi160]

Bonjour Prudhomme12, le Fil ,le Forum

y'a aussi ce fil !

A voir !!!!!!

jean marie

 

[jcf6464]

Bonjour le forum
a oui ???????

 

[ChTi160]

Re
Bon comme j'ai pas tout compris ca n'a peut être rien a voir Lol
et alors excuses §
jean marie

 

[PRUDHOMME12]

bonjour prudhomme12 bonjour le forum

je n'ai pas bien saisi votre demande, remplir uniquement la ligne active ou toute la colonne. je vous propose deux solutions.

si vous désirez remplir uniquement les colonnes F et G de la ligne active quelle que soit la cellule sélectionnée.

Private Sub CommandButton1_Click()
TextBox1.Value = Format(Now, "hh:mm")
Dim rw As Long
rw = ActiveCell.Row

        If Range("a" & rw) <> "" Then Range("f" & rw) = TextBox1.Value: Range("G" & rw) = ComboBox1.Value
        Unload Me

End Sub

si vous désirez remplir toute la colonne à partir de la ligne 2

Private Sub CommandButton1_Click()

TextBox1.Value = Format(Now, "hh:mm")


Dim Derligne As Long


Derligne = Range("a65536").End(xlUp).Row

    For I = 2 To Derligne

        If Range("a" & I) <> "" Then Range("f" & I) = TextBox1.Value: Range("G" & I) = ComboBox1.Value

  

    Next I

    Unload Me

End Sub

cordialement
galougalou

Bonjour à tous
Merci Galougalou les premiers codes c'est exactement ça, ils fonctionnent nickel.

 

[ChTi160]

Bonjour
Toujours rien à ce sujet ?

XL 2019 - combobox et autre

Re bonjour J'ai encore besoin de vos lumieres Je vous envoi un fichier, dans ce fichier j'ai un userform que j'ai créé grace à job75.Dans cet usf il faudrait remplacer la TB1 par une combobox et l'alimenter et calimenter la combobox1. J'espere que je suis clair; .

www.excel-downloads.com

Jean marie