Userform pour saisie sur 2 feuilles

[sev]

Bonjour je joints un fichier d'exemple avec un userform pour saisir des données sur 2 feuilles en même temps.

Je ne vois pas comment modifier le code.

Merci à tous

 

[Pierrot93]

Re : Userform pour saisie sur 2 feuilles

bonjour Sev

ton code modifié, si j'ai bien compris.

Private Sub Validation_Click()
Dim LASTLIG As Integer
With Sheets("Feuil1")
    Ligne_Vide = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & Ligne_Vide) = ANNEE
    .Range("B" & Ligne_Vide) = MOIS
    .Range("C" & Ligne_Vide) = JOUR
    .Range("A" & Ligne_Vide + 1) = ANNEE
    .Range("B" & Ligne_Vide + 1) = MOIS
    .Range("C" & Ligne_Vide + 1) = JOUR
    .Range("E" & Ligne_Vide) = ComboBox1.Value
    .Range("K" & Ligne_Vide) = TextBox4
    .Range("E" & Ligne_Vide + 1) = ComboBox2.Value
    .Range("M" & Ligne_Vide + 1) = TextBox4
End With
With Sheets("Feuil2")
    Ligne_Vide = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & Ligne_Vide) = ANNEE
    .Range("B" & Ligne_Vide) = MOIS
    .Range("C" & Ligne_Vide) = JOUR
    .Range("A" & Ligne_Vide + 1) = ANNEE
    .Range("B" & Ligne_Vide + 1) = MOIS
    .Range("C" & Ligne_Vide + 1) = JOUR
    .Range("E" & Ligne_Vide) = ComboBox1.Value
    .Range("K" & Ligne_Vide) = TextBox4
    .Range("E" & Ligne_Vide + 1) = ComboBox2.Value
    .Range("M" & Ligne_Vide + 1) = TextBox4
End With
End Sub

bonne journée
@+

 

[Spitnolan08]

Re : Userform pour saisie sur 2 feuilles

Bonjour,
Salut Pierrot🙂

Pas claire la question effectivement...
Je proposerais un peu plus court😉 si bonne interprétation et sous réserve des noms de feuilles dans la réalité. Une alternative pourrait être trouvée en utilisant Sheets(i) à condition de connaître le n°des feuilles concernées.

Private Sub Validation_Click()
Dim Ligne_Vide As Integer
Dim i As Byte
    For i = 1 To 2
        With Sheets("Feuil" & i)
        Ligne_Vide = .Range("A65536").End(xlUp).Row + 1
        .Range("A" & Ligne_Vide) = ANNEE
        .Range("B" & Ligne_Vide) = MOIS
        .Range("C" & Ligne_Vide) = JOUR
        .Range("A" & Ligne_Vide + 1) = ANNEE
        .Range("B" & Ligne_Vide + 1) = MOIS
        .Range("C" & Ligne_Vide + 1) = JOUR
        .Range("E" & Ligne_Vide) = ComboBox1.Value
        .Range("K" & Ligne_Vide) = TextBox4
        .Range("E" & Ligne_Vide + 1) = ComboBox2.Value
        .Range("M" & Ligne_Vide + 1) = TextBox4
    End With
Next
End Sub

 

[sev]

Re : Userform pour saisie sur 2 feuilles

Merci, j'ai mis le code de Pierrot.Avec quelques mofifs pour mon fichier ça marche impec .
Encore merci pour votre aide