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

Fermé

anais2507 Messages postés 3 Date d'inscription mardi 16 février 2016 Statut Membre Dernière intervention 16 février 2016 - 16 févr. 2016 à 11:10
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 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
Deux comptes whatsapp - Guide
Deux ecran pc - Guide
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Exemple base de données access à télécharger gratuit - Forum Access

2 réponses

Réponse 1 / 2

anais2507 Messages postés 3 Date d'inscription mardi 16 février 2016 Statut Membre Dernière intervention 16 février 2016
16 févr. 2016 à 11:11

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 mardi 16 février 2016 Statut Membre Dernière intervention 16 février 2016
16 févr. 2016 à 11:17

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

Mon fichier se trouver ici !!!!

Réponse 2 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
16 févr. 2016 à 16:29

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

Question PIX

Un seul de mes écouteurs marche. Que faire ?

ou sont les bananes ?

Excel formule : compter le nombre de valeurs différentes

2 comptes facebook avec même mail et même nom

Discussions similaires

Newsletters