Aide pour création d'un programme vba
Kaihili
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
Kaihili Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Kaihili Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train de crée une vba qui aurait pour but de crée une sorte de journal de bord qui permettrait par exemple que quelque'un du service qualité envoie une demande ou une info a quelqu'un de la production.
Le principe est que sur le userform il y a 4 combo box :
- 2 pour l'emmeteur nommé : services et prénom1
- 2 pour le destinataire : services2 et prénom2
Le but de ces combo box: une pour sélectionner le service et une autre pour sélectionner le nom. J'ai crée un code pour faire en sorte que selon le service choisi, quand on veut choisir le nom de la personne ce soit uniquement celle de service qui apparaisse. Ex : le service choisi qualité donc le choix des noms est : paul, marc, julie.
Mon premier probleme est : je souhaiterais que quand on clique sur la combo box du choix du nom avant de choisir le service apparaisse "veuillez d'abord sélectionner votre service".
Mon deuxième probleme est : J'ai crée une frame dans lequel la personne écrit son message, je voudrais que quand on clique sur "envoyer", le message soit envoyer à la personne précédemment sélectionner et que en plus ce soit signer automatiquement du nom de l'emmeteur.
J'espère que je suis suffisamment claire dans mes explications et que quelqu'un pourra m'aider a trouver une solution pour mes 2 problématiques.
Merci pour votre aide
Je suis en train de crée une vba qui aurait pour but de crée une sorte de journal de bord qui permettrait par exemple que quelque'un du service qualité envoie une demande ou une info a quelqu'un de la production.
Le principe est que sur le userform il y a 4 combo box :
- 2 pour l'emmeteur nommé : services et prénom1
- 2 pour le destinataire : services2 et prénom2
Le but de ces combo box: une pour sélectionner le service et une autre pour sélectionner le nom. J'ai crée un code pour faire en sorte que selon le service choisi, quand on veut choisir le nom de la personne ce soit uniquement celle de service qui apparaisse. Ex : le service choisi qualité donc le choix des noms est : paul, marc, julie.
Mon premier probleme est : je souhaiterais que quand on clique sur la combo box du choix du nom avant de choisir le service apparaisse "veuillez d'abord sélectionner votre service".
Mon deuxième probleme est : J'ai crée une frame dans lequel la personne écrit son message, je voudrais que quand on clique sur "envoyer", le message soit envoyer à la personne précédemment sélectionner et que en plus ce soit signer automatiquement du nom de l'emmeteur.
J'espère que je suis suffisamment claire dans mes explications et que quelqu'un pourra m'aider a trouver une solution pour mes 2 problématiques.
Merci pour votre aide
A voir également:
- Aide pour création d'un programme vba
- Creation compte gmail - Guide
- Création site web - Guide
- Création d'un compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Programme demarrage windows - Guide
4 réponses
Bonjour,
Pour être honnête c'est la première fois que je crée une vba donc je galère un peux. Ci-dessous ce sont les différents code que j'ai crée pour mes différentes combo box mais je n'arrive pas à trouver un code pour crée ce que je souhaite. De plus, je ne sais pas si c'est important mais dans une feuille excel, j'ai crée deux colonne : une pour les services et une pour les noms.
Sub services_Change()
'liste des prénom
prénom1.Clear
For Each n In Sheets("pers").Range("a2:" & Sheets("pers").Range("a1").End(xlDown).Address)
If n = services.Value Then prénom1.AddItem Sheets("pers").Range("b" & n.Row)
Next
End Sub
Sub services2_change()
'liste des prénoms
prénom2.Clear
For Each n In Sheets("pers").Range("a2:" & Sheets("pers").Range("a1").End(xlDown).Address)
If n = services2.Value Then prénom2.AddItem Sheets("pers").Range("b" & n.Row)
Next
End Sub
Private Sub UserForm_Initialize()
'liste des services
With Me.services
.AddItem "qualité"
.AddItem "production"
.AddItem "sécurité"
.AddItem "méthodes"
.AddItem "approvisionnements"
.AddItem "maintenance"
.AddItem "logistique"
.AddItem "nettoyage"
.AddItem "direction"
.AddItem "expédition"
End With
'liste des services
With Me.services2
.AddItem "qualité"
.AddItem "production"
.AddItem "sécurité"
.AddItem "méthodes"
.AddItem "approvisionnements"
.AddItem "maintenance"
.AddItem "logistique"
.AddItem "nettoyage"
.AddItem "direction"
.AddItem "expédition"
End With
Pour être honnête c'est la première fois que je crée une vba donc je galère un peux. Ci-dessous ce sont les différents code que j'ai crée pour mes différentes combo box mais je n'arrive pas à trouver un code pour crée ce que je souhaite. De plus, je ne sais pas si c'est important mais dans une feuille excel, j'ai crée deux colonne : une pour les services et une pour les noms.
Sub services_Change()
'liste des prénom
prénom1.Clear
For Each n In Sheets("pers").Range("a2:" & Sheets("pers").Range("a1").End(xlDown).Address)
If n = services.Value Then prénom1.AddItem Sheets("pers").Range("b" & n.Row)
Next
End Sub
Sub services2_change()
'liste des prénoms
prénom2.Clear
For Each n In Sheets("pers").Range("a2:" & Sheets("pers").Range("a1").End(xlDown).Address)
If n = services2.Value Then prénom2.AddItem Sheets("pers").Range("b" & n.Row)
Next
End Sub
Private Sub UserForm_Initialize()
'liste des services
With Me.services
.AddItem "qualité"
.AddItem "production"
.AddItem "sécurité"
.AddItem "méthodes"
.AddItem "approvisionnements"
.AddItem "maintenance"
.AddItem "logistique"
.AddItem "nettoyage"
.AddItem "direction"
.AddItem "expédition"
End With
'liste des services
With Me.services2
.AddItem "qualité"
.AddItem "production"
.AddItem "sécurité"
.AddItem "méthodes"
.AddItem "approvisionnements"
.AddItem "maintenance"
.AddItem "logistique"
.AddItem "nettoyage"
.AddItem "direction"
.AddItem "expédition"
End With
Bonjour, c'est déjà pas mal ce que tu as commencé en code. Tu utilises la méthode additem pour remplir ton combobox par contre, si tu changes les services sur ta feuille, il faudra le faire également dans ton script VBA! De plus, dans les noms de variables ne mets pas d'accents, ça peut créer des bogues!