Vba lancement de macro
Résolu
yacleouf
Messages postés
438
Date d'inscription
Statut
Membre
Dernière intervention
-
yacleouf Messages postés 438 Date d'inscription Statut Membre Dernière intervention -
yacleouf Messages postés 438 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- =Incorporer("forms.commandbutton.1";"")
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Qu'est ce qui se lance au démarrage de l'ordinateur - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
7 réponses
Salut il y a plus simple qu'un bouton enfin moi je procede souvent comme ça tu insère un module dans ton projet sous VBA que tu nome par exemple Lanceur, dans el code du model tu fais :
Sub Lancement()
NomDeTonUserForm.Show
End Sub
ensuite dans excel tu clic sur le bouton de lecture, là tu selectionne Lancement, puis tu clic sur option et tu créer un raccourci de touche Ctrl etant par defaut et obligatoir tu met comme lettre de raccourci m pour menu tu ferme la fenetre puis tu fais Ctrl+m et bam ça lance ton USF . . .
Sub Lancement()
NomDeTonUserForm.Show
End Sub
ensuite dans excel tu clic sur le bouton de lecture, là tu selectionne Lancement, puis tu clic sur option et tu créer un raccourci de touche Ctrl etant par defaut et obligatoir tu met comme lettre de raccourci m pour menu tu ferme la fenetre puis tu fais Ctrl+m et bam ça lance ton USF . . .
Salut, nikel sa marche,
au passage tent que je t'ai sous la main, j'ai un soucis avec une listebox j'aimerais enfaite qu'il y ait un controle du genre, si la liste box est vide mettre un message d'alerte sinon ok passer à la suite,
j'ai eu beau chercher rien a y faire, je bloque sur un problème qui est sans doute "léger"...
merci encore!
au passage tent que je t'ai sous la main, j'ai un soucis avec une listebox j'aimerais enfaite qu'il y ait un controle du genre, si la liste box est vide mettre un message d'alerte sinon ok passer à la suite,
j'ai eu beau chercher rien a y faire, je bloque sur un problème qui est sans doute "léger"...
merci encore!
bon je t'ai fais un truc mais avec une combobox j'ai pas reussi avec listbox (je suis debtuant aussi en VBA) mais perso j'utilise toujours des ComboBox je préfère et ça donne ça:
Private Sub ComboBox1_Change()
Dim a As Long
a = 1
Do
a = a + 1
Loop Until Application.Cells(a, 1) = Empty
If a - 1 = 1 Then
ComboBox1 = "Aucun choix"
End If
End Sub
Private Sub ComboBox1_Change()
Dim a As Long
a = 1
Do
a = a + 1
Loop Until Application.Cells(a, 1) = Empty
If a - 1 = 1 Then
ComboBox1 = "Aucun choix"
End If
End Sub
Merci pour ta réponse et désolé de répondre plus tard, mais le problème c'est que j'ai deja beaucoup de listbox et si je dois faire sa pour chaque listbox (refaire le code listbox, plus refaire le code combobox, et l'adapté à mon code existant ^^")
je risque de pas m'en sortir:) bon je vais essayer de chercher autre chose,
merci a toi
je risque de pas m'en sortir:) bon je vais essayer de chercher autre chose,
merci a toi
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
c'est bon enfaite je me suis cassé la tete pour rien, mais en même temps je ne connaissais pas la propriété "empty" sa donne quelque chose comme sa :
merci encore !
private Sub userform() If userform.listbox = Empty Then msgbox "Attention - !", vbExclamation, "Message d'erreur" Else une autre propriété.... End if End sub
merci encore !