Autres transférer les valeurs de userform vers la feuil1

[medlight]

Bonjour à tous svp quelqu'un peut m'aider pour ce fichier exemple comment faire pour transférer les valeurs saisis sur userform vers la feuil1 quand je clique sur valider et merci d'avance

 

[Lolote83]

Bonjour,
En mettant cette macro sur le bouton valider

Private Sub CommandButton1_Click()
    With Sheets("Feuil1")
        .[G7] = TextBox1.Value
        .[G9] = TextBox2.Value
        .[G11] = TextBox3.Value
        .[G13] = ComboBox1.Value
    End With
End Sub

@+ Lolote83

 

[medlight]

merci bcp

 

[Lolote83]

Re bonjour,
Si la réponse apportée est satisfaisante, n'oublie pas de passer le post en resolu.
@+ Lolote83

 

[medlight]

est ce que je peux faire l'inverse sur le même bouton, si oui pouvez vous m'aider svp comment puis je faire

 

[Lolote83]

Re bonjour,
Sur le même bouton, je ne sais pas.
Par contre, sur un autre cela donnerait

Pas testé en direct.

Private Sub CommandButton2_Click()
    With Sheets("Feuil1")
        TextBox1.Value =.[G7]
        TextBox2.Value =.[G9]
        TextBox3.Value =.[G11]
        ComboBox1.Value = .[G13]
    End With
End Sub

@+ Lolote83

 

[medlight]

Bonjour mon ami j'ai appliqué tous ce que vous dites et ca marche bien merci bcp , j'ai un autre point si vous voulez m'aider c'est pour checkbox et optionbutton. la question dans le fichier

 

[Lolote83]

Bonjour

Private Sub CommandButton1_Click()
    With Sheets("Feuil1")
        .[G7] = TextBox1.Value
        .[G9] = TextBox2.Value
        .[G11] = TextBox3.Value
        .[G13] = ComboBox1.Value
        
        TextBox4.Value = .[O7]
        TextBox5.Value = .[O9]
        TextBox6.Value = .[O11]
        
        '--------------------------- Pour les cases à cocher
        If CheckBox1 = True Then
            .[G17] = "Oui"
        Else
            .[G17] = "Non"
        End If
        
        '--------------------------- Pour les boutons Option
        If OptionButton1 = True Then
            .[G19] = "1"
        Else
            .[G19] = "2"
        End If
    End With
End Sub

Private Sub CheckBox1_Click()
    '----------------------------------- CASE A COCHER
    With Sheets("Feuil1")
        If CheckBox1 = True Then
            .[G17] = "Oui"
        Else
            .[G17] = "Non"
        End If
    End With
End Sub


Private Sub OptionButton1_Click()
    '----------------------------------- BOUTON OPTION 1
    With Sheets("Feuil1")
        If OptionButton1 = True Then
            .[G19] = "1"
        Else
            .[G19] = "2"
        End If
    End With
End Sub

Private Sub OptionButton2_Click()
    '----------------------------------- BOUTON OPTION 2
    With Sheets("Feuil1")
        If OptionButton2 = True Then
            .[G19] = "2"
        Else
            .[G19] = "1"
        End If
    End With
End Sub

@+ Lolote83

 

[medlight]

le problème est résolu merci encore

 

[Lolote83]

Re bonjour,

le problème est résolu merci encore

Alors n'hesite pas à l'indiquer en face du post correspondant (coche verte) sur la droite du post
@+ Lolote83