Report de données Userform dans deux endroits différents

Question

Bonjour, 

En tant que débutante en programmation VBA je rencontre de "petits" problemes quant à la récupération de mes données dans deux endroits différents 

Dans le fichier ci joint une série de formulaire qui se reportent automatiquement quand je clique sur suivant dans des feuilles différentes... jusqu'ici tout va "bien" si l'on peut dire ...

La ou je rencontre des difficultés c'est quand j'essaie de reporter les données de ces memes userform dans des labels de l'onglet "RECAP" que je souhaite enregistrer (seulement l'onglet RECAP) automatiquement à la fin de la saisie de tous les formulaires 

J'espere que j'ai été claire et que quelqu'un pourra m'aider ... 

il faudrait donc que je puisse : 

- reporter les données de tous les Userform dans l'onglet récap quand je clique sur suivant dans chacun d'entre eux
-enregistrer sous, l'onglet récap a la fin de la saisie de tous les formulaires 


Je vous remercie !!!!!!!!

anais2507 · Answer

bon je ne réussi pas à joindre mon fichier 

Si quelqu'un peut tout de meme me donner des indications .... 

Merci beaucoup

cs_Le Pivert · Answer

Bonjour,

A corriger dans ThisWorkbook:

Private Sub Workbook_Activate()
Application.Visible = False
ACCUEIL.Show
End Sub
 

et dans UserForm2

Private Sub SUIVANT2_Click()
Dim ctrl As Control, ctrlerr As Control
Dim erreur As Boolean

For Each ctrl In Me.Controls
    erreur = False
    If TypeOf ctrl Is MSForms.TextBox And Len(ctrl) = 0 Then
            erreur = True
            Set ctrlerr = ctrl
            Exit For
    End If
Next ctrl
 
If erreur = True Then
    MsgBox "Vous n'avez pas rempli toutes les zones"
    ctrlerr.SetFocus
    Set ctrlerr = Nothing

End If

With Worksheets("Feuil1")
ligne = Sheets("Feuil1").[d65000].End(xlUp).Row
  '--- Transfert Formulaire dans BD
.Cells(ligne, 5) = Me.titre
.Cells(ligne, 6) = Me.descripton
.Cells(ligne, 7) = Me.ComboBox1
.Cells(ligne, 8) = Me.TYPEPRIO
.Cells(ligne, 9) = Me.objope
.Cells(ligne, 10) = Me.objdev
.Cells(ligne, 11) = Me.chiffrediag
.Cells(ligne, 12) = Me.AFIC
.Cells(ligne, 13) = Me.POVILLE
.Cells(ligne, 14) = Me.frequence
.Cells(ligne, 15) = Me.materiel
.Cells(ligne, 16) = Me.support
.Cells(ligne, 17) = Me.lieu
.Cells(ligne, 18) = Me.echeance
.Cells(ligne, 19) = Me.ComboBox2
End With

With Worksheets("RECAP")
.Shapes("RECAPTITRE").Select
 Selection.Characters.Text = Me.titre.Value
.Shapes("RECAPDESCRIPTION").Select
Selection.Characters.Text = Me.descripton.Value
.Shapes("RECAPPRIOINTER").Select
Selection.Characters.Text = Me.ComboBox1.Value
.Shapes("RECAPTYPEPRIO").Select
Selection.Characters.Text = Me.TYPEPRIO.Value
.Shapes("RECAPOBJOPE").Select
Selection.Characters.Text = Me.objope.Value
.Shapes("RECAPOBJDEV").Select
Selection.Characters.Text = Me.objdev.Value
.Shapes("RECAPCHIFFREDIAG").Select
Selection.Characters.Text = Me.chiffrediag.Value
.Shapes("RECAPAFIC").Select
Selection.Characters.Text = Me.AFIC.Value
.Shapes("RECAPPOVILLE").Select
Selection.Characters.Text = Me.POVILLE.Value
.Shapes("RECAPFREQUENCE").Select
Selection.Characters.Text = Me.frequence.Value
.Shapes("RECAPMOYENS").Select
Selection.Characters.Text = Me.materiel.Value
.Shapes("RECAPSUPPORTD").Select
Selection.Characters.Text = Me.support.Value
.Shapes("RECAPLIEU").Select
Selection.Characters.Text = Me.lieu.Value
.Shapes("RECAPECH").Select
Selection.Characters.Text = Me.echeance.Value
.Shapes("RECAPIMPLIC").Select
Selection.Characters.Text = Me.habitants.Value
.Shapes("RECAPPARTE").Select
Selection.Characters.Text = Me.ComboBox2.Value
End With

Unload Me

If Me.ComboBox2.Value = "OUI" Then
UserForm3.Show
Else: UserForm4.Show
End If

End Sub

Report de données Userform dans deux endroits différents

2 réponses

Discussions similaires

Newsletters