Bonjour Peponne31,
Donne un exemple sur ce que tu tentes de réaliser...
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour,
Excel 2003
Quelle est la formule pour ne pas modifier le formatage d'une cellule
lorsque l'on en modifie le contenue en vba.
Merci
Bonjour Peponne31,
Donne un exemple sur ce que tu tentes de réaliser...
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 119AF97C-9D91-404E-B0B0-EF4764C86AE0@microsoft.com...
Bonjour,
Excel 2003
Quelle est la formule pour ne pas modifier le formatage d'une cellule
lorsque l'on en modifie le contenue en vba.
Merci
Bonjour Peponne31,
Donne un exemple sur ce que tu tentes de réaliser...
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour,
Excel 2003
Quelle est la formule pour ne pas modifier le formatage d'une cellule
lorsque l'on en modifie le contenue en vba.
Merci
Bonjour Peponne31,
Donne un exemple sur ce que tu tentes de réaliser...
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour,
Excel 2003
Quelle est la formule pour ne pas modifier le formatage d'une cellule
lorsque l'on en modifie le contenue en vba.
Merci
Bonjour Peponne31,
Donne un exemple sur ce que tu tentes de réaliser...
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 119AF97C-9D91-404E-B0B0-EF4764C86AE0@microsoft.com...
Bonjour,
Excel 2003
Quelle est la formule pour ne pas modifier le formatage d'une cellule
lorsque l'on en modifie le contenue en vba.
Merci
Bonjour Peponne31,
Donne un exemple sur ce que tu tentes de réaliser...
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour,
Excel 2003
Quelle est la formule pour ne pas modifier le formatage d'une cellule
lorsque l'on en modifie le contenue en vba.
Merci
A ) les contrôles Textbox d'un formulaire retourne toujours
des chaînes de caractères (du texte)
Exemple :
1- Si le textbox contenant le numéro de téléphone
a reçu un format particulier, ce format (les symboles
utilisés pour ce format) est intégré au numéro de
téléphone lorsque tu le copies vers la feuille de calcul.
Si la cellule a déjà un format (téléphone), ce format
est bon seulement si les chiffres du numéro de téléphone
sont transférés sans les symboles du format du textbox.
2 - Si tu as utilisé un textbox pour saisir des dates ...
tu devrais d'abord t'assurer que le contenu du textbox
contient une date qu'Excel sait reconnaître en utilisant ceci :
if isdate(Me.Textbox1) then
range("A1").NumberFormat = "dd/MM/YYYY" 'le format de ton choix
'Cdate() utilise par défaut le format du panneau de configuration
range("A1").value = Format(Cdate(me.textbox1),"dd/MM/YYYY")
end if
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour MichDenis,
Private Sub B_ValiderModif_Click()
ligne = [A5].Offset(ChoixNuméro.ListIndex, 0).Row
Sheets("FichierClients").Cells(ligne, 2) = Me.Civilités
Sheets("FichierClients").Cells(ligne, 3) = Me.TxtNom
Sheets("FichierClients").Cells(ligne, 4) = Me.TxtRue
Sheets("FichierClients").Cells(ligne, 5) = Me.TxtRue2
Sheets("FichierClients").Cells(ligne, 6) = Me.TxtCodePostal
Sheets("FichierClients").Cells(ligne, 7) = Me.TxtVille
Sheets("FichierClients").Cells(ligne, 8) = Me.TxtTéléphone
Sheets("FichierClients").Cells(ligne, 9) = Me.TxtPortable
Sheets("FichierClients").Cells(ligne, 11) = Me.TxteMail
Sheets("FichierClients").Cells(ligne, 12) = Me.TxtDateNaissance
Sheets("FichierClients").Cells(ligne, 13) = Me.TxtDate1Visite
Sheets("FichierClients").Cells(ligne, 14) = Me.TxtProfession
Sheets("FichierClients").Cells(ligne, 15) = Me.TxtAge
Sheets("FichierClients").Cells(ligne, 16) = Me.TxtPoids
Sheets("FichierClients").Cells(ligne, 17) = Me.TxtRides
Sheets("FichierClients").Cells(ligne, 18) = Me.TxtNbrE
Sheets("FichierClients").Cells(ligne, 19) = Me.Marié
Sheets("FichierClients").Cells(ligne, 20) = Me.CmbPeaux
Sheets("FichierClients").Cells(ligne, 21) = Me.TxtPMédical
Unload ModifDonnées
End Sub
voila ce que j'ai mais lorsque je valide mes cellules perdent le format que
j'ai mis.
Merci à toi si tu peux me ce code
"MichDenis" a écrit :
> Bonjour Peponne31,
>
> Donne un exemple sur ce que tu tentes de réaliser...
>
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Bonjour,
>
> Excel 2003
> Quelle est la formule pour ne pas modifier le formatage d'une cellule
> lorsque l'on en modifie le contenue en vba.
> Merci
>
>
A ) les contrôles Textbox d'un formulaire retourne toujours
des chaînes de caractères (du texte)
Exemple :
1- Si le textbox contenant le numéro de téléphone
a reçu un format particulier, ce format (les symboles
utilisés pour ce format) est intégré au numéro de
téléphone lorsque tu le copies vers la feuille de calcul.
Si la cellule a déjà un format (téléphone), ce format
est bon seulement si les chiffres du numéro de téléphone
sont transférés sans les symboles du format du textbox.
2 - Si tu as utilisé un textbox pour saisir des dates ...
tu devrais d'abord t'assurer que le contenu du textbox
contient une date qu'Excel sait reconnaître en utilisant ceci :
if isdate(Me.Textbox1) then
range("A1").NumberFormat = "dd/MM/YYYY" 'le format de ton choix
'Cdate() utilise par défaut le format du panneau de configuration
range("A1").value = Format(Cdate(me.textbox1),"dd/MM/YYYY")
end if
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 3AFEAB21-9779-41A0-B80D-D68FA1256B5E@microsoft.com...
Bonjour MichDenis,
Private Sub B_ValiderModif_Click()
ligne = [A5].Offset(ChoixNuméro.ListIndex, 0).Row
Sheets("FichierClients").Cells(ligne, 2) = Me.Civilités
Sheets("FichierClients").Cells(ligne, 3) = Me.TxtNom
Sheets("FichierClients").Cells(ligne, 4) = Me.TxtRue
Sheets("FichierClients").Cells(ligne, 5) = Me.TxtRue2
Sheets("FichierClients").Cells(ligne, 6) = Me.TxtCodePostal
Sheets("FichierClients").Cells(ligne, 7) = Me.TxtVille
Sheets("FichierClients").Cells(ligne, 8) = Me.TxtTéléphone
Sheets("FichierClients").Cells(ligne, 9) = Me.TxtPortable
Sheets("FichierClients").Cells(ligne, 11) = Me.TxteMail
Sheets("FichierClients").Cells(ligne, 12) = Me.TxtDateNaissance
Sheets("FichierClients").Cells(ligne, 13) = Me.TxtDate1Visite
Sheets("FichierClients").Cells(ligne, 14) = Me.TxtProfession
Sheets("FichierClients").Cells(ligne, 15) = Me.TxtAge
Sheets("FichierClients").Cells(ligne, 16) = Me.TxtPoids
Sheets("FichierClients").Cells(ligne, 17) = Me.TxtRides
Sheets("FichierClients").Cells(ligne, 18) = Me.TxtNbrE
Sheets("FichierClients").Cells(ligne, 19) = Me.Marié
Sheets("FichierClients").Cells(ligne, 20) = Me.CmbPeaux
Sheets("FichierClients").Cells(ligne, 21) = Me.TxtPMédical
Unload ModifDonnées
End Sub
voila ce que j'ai mais lorsque je valide mes cellules perdent le format que
j'ai mis.
Merci à toi si tu peux me ce code
"MichDenis" a écrit :
> Bonjour Peponne31,
>
> Donne un exemple sur ce que tu tentes de réaliser...
>
>
>
>
> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : 119AF97C-9D91-404E-B0B0-EF4764C86AE0@microsoft.com...
> Bonjour,
>
> Excel 2003
> Quelle est la formule pour ne pas modifier le formatage d'une cellule
> lorsque l'on en modifie le contenue en vba.
> Merci
>
>
A ) les contrôles Textbox d'un formulaire retourne toujours
des chaînes de caractères (du texte)
Exemple :
1- Si le textbox contenant le numéro de téléphone
a reçu un format particulier, ce format (les symboles
utilisés pour ce format) est intégré au numéro de
téléphone lorsque tu le copies vers la feuille de calcul.
Si la cellule a déjà un format (téléphone), ce format
est bon seulement si les chiffres du numéro de téléphone
sont transférés sans les symboles du format du textbox.
2 - Si tu as utilisé un textbox pour saisir des dates ...
tu devrais d'abord t'assurer que le contenu du textbox
contient une date qu'Excel sait reconnaître en utilisant ceci :
if isdate(Me.Textbox1) then
range("A1").NumberFormat = "dd/MM/YYYY" 'le format de ton choix
'Cdate() utilise par défaut le format du panneau de configuration
range("A1").value = Format(Cdate(me.textbox1),"dd/MM/YYYY")
end if
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour MichDenis,
Private Sub B_ValiderModif_Click()
ligne = [A5].Offset(ChoixNuméro.ListIndex, 0).Row
Sheets("FichierClients").Cells(ligne, 2) = Me.Civilités
Sheets("FichierClients").Cells(ligne, 3) = Me.TxtNom
Sheets("FichierClients").Cells(ligne, 4) = Me.TxtRue
Sheets("FichierClients").Cells(ligne, 5) = Me.TxtRue2
Sheets("FichierClients").Cells(ligne, 6) = Me.TxtCodePostal
Sheets("FichierClients").Cells(ligne, 7) = Me.TxtVille
Sheets("FichierClients").Cells(ligne, 8) = Me.TxtTéléphone
Sheets("FichierClients").Cells(ligne, 9) = Me.TxtPortable
Sheets("FichierClients").Cells(ligne, 11) = Me.TxteMail
Sheets("FichierClients").Cells(ligne, 12) = Me.TxtDateNaissance
Sheets("FichierClients").Cells(ligne, 13) = Me.TxtDate1Visite
Sheets("FichierClients").Cells(ligne, 14) = Me.TxtProfession
Sheets("FichierClients").Cells(ligne, 15) = Me.TxtAge
Sheets("FichierClients").Cells(ligne, 16) = Me.TxtPoids
Sheets("FichierClients").Cells(ligne, 17) = Me.TxtRides
Sheets("FichierClients").Cells(ligne, 18) = Me.TxtNbrE
Sheets("FichierClients").Cells(ligne, 19) = Me.Marié
Sheets("FichierClients").Cells(ligne, 20) = Me.CmbPeaux
Sheets("FichierClients").Cells(ligne, 21) = Me.TxtPMédical
Unload ModifDonnées
End Sub
voila ce que j'ai mais lorsque je valide mes cellules perdent le format que
j'ai mis.
Merci à toi si tu peux me ce code
"MichDenis" a écrit :
> Bonjour Peponne31,
>
> Donne un exemple sur ce que tu tentes de réaliser...
>
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Bonjour,
>
> Excel 2003
> Quelle est la formule pour ne pas modifier le formatage d'une cellule
> lorsque l'on en modifie le contenue en vba.
> Merci
>
>