Discussion :

[Florent6744]

Bonjour,

Je viens vers vous car je suis en train de me prendre la tête sur un problème de format sur un userform.
C'est le premier user que je réalise.

Voila mon problème:

Je cherche à récupérer les données des cellules suivant le numéro de dossier recherché.
Les données sont bien reportées mais je ne trouve pas le moyen d'afficher les prix en € et les remises en % dans les textbox.

dans un second temps je souhaite pouvoir changer les données et les modifier sur le tableau excel.
Là encore cela fonctionne mais va savoir pourquoi tout se note en texte et du coup les formats de cellule ne colle plus avec ceux d'origine.

J'ai passé la semaine entière à voir sur les forum mais toutes les solutions trouvées ne fonctionnent pas et je ne trouve pas pourquoi.

J'ai épuisé ma science (qui n'est pas bien grande en vba) et je m'en remets à vous pour trouver la solution.

Merci d'avance

[patricktoulon]

salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
    'recherche dossier
    Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
 
    'affichage
    TextBox2.Text = Cells(ActiveCell.Row, 2).Text
    TextBox3.Text = Cells(ActiveCell.Row, 3).Text
    ComboBox1.Text = Replace(Cells(ActiveCell.Row, 4).Text, "%", " %")
    TextBox4.Text = Cells(ActiveCell.Row, 5).Text
 
End Sub

[Florent6744]

Bonjour,

Un peu tardivement mais merci pour ton aide.
Cela fonctionne bien lorsque je regarde le user mais si je change le chiffre pour l'inscrire dans la cellule il le marque en texte et non en chiffre pour garder le format monétaire.

si tu peux m'aider je t'en remercie.