ST

bingo10 · 7 Juin 2009

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

Excel-lent · 7 Juin 2009

Re : ST

Bonjour Bingo,

Bingo à dit:
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 :

Code:

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 :

Code:

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 · 7 Juin 2009

Re : ST

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

ST

bingo10

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

bingo10

XLDnaute Occasionnel

Discussions similaires

ST

bingo10

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

bingo10

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency