Execution userform n'importe ou
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un combobox dans un userform avec une liste deroulante avec ce code
Private Sub UserForm_Initialize() 'à l'initialisatiopn de l'Userform
With Sheets("An") 'prend en compte l'onglet "Liste"
Ligne = Range("A65536").End(xlUp).Row 'Positionnement de la dernière cellule à récupérer
For i = 48 To Ligne 'Démarre à la ligne 48 jusqu'à la ligne définit dans la variable Ligne
With Me.Vehicule
.AddItem Range("A" & i)
End With
Next i
End With
End Sub
mon probleme c'est que la liste deroulante ne fonctionne que sur la feuille"An" .
Et je voudrais l'executer a partir de n'importe quelle feuille du classeur avec des boutons qui appelleront l'userform de n'importe ou et vu que je dois mettre une autre liste deroulante venant d'une autre feuille
est ce possible et quoi changer dans le code svp?
merci
a bientot
j'ai un combobox dans un userform avec une liste deroulante avec ce code
Private Sub UserForm_Initialize() 'à l'initialisatiopn de l'Userform
With Sheets("An") 'prend en compte l'onglet "Liste"
Ligne = Range("A65536").End(xlUp).Row 'Positionnement de la dernière cellule à récupérer
For i = 48 To Ligne 'Démarre à la ligne 48 jusqu'à la ligne définit dans la variable Ligne
With Me.Vehicule
.AddItem Range("A" & i)
End With
Next i
End With
End Sub
mon probleme c'est que la liste deroulante ne fonctionne que sur la feuille"An" .
Et je voudrais l'executer a partir de n'importe quelle feuille du classeur avec des boutons qui appelleront l'userform de n'importe ou et vu que je dois mettre une autre liste deroulante venant d'une autre feuille
est ce possible et quoi changer dans le code svp?
merci
a bientot
A voir également:
- Execution userform n'importe ou
- Mon clavier fait n'importe quoi - Accueil - Informatique
- Application pour ouvrir n'importe quel fichier - Télécharger - Gestion de fichiers
- Clavier qui fait n'importe quoi - Forum Clavier
- Roger veut sauvegarder ses fichiers personnels en ligne pour y accéder de n’importe quel poste connecté à internet. nommez un service en ligne qu’il peut utiliser. ✓ - Forum sauvegarde
- Il permet l’exécution des logiciels applicatifs et gère l’utilisation des ressources matérielles (mémoire, processeur, périphériques). - Forum Windows 10
1 réponse
Bonjour,
J'ai fait un essai en modifiant le code car l'utilisation du with me génait. J'ai ensuite fait des essais dans différentes feuilles et les données de la liste déroulante se remplissent bien.
A tester
A plus
GB
Private Sub UserForm_Initialize() 'à l'initialisatiopn de l'Userform
Ligne = Sheets("An").Range("A65536").End(xlUp).Row 'Positionnement de la dernière cellule à récupérer
For i = 48 To Ligne 'Démarre à la ligne 48 jusqu'à la ligne définit dans la variable Ligne
With Me.Vehicule
.AddItem Sheets("An").Range("A" & i)
End With
Next i
End Sub
J'ai fait un essai en modifiant le code car l'utilisation du with me génait. J'ai ensuite fait des essais dans différentes feuilles et les données de la liste déroulante se remplissent bien.
A tester
A plus
GB
Private Sub UserForm_Initialize() 'à l'initialisatiopn de l'Userform
Ligne = Sheets("An").Range("A65536").End(xlUp).Row 'Positionnement de la dernière cellule à récupérer
For i = 48 To Ligne 'Démarre à la ligne 48 jusqu'à la ligne définit dans la variable Ligne
With Me.Vehicule
.AddItem Sheets("An").Range("A" & i)
End With
Next i
End Sub
ca marche super bien aucune erreur
a bientot