Renvoi d'information dans un "userform"

Bonjour.

Affecté depuis peu dans au service relation clients, j'essaye de mettre en place un fichier pour l'enregistrement des achats au profit des clients, j'ai créer mon "userform", jusque là ça va,J'ai fais mon codage et il fonctionne, mais je me demande comment faire pour lui faire afficher des informations automatiquement.
Je m'explique.

J'aimerai quand j'entre le n° CPV (ou celui du porteur de carte) que le libellé de ce dernier s'affiche dans "Pour info" et pareil pour d'autres rubriques.

Je n'ai pas trouvé d'info à ce sujet.

Si quelqu'un est intéressé pour me donner un coup de main pour essayer de résoudre cette " énigme " et les suivantes pour terminer au mieux mon projet, cela serai hyper sympa.

Pièce jointe 403964

Salut.

Des exemples dans ces discussions, parmi une multitude d'autres sur le forum:

https://www.developpez.net/forums/d1...ccelerer-code/
https://www.developpez.net/forums/d1...xtbox-colonne/

;)

ce n'est pas automatique il faut que tu ecrives le code

Code:

---

1 2 3 4

private sub LeChamp_change leLibelleduChamps = ... end sub

---

Citation:

---

Envoyé par sogedic

ce n'est pas automatique il faut que tu écrives le code

Code:

---

1 2 3 4

private sub LeChamp_change leLibelleduChamps = ... end sub

---

---

J'ai essayé d'appliquer ce que tu m'as dis, mais plus novice que moi il n'y a pas ;), voilà ce que j'ai essayé de faire, mais cela ne marche pas... Tu veux bien m'aider ?

Code:

---

1 2 3 4 5

Private Sub LIBCPV_Change() Sheets("RECAP").Cells(Rows.Count, "u").End(xlUp).Offset(1) = Me.Controls("u").Value   End Sub

---

Quand dans mon USERFORM, je tape le n° CPV, dans mon "RECAP", plusieurs colonnes se mettent à jour automatiquement, mais je souhaiterai que ces données, reviennent elles aussi dans mon USERFORM à titre d'info.

Merci de ton aide.

Bonjour

Une technique pour trouver la différence entre ce que l'on voudrait et ce qu'Excel fait
En mode VBA
- afficher la fenêtre exécution
- faire un point d'arrêt sur la ligne ou Excel ne comprend rien
et
- regarder ce que contiennent les variables en tapant dans la fenêtre exécution

Code:

---

? nomDeLaVariable

---

Dans ton cas à la question

Code:

---

?Me.Controls("u").Value

---

Pièce jointe 404401

Excel répond

Pièce jointe 404409

donc tu ne dois pas avoir de control "U" dans ton userform

Une faute de frappe ? tu voulais peut-être écrire

Code:

---

Me.Controls("LIBCPV").Value

---

Salut.

J'explique les échanges entre table et userform (notamment sur base d'une valeur choisie dans le userform) de façon détaillée avec fichier d'exemple dans cette discussion ;)

Je te conseille de t'en inspirer pour ton projet. Si tu le fais, la seule difficulté que tu auras à l'heure actuelle sera de pouvoir déterminer la ligne du tableau structuré qui correspond à ton critère de recherche, et avec une petite fonction qui fait le job, c'est simplissime.

A toi de voir dans quoi tu souhaites t'aventurer... Mais je peux déjà te dire qu'avec des Sheets("RECAP").Cells(Rows.Count, "u").End(xlUp).Offset(1) = Me.Controls("u").Value, c'est-à dire sans travailler avec les tableaux structurés et avec une correspondance Colonne/Nom de contrôle, tu vas te compliquer singulièrement la tâche. Un simple décalage de colonne à la suite d'un déplacement de ton tableau ou d'une insertion de colonne, et ce sera la panique à bord ;)

De plus, le .end(xlup) sur la colonne "U" veut dire que tu remontes sur U. Si tu utilises le même code colonne par colonne, tu risques, en cas de cellule vide sur une colonne et pas sur une autre, de placer tes données sur des lignes différentes... Pô bien, ça... ;)

Citation:

---

Envoyé par Pierre Fauconnier

Salut.

J'explique les échanges entre table et userform (notamment sur base d'une valeur choisie dans le userform) de façon détaillée avec fichier d'exemple dans cette discussion ;)

Je te conseille de t'en inspirer pour ton projet. Si tu le fais, la seule difficulté que tu auras à l'heure actuelle sera de pouvoir déterminer la ligne du tableau structuré qui correspond à ton critère de recherche, et avec une petite fonction qui fait le job, c'est simplissime.

