Format cellule

Le
Peponne31
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19890411
Bonjour Peponne31,

Donne un exemple sur ce que tu tentes de réaliser...




"Peponne31" 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
Peponne31
Le #19890661
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" 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




MichDenis
Le #19890801
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" 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" 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




Peponne31
Le #19892051
Re

j'ai réussi pour le téléphone reste que la date.
Merci à toi et aux autres de nous accorder du temps.
Peponne31

"MichDenis" a écrit :

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" 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" > 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
>
>



MichDenis
Le #19892301
| j'ai réussi pour le téléphone reste que la date.

***Si problème, il faudrait que tu décrives de quelle nature il est ...
Publicité
Poster une réponse
Anonyme