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

anais2507 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention - 16 févr. 2016 à 16:29

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 !!!!!!!!

A voir également:

Report de données Userform dans deux endroits différents
Fuite données maif - Guide
Comment faire deux colonnes indépendantes dans word - Guide
Nombre de jours entre deux dates excel - Guide
Supprimer les données de navigation - Guide
Deux ecran pc - Guide

2 réponses

Réponse 1 / 2

anais2507 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

bon je ne réussi pas à joindre mon fichier

Si quelqu'un peut tout de meme me donner des indications ....

Merci beaucoup

anais2507 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

https://mon-partage.fr/f/tb39Wg64/

Mon fichier se trouver ici !!!!

Réponse 2 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

Discussions similaires

Supprimer conversation messenger pour tout le monde

Erreur la zone de données passée à un appel système est insu

Votre réponse

Discussions similaires