Userform avec Multipages

[frite295]

Bonjour les amis,

J'ai créé un userform avec plusieurs pages. Ces différentes pages représentent des années (2012 à 2015).
Ce dernier remplit automatiquement un tableau, selon les années.

Mon souci est le suivant. Lorsque je veux saisir des données uniquement pour 2012, sans modifier celles des autres années, je remplis que la page 2012. A partir de là, les données retranscrites sur mon tableau, colonne 2012 sont modifiés et toutes les autres sont effacés vu que je n'ai les ai pas saisi dans mon userform.

Je veux saisir des données pour l'année 2012 seulement sans que les données des années 2013 2014 2015 soit affectées. Comment faire?

Voici mon code:*

Private Sub BtnValider_Click()



Dim Param As Worksheet
Set Param = ActiveWorkbook.Sheets("param")

    
'2012
    If S12 <> "" And R12 <> "" And D12 <> "" And M12 <> "" And A12 <> "" Then
     With Param
      .Range("c4") = TextBoxS12
       .Range("c5") = TextBoxR12
       .Range("c6") = TextBoxD12
       .Range("c7") = TextBoxM12
       .Range("c8") = TextBoxA12
       End With
       End If
       
'2013
    If S13 <> "" And R13 <> "" And D13 <> "" And M13 <> "" And A13 <> "" Then
     With Param
      .Range("d4") = TextBoxS13
       .Range("d5") = TextBoxR13
       .Range("d6") = TextBoxD13
       .Range("d7") = TextBoxM13
       .Range("d8") = TextBoxA13
       End With
         End If
       
'2014
    If S14 <> "" And R14 <> "" And D14 <> "" And M14 <> "" And A14 <> "" Then
     With Param
      .Range("e4") = TextBoxS14
       .Range("e5") = TextBoxR14
       .Range("e6") = TextBoxD14
       .Range("e7") = TextBoxM14
       .Range("e8") = TextBoxA14
       End With
         End If

'2015
    If S15 <> "" And R15 <> "" And D15 <> "" And M15 <> "" And A15 <> "" Then
     With Param
      .Range("e4") = TextBoxS15
       .Range("e5") = TextBoxR15
       .Range("e6") = TextBoxD15
       .Range("e7") = TextBoxM15
       .Range("e8") = TextBoxA15
       End With
         
       
    
    
 
    End Sub
        
Private Sub BtnRecommencer_Click()

    S12 = ""
    R12 = ""
    D12 = ""
    M12 = ""
    A12 = ""
    S12.SetFocus
    
End Sub
Private Sub BtnSortie_Click()

    Unload Me

End Sub

Private Sub s12_Click()
End With
End Sub





Private Sub MultiPage1_Change()

End Sub

Merci

 

[youky(BJ)]

Re : Userform avec Multipages

Bonjour Frite295,
Si tes pages sont nommées 2012 2013 2014 2015

If MultiPage1.SelectedItem.Caption="2012" then
'2012
ton if à end if
...
...
End If

Bruno

 

[frite295]

Re : Userform avec Multipages

Bonjour Frite295,
Si tes pages sont nommées 2012 2013 2014 2015

If MultiPage1.SelectedItem.Caption="2012" then
'2012
ton if à end if
...
...
End If

Bruno

J'ai essayé mais ca ne marche pas. Ca continue d'effacer les données au lieu de les laisser tel quel