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 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 16 févr. 2016 à 16:29
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 16 févr. 2016 à 16:29
A voir également:
- Report de données Userform dans deux endroits différents
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
- Deux comptes whatsapp - Guide
- Deux ecran pc - Guide
- Telecharger crystal report - Télécharger - Présentation
- Sandra a décidé de mieux contrôler son image et sa présence sur différents réseaux sociaux. qu’est-il possible de faire sur ces réseaux ? - Forum Études / Formation High-Tech
2 réponses
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
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
Si quelqu'un peut tout de meme me donner des indications ....
Merci beaucoup
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
16 févr. 2016 à 16:29
16 févr. 2016 à 16:29
Bonjour,
A corriger dans ThisWorkbook:
et dans UserForm2
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
16 févr. 2016 à 11:17
Mon fichier se trouver ici !!!!