Export d’UserForm d’un classeur sur un autre = erreur
Résolu/Fermé
mijean94
Messages postés
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
-
28 févr. 2016 à 16:36
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 28 févr. 2016 à 21:45
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 28 févr. 2016 à 21:45
A voir également:
- Export d’UserForm d’un classeur sur un autre = erreur
- Erreur 0x80070643 - Guide
- Export favoris chrome - Guide
- Ce message d'erreur apparaît sur l'ordinateur d'elena. que peut-on dire du programme gwxux ? - Forum logiciel systeme
- Code erreur f3500-32 ✓ - Forum Bbox Bouygues
- Erreur 10016 epson - Forum Imprimante
1 réponse
mijean94
Messages postés
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
10
28 févr. 2016 à 21:45
28 févr. 2016 à 21:45
Bonjour,
Après réflexion, j'ai fait une petite modif qui marche.
Ajout des deux sheets dans le code.
C'est peut-être pas la bonne solution mais ça fonctionne.
Cordialement
Après réflexion, j'ai fait une petite modif qui marche.
Ajout des deux sheets dans le code.
C'est peut-être pas la bonne solution mais ça fonctionne.
Private Sub UserForm_Initialize()
Sheets("BD").Select
choix1 = Application.Transpose(Range("choix1"))
choix2 = Application.Transpose(Range("choix2"))
choix3 = Application.Transpose(Range("choix3"))
prix = Application.Transpose(Range("prix"))
Sheets("Devis").Select
Set d1 = CreateObject("Scripting.Dictionary")
For Each c In choix1: d1(c) = "": Next c
Me.ComboBox1.List = d1.keys
End Sub
Cordialement