Discussion :

[Stephane57590]

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.

[Pierre Fauconnier]

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/

[sogedic]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
private sub LeChamp_change
  leLibelleduChamps = ...
end sub

[Stephane57590]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sogedic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

? nomDeLaVariable

Dans ton cas à la question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?Me.Controls("u").Value

Excel répond

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Controls("LIBCPV").Value

[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...

[Stephane57590]

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.

[Stephane57590]

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.

Merci

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[...]
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.

[Pierre Fauconnier]

Salut.

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

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.

[Stephane57590]

Salut.

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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.