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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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