Userform de recherche

Bonsoir,

J'ai besoin d'une petite aide sur un Userform que j'ai essayé d'adapter tant bien que mal à mes besoins..

C'est un Userform de recherche de client.

En double cliquant sur le client voulu, un autre Userform se lance pour visionner le détail avec aussi la possibilité de le modifier.

Tout fonctionne, sauf l'affichage des informations de la colonne W et X

Je sèche un peu depuis quelque temps, si une âme charitable pouvait m'aider.

Bonsoir,

A tester

A+

Super!!

Mais, t'as changé quoi?

Dans la procédure L1_DblClick de l’USF Recherche_Reservation, j’ai modifié la valeur finale du compteur de boucle afin de prendre en compte les 2 derniers TextBox (For i = 1 To 24).

A noter que j’ai dû modifier le nom de ces 2 TextBox pour permettre la continuité de la boucle (le T23 n’existait pas).

A+

J'avais déjà changé plusieurs fois le (For i = 1 To 24).

Mais... je n'avais pas vu que le T23 n'existait pas !

Merci en tout cas, merci beaucoup

Bonsoir,

Désolé je reviens, j'ai un petit souci par rapport à une valeur sur l'userform Recherche Et celui de la modification.

Quand il y a VRAI ou FAUX (provenant d'une checkbox) cella affiche -1 et 0 dans mes userforms.

Est-ce que je peux le changer?

J'ai essayé ça :

Sub Bouton3_Cliquer()
Sheets("Archive_devis").Range("A1:A15").Replace What:="VRAI", Replacement:="Oui", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

End Sub

Mais ça n'a rien changé ..

Bonsoir,

J'ai du mal à faire le rapprochement avec ton fichier :

• Aucune CheckBox dans l'USF,
• Dans Archive_Devis, les données de la colonne A correspondent à un numéro,
• etc.

A+

Bonjour,

Les informations qui sont dans la feuille Archive_devis viennent d'une autre feuille ou il y a des checkbox.

Pour garder une trace, je copie/colle le VRAI/FAUX de ces checkbox.

Dans l'userform le VRAI apparait en -1, et le FAUX en 0.

Un moyen de changer cette conversion?

A quel emplacement dans la feuille se trouvent ces indications VRAI/FAUX issues des checkbox ?

D'après ton code, elles se trouvent dans la colonne A mais d'après ton fichier cette colonne contient les références des devis.

Essaie de joindre ton fichier, ce sera plus clair.

A+

Les emplacements sont les colonnes R / T / V / W / X

Voilà ci-joint mon fichier avec les changements:

Dans la procédure L1_DblClick, modifie le code comme cela

For i = 1 To 24

If i = 16 Then

modif_reservation.Controls("T" & i) = CDate(Feuil11.Cells(L1.List(L1.ListIndex, 17), i))

Else

modif_reservation.Controls("T" & i) = CStr(Feuil11.Cells(L1.List(L1.ListIndex, 17), i))

End If

Next i

A+

Au top !!

Super, merci beaucoup Frangy, je reviens si j'ai un souci

Bonne journée