ST

[bingo10]

Bonjour,
Si quelqu'un peut voir pour cela?
Merci!
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Excel-lent]

Re : ST

Bonjour Bingo,

Le Bouton Recherche1 affiche la consultation, seulement les données en Tel, Fax et portale ne sont pas présentées comme dans le classeur ( il faut spécifier le format dans VBA?)

Oui, il faut spécifier le format dans le code VBA!

Ton code actuel :

Private Sub UserForm_activate()

'(...)
resultat.TextBox5.Value = ActiveCell.Offset(0, 5)
resultat.TextBox6 = ActiveCell.Offset(0, 6)
resultat.TextBox7.Value = ActiveCell.Offset(0, 7)

End Sub

A remplacer par le code suivant :

Private Sub UserForm_activate()

'(...)
resultat.TextBox5.Value = [COLOR="Blue"]Format([/COLOR]ActiveCell.Offset(0, 5)[COLOR="Blue"], "00 00 00 00 00")[/COLOR]
resultat.TextBox6 = [COLOR="Blue"]Format([/COLOR]ActiveCell.Offset(0, 6)[COLOR="Blue"], "00 00 00 00 00")[/COLOR]
resultat.TextBox7.Value = [COLOR="Blue"]Format([/COLOR]ActiveCell.Offset(0, 7)[COLOR="Blue"], "00 00 00 00 00")[/COLOR]

End Sub

partie rajoutée

Bonne fin d'après midi

 

[bingo10]

Re : ST

Merci Excel Lent,
Je vais voir cela,
On garde contact!