Remplir plusieurs feuilles avec un seul userform

Question

Je souhaiterais remplir deux feuilles à l'aide d'un même userform . Je première feuille se remplir mais pas le seconde. Je voudrais donc solliciter l'aide auprès des plus expérimentés. Voici le code End Sub '************************************ 'Procedure permettant d'ajouter des nouvelles donn?es saissies dan la feuile mouvement et stocke) '************************************* Private Sub btnValider_Click() Sheets("Mouvement").Activate Range("A2").Select Selection.End(xlDown).Select 'on se position sur la derni?re ligne non vide Selection.Offset(1, 0).Select 'On se decale d'une ligne vers le bas ActiveCell = cmbCat?gorie.Value ActiveCell.Offset(0, 1).Value = txtR?ference ActiveCell.Offset(0, 2).Value = cmbAttitr? ActiveCell.Offset(0, 3).Value = CmbNom ActiveCell.Offset(0, 4).Value = cmbTitulaire ActiveCell.Offset(0, 5).Value = cmbDate ActiveCell.Offset(0, 6).Value = txtDur?e ActiveCell.Offset(0, 7).Value = "En pr?t" ActiveCell.Offset(0, 8).Value = cmbEtat '*********************************** 'Procedure pour aller alimenter le stock de base si le mat?riel est nouveau '*********************************** Sheets("Base").Activate Range("A3").Select Selection.End(xlDown).Select 'on se position sur la derni?re ligne non vide Selection.Offset(1, 0).Select 'On se decale d'une ligne vers le bas ActiveCell = cmbCat?gorie.Value ActiveCell.Offset(0, 1).Value = txtR?ference ActiveCell.Offset(0, 2).Value = cmbAttitr? ActiveCell.Offset(0, 3).Value = c ActiveCell.Offset(0, 4).Value = cmbTitulaire ActiveCell.Offset(0, 5).Value = cmbDate ActiveCell.Offset(0, 6).Value = "Ind?termin?e" ActiveCell.Offset(0, 7).Value = "En pr?t" ActiveCell.Offset(0, 8).Value = cmbEtat End Sub...

galopin01 · Answer

Fournir le classeur KIVABIEN avec. Apparemment il s'agit d'un MAC le préciser et décrire la config. A+...