A toi de voir dans quoi tu souhaites t'aventurer... Mais je peux déjà te dire qu'avec des Sheets("RECAP").Cells(Rows.Count, "u").End(xlUp).Offset(1) = Me.Controls("u").Value, c'est-à dire sans travailler avec les tableaux structurés et avec une correspondance Colonne/Nom de contrôle, tu vas te compliquer singulièrement la tâche. Un simple décalage de colonne à la suite d'un déplacement de ton tableau ou d'une insertion de colonne, et ce sera la panique à bord ;)

De plus, le .end(xlup) sur la colonne "U" veut dire que tu remontes sur U. Si tu utilises le même code colonne par colonne, tu risques, en cas de cellule vide sur une colonne et pas sur une autre, de placer tes données sur des lignes différentes... Pô bien, ça... ;)

---

Je viens de parcourir ton exemple "Tennis", mais moi la fonction recherche s'exécute (même si elle est moins bien codée que la tienne), moi je veux appeler un renseignement quand je tape un code.
Ex : (Je tape) 32552130-7 et j'aimerai qu'a partir du tableau "DAMIER" les infos viennent s'afficher dans les "textbox" (LIBCPV-PCE-LIBPCE-GM-LIBGM) les infos soient reportées instantanément, ce qui permet à celui qui saisit de pouvoir vérifier la véracité des éléments.

Ce n'est pas une question de "moins bien codé" ou de "mieux codé" ;)

Le code que tu as montré (Sheets("RECAP").Cells(Rows.Count, "u").End(xlUp).Offset(1) = Me.Controls("u").Value fait l'inverse de ce que tu demandes et il est beaucoup trop fragile.

Le principe, avec ou sans tableau structuré, est de trouver la ligne qui contient les données à placer dans le userform, puis de transférer la donnée de chaque cellule de cette ligne dans le contrôle correspondant du userform.

Il faut donc d'abord trouver la ligne. Tu dis que ta fonction de recherche est ok. Tant mieux, tu as maintenant le numéro de ligne de ta donnée. Si tu tiens à une correspondance "lettre de colonne- nom de contrôle", tu pourrais avoir ceci, qui est très simple mais très casse-cou, pour transférer les données de la feuille vers le userform.

Code:

---

me.controls("u").value = cells(Ligne,"u").value

---

Evidemment, savoir que le contrôle "U" contient par exemple le "domaine fonctionnel" relève de l'utopie. Tu vas devoir avoir constamment à l'esprit ta correspondance colonne-contrôle du userform. Et comme dit plus haut, pour peu que la structure de ta feuille soit modifiée (décalage, inversion, insertion, suppression de colonne), tu vas t'amuser pour aller modifier toutes tes correspondances.

Citation:

---

Envoyé par Stephane57590

[...]
Ex : (Je tape) 32552130-7 et j'aimerai qu'a partir du tableau "DAMIER" les infos viennent s'afficher dans les "textbox" (LIBCPV-PCE-LIBPCE-GM-LIBGM) les infos soient reportées instantanément, ce qui permet à celui qui saisit de pouvoir vérifier la véracité des éléments.

---

La fonction ValuesToControls du fichier Tennis fait exactement cela ;)

La fonction ControlsToValues du fichier Tennis fait exactement l'inverse ;)

De plus, sur le plan ergonomique, il me semblerait plus intéressant de proposer la saisie du code dans un combobox (liste déroulante) qui ne proposera que les codes disponibles.

Bonjour et merci pour votre aide, car j'ai pu résoudre mon problème.

par contre j'ai plusieurs petites questions.

1/ Comment puis je faire pour remplacer ce message d'erreur (code erreur 91, voir photo jointe) par un texte box ?

2/ Le fichier étant partager entre plusieurs utilisateurs, est-il possible à plusieurs utilisateur de se servir de l'userform en même temps ?

3/ Lorsqu'un filtre est activé dans le tableau RECAP, quand j'ouvre l'userform, il prend le numéro suivant le dernier numéro filtré et donc bien souvent une ligne déjà utiliser, comment faire pour qu'il prenne la bonne ligne ou prévienne qu'un filtre est en cours.

MerciPièce jointe 405510

Salut.

Nous ne savons pas à qui tu réponds ni le code que tu as utilisé... :koi:

