Userform et macro

Re : Userform et macro

Mon code de macro pour les valeurs de la colonne est :

Par quoi dois-je remplacer "Site" pour qu'il récupère la donnée rentrée dans le userform ?

🙁

Re : Userform et macro

Bonsoir


Dans le cas ou ta textbox a pour nom TextBox1

alors ton code devrait être

Cells(2, VCol).Value = TextBox1.Text
ou même
Cells(2, VCol).Value = TextBox1

Re : Userform et macro

Merci pour ta réponse mais ça ne fonctionne pas.
J'obtiens une erreur d'exécution '424' : objet requis
et la ligne : Cells(2, VCol).Value = txtProjet.Text est surlignée en jaune (txtProjet étant le nom de la textBox dont je veux récupérer la donnée).

Re : Userform et macro

Je précise que mon userform est sur une autre feuille que la macro.

Le userform est sur la feuille Juin07 (et sera sur Juillet07, Aout07...) alors que la macro est sur la feuille Datas.

Re : Userform et macro

Bonjour


message edité ( car la réponse après avoir régardé ton fichier n'était pas valable)

La précédente réponse étant:

Ton code ne devrait-il pas etre dans l'userform

Re : Userform et macro

Je ne peux pas mettre le code dans le userform puisqu'il s'agit d'une macro.
Il faut que je fasse la liaison entre ma macro et le userform mais je ne sais pas comment...

Re : Userform et macro

Bonjour à tous

Tu as alligné la base clients (Datas) et projet ("Feuil1") . Quand tu choisis un client dans ta combobox, tu as Combobox1.listindex qui prend l'index du choix que tu as fait. Mais cet index commen à 0 et ta base commen à la ligne 2, donc tu ajoutes 2 à listindex pour avoir le bon projet

Tu vas donc en vba dans ton Userform, tu affiches l'USF Rajout projet
tu double-cliques sur la combobox

et tu ajoutes la ligne en rouge

Private Sub ComboBox1_Change()
TextBox1 = Sheets("Feuil1").Range("B" & ComboBox1.ListIndex + 2).Value
End Sub

Cliquez pour agrandir...

Ensuite

Pour mettre en place les valeur dans une feuille
un double click sur le bouton

Private Sub CommandButton1_Click()
Sheets("Feuilleàmettreàjour").Range("A" & ligneamettreàjour).value = combobox1
Sheets("Feuilleàmettreàjour").Range("B" & ligneamettreàjour).value =textbox1
End Sub

Cliquez pour agrandir...

Re : Userform et macro

Wilfried, merci pour ta réponse à la question que je t'ai soumise par message privé concernant le rajout d'un projet pour un client.

Malheureusement ta solution ne fonctionne pas.

Qu'appelles-tu aligner la feuil1 et Datas (la feuille 1 n'était là que par hasard, elle n'a aucune utilité future) ?

J'ai tout de même essayé ta manipulation mais sans succès.

Aurais tu également une idée pour mon pb de rajout client et projet avec le premier USF ?

Merci

Re : Userform et macro

Ma question est ,semble-t-il, nébuleuse je vais donc essayer de l'expliquer plus clairement :

Tous les mois, nous remplissons une feuille de temps nommée "moisannée" (juin07, avril07...).
Sur ces feuilles, on remplit : le nom du client, le nom du projet, la phase, la fonction, une description libre, l'auteur, la date et le temps.

Les noms des clients et les noms des projets sont à choisir dans des listes de validation, la liste des projets dépendant de la liste des clients.
Ces listes sont sur la feuille "Datas".
La colonne A contient les noms des clients ; une macro fait que lorsqu'on rentre un nouveau client, il se classe par ordre alphabétique dans la colonne A et une colonne au nom de ce nouveau client se créer à droite là aussi rangée alphabétiquement pour que les listes fonctionnent bien.

CE QUE JE VOUDRAIS :

- cacher la feuille Datas pour éviter les mauvaises manipulations (ça je sais faire)
- utiliser le USF que j'ai créé sur la feuille Juin07 (et qui sera présent sur toutes les futures pages mensuelles) pour intégrer de nouveaux clients et/ou projets

L'USF comporte 3 écrans :
- le premier donne le choix entre "Créer un nouveau client" et "Créer un projet d'un client déjà existant"
- l'écran "Créer un nouveau client" offre deux champs à remplir : "Nom du client" et "Nom du projet"
-> je voudrais que l'utilisateur entre le nom du client et que celui-ci impacte la colonne A de la feuille "Datas" et que le nom du projet entré via le USF vienne se greffer à la bonne colonne nouvellement créée par le nom du client. (Si le USF pouvait vérifier que le nom du client n'existe pas déjà pour éviter les doublons, je suis preneur)
- l'écran "Créer un projet d'un client existant" contient là aussi deux champs : une listbox qui contient tous les clients de la base et un champs libre "Nom du projet"
-> je voudrais que l'utilisateur choisisse le client auquel il veut rajouter un projet dans la listbox et qu'il rentre le nom du projet dans le champs et que celui-ci impacte la colonne du projet en intégrant ce nom à la liste. ( Là aussi, si le USF peut vérifier que le projet du client n'existe pas déjà, je suis preneur)

Voilà, j'espère avoir été plus clair et que qqun a une solution à mon problème.

D'avance merci