j'ai une erreure: nbre stocké sous forme de texte

  • Initiateur de la discussion Initiateur de la discussion L.Patrick
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

L.Patrick

Guest
Bonjour, lorsque je saisie mes informations clients, celles ci sont placées sur ma feuille excel, mais le format des cellules que j'ai utilisé n'est pas pris en compte comme pour les numéro de sécu, j'ai une erreure comme cela: (nombre stocké sous forme de texte), dois je le spécifier dans vba, et si oui comment. Merci d'avance. Patrick

Private Sub CmdCancel_Click()
Unload UserForm1
End Sub

Private Sub CmdOK_Click()
Sheets("Liste").Select
ActiveSheet.[DEB].Select
Selection.End(xlDown).Select
If Selection.Address = "$A$65536" Then
Range("DEB").Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.txtNom
ActiveCell.Offset(0, 1).Value = UserForm1.txtPrenom
ActiveCell.Offset(0, 2).Value = UserForm1.TxtTelDom
ActiveCell.Offset(0, 3).Value = UserForm1.Txtnumader
ActiveCell.Offset(0, 4).Value = UserForm1.Txtnumsecu
ActiveCell.Offset(0, 5).Value = UserForm1.Txtprof
ActiveCell.Offset(0, 6).Value = UserForm1.Txtadress
ActiveCell.Offset(0, 7).Value = UserForm1.Txtpostal
ActiveCell.Offset(0, 8).Value = UserForm1.Txtlocal
'Sheets("Client").Select
'Sheets("Client").Copy
Worksheets("Client").Copy after:=Worksheets("Client")

ActiveSheet.Name = UCase(UserForm1.txtNom) & " " & UserForm1.txtPrenom
ActiveSheet.Range("D5") = UserForm1.txtNom
ActiveSheet.Range("D6") = UserForm1.txtPrenom
ActiveSheet.Range("D13") = UserForm1.TxtTelDom
ActiveSheet.Range("D14") = UserForm1.Txtnumsecu
ActiveSheet.Range("D15") = UserForm1.Txtprof
ActiveSheet.Range("D17") = UserForm1.Txtnumader
ActiveSheet.Range("D9") = UserForm1.Txtadress
ActiveSheet.Range("D10") = UserForm1.Txtpostal
ActiveSheet.Range("D11") = UserForm1.Txtlocal
Unload Me
End Sub
 
bonsoir

je ne suis pas sur de tout avoir compris.Voilà cependant une solution qui me semble convenir partout ou tu as des données qui doivent être des nombre rajoute de val par exemple

ActiveSheet.Range("D10") =val(UserForm1.Txtpostal)

Bonne soirée.

à+Vincent
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
0
Affichages
659
Retour