1. Je n'ai pas compris la question. Que signifie "remplacer un message d'erreur par un textbox? Quand as-tu ce message d'erreur? Sur quelle ligne?
2. Fichier partagé = problème à brève échéance, surtout si les modifications des données sont effectuées par VBA. Je n'ai pas testé le multiutilisateurs sur un userform (pour l'instant, je n'ai pas accès à mes machines virtuelles pour tester), mais je dirais que tu pourrais le tester. Tu aurais rapidement la réponse ;)
3. Quel code utilises-tu? Dans quel cas as-tu le problème? Si tu as utilisé les ListRows, qui ne tiennent pas compte des lignes filtrées, tu ne devrais pas avoir ce genre de problème.

Sans plus d'infos, difficile de te venir en aide :?


Je vais quand même encore le redire une fois (ça finira peut-être par percoler ^^): Les fichiers partagés en Excel, ce n'est pas DU TOUT une bonne idée.

Citation:

---

Envoyé par Pierre Fauconnier

Salut.

Nous ne savons pas à qui tu réponds ni le code que tu as utilisé... :koi:

[LIST=1][*]Je n'ai pas compris la question. Que signifie "remplacer un message d'erreur par un textbox? Quand as-tu ce message d'erreur? Sur quelle ligne?
.

---

J'ai ce message d'erreur, dans le cas suivant : Ma dernière entrée est référencée par le numéro 100 (par exemple), si dans le champ "recherche" j'entre le numéro 101 ce message d'erreur s'affiche. Je voudrais pouvoir le remplacer par un message plus simples pour les autres utilisateurs.

Désolé, j'étais absent...
J'ai bien suivi vos conseils, j'ai refait mon codage voir ci-dessous, mais si maintenant je n'ai plus le message d'erreur, je n'ai plus rien qui s'affiche.
En vous demandant de bien vouloir corriger mes erreurs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

'Pour rechercher les infos     Private Sub Trouve()   Dim Trouve As Range   If Trouve Is Nothing Then   Else l = Trouve.Row End If   SetTrouve = .Columns(1).Cells.Find(RECHER, , xlValues, xlWhole)   NUMBDCM = .Range("A" & l).Value DATE_BDCM = .Range("C" & l).Value saisiss = .Range("B" & l).Value numda = .Range("D" & l).Value TC = .Range("E" & l).Value FORM = .Range("F" & l).Value UNITE = .Range("G" & l).Value DAT_ACHT = .Range("H" & l).Value MOIS = .Range("I" & l).Value FACTUR = .Range("AG" & l).Value ENG = .Range("AH" & l).Value OBJET = .Range("J" & l).Value FOURNI = .Range("K" & l).Value MARCHE = .Range("L" & l).Value NUM_CDE = .Range("N" & l).Value NUMFAC = .Range("O" & l).Value NUMCPV = .Range("T" & l).Value COUT = .Range("V" & l).Value CF = .Range("AA" & l).Value DF = .Range("AB" & l).Value OBS = .Range("AI" & l).Value DATE_DP = .Range("AJ" & l).Value NUM_DP = .Range("AK" & l).Value AEC = .Range("AL" & l).Value DATE_CP = .Range("AM" & l).Value CPC = .Range("AN" & l).Value WFAE = .Range("AO" & l).Value LG = .Range("W" & l).Value PCE = .Range("R" & l).Value LIBCPV = .Range("U" & l).Value LIBPCE = .Range("S" & l).Value GM = .Range("P" & l).Value LIBGM = .Range("Q" & l).Value NUMCA = .Range("AD" & l).Value NOMCA = .Range("AF" & l).Value Porteur = .Range("AE" & l).Value TYP_DEP = .Range("it" & l).Value             ' Cache bouton nouvelle entrée (évite fausse manip enregistrement 2 fois mm commande) ' Rend visible le bouton modifs NVLLECMMDE.Visible = False MODIFS.Visible = True End Sub

---

Salut.

je ne sais pas de qui tu as suivi les conseils, mais ce ne sont pas mes conseils qui ont été suivis, en tout cas.

Je le répète: Ce code est trop fragile. De plus, il a dû bloquer dès son lancement, car tu utilises des trucs du genre .Range("A" & l).Value qui ne sont pas compris dans un bloc With... End With. Ce code ne saurait pas fonctionner, ni même démarré. Lorsque tu as des messages d'erreurs dès le lancement du code:

1. ce n'est pas bon signe
2. donne le message d'erreur, ça aide...

Perso, je ne peux t'aider que si tu travailles selon la méthode que je préconise, avec tableaux structurés et va-et-vient des données entre le userform et le tableau structuré via l'utilisation des ListRows comme illustré dans les exemples donnés en lien. Avec ces exemples, très peu de modifications doivent être apportées pour adapter le code à ta situation.