Comment changer le format des cellules présentes dans la ligne avec une macro

[tdaoui]

Bonjour à tous,
Bonjour le forum,

Comment changer le format des cellules présentes dans la ligne 2 avec une macro ?

Je veux changer le format automatiquement car j'ai des cellules liés à cette ligne pour des calculs

PS : J'utilise un USF pour la saisie, et c'est la raison pour laquelle je pose cete question

Voir le détail dans la PJ

Merci d'avance pour vos retours

 

[jul51]

Re : Comment changer le format des cellules présentes dans la ligne avec une macro

Voici une série que j'avais utilisé pour un de mes développements. J'avais des donnés qui étaient rapatriées dans access qui n'avait pas le bon format:

Private Sub formattexte()
    Range("A:C").NumberFormat = "@"
    Range("E:E").NumberFormat = "@"
    Range("I:I").NumberFormat = "@"
    Range("K:M").NumberFormat = "@"
End Sub

Private Sub formatnombre()
    Range("D:D").NumberFormat = "0"
End Sub

Private Sub formatdate()
    Range("F:H").NumberFormat = "m/d/yyyy"
End Sub

Private Sub formatmonétaire()
    Range("J:J").NumberFormat = "#,##0.00 $"
End Sub

Si je me souviens bien, il suffit de prendre format nombre avec 0,00 par exemple pour 2 chiffres après la virgule mais à tester.

En espérant t'avoir aidé

Julien

 

[jeanpierre]

Re : Comment changer le format des cellules présentes dans la ligne avec une macro

Bonjour,

Simplement en saisissant 1 dans une cellule vide.

Copier cette cellule, selectionner les cellules en question et Collage spécial et cocher multiplication....

Je n'ai pas tester le code.

Jean-Pierre

 

[tdaoui]

Re : Comment changer le format des cellules présentes dans la ligne avec une macro

salut Jean Pierre,

j'ai testé ta méthode mais ça ne marche pas à tous les coup avec une macro (ça ne fonctionne que lors de la 1ère utilisation)

Est ce normal?

 

[jeanpierre]

Re : Comment changer le format des cellules présentes dans la ligne avec une macro

Re tdaoui,

Seulement, ton fichier n'a pas de macro, et cela devient moins simple....

Remets nous nous ton fichier avec ta macro, mais en Format Zip, cette fois, c'est moins lourd, 8 fois moins pour le forum....

A toi la balle.

Jean-Pierre

 

[Cousinhub]

Re : Comment changer le format des cellules présentes dans la ligne avec une macro

Bonjour, si tu n'as pas besoin de ces données pour un usage ultérieur, tu peux toujours changer ta formule par :

=SOMME((A2:C2)*1)

 

[tdaoui]

Re : Comment changer le format des cellules présentes dans la ligne avec une macro

voici l'exemple en PJ avec la méthode de Jean Pierre

la 2ème méthode [=SOMME((A2:C2)*1)]ne passe pas car le foramt n'est pas reconnu

 

[Cousinhub]

Re : Comment changer le format des cellules présentes dans la ligne avec une macro

Re-,
je te propose de modifier l'insertion de tes données dans la feuille.
dans ton code, rajoute ou remplace ce qui est en vert :

Private Sub cmdValid_Click()
Sheets("A").Activate
[COLOR="Lime"]On Error Resume Next[/COLOR]
With Range("A65536").End(xlUp)
    .Offset(1, 0).Value = labDossard.Caption 'C'est plus joli dans un LabelBox que dans un TextBox
    'Structure de l'appel
    .Offset(1, 1).Value = [COLOR="Lime"]IIf(Accueil > 0, CDec(Accueil), 0)[/COLOR]
    .Offset(1, 2).Value = [COLOR="Lime"]IIf(Accueil3 > 0, CDec(Accueil3), 0)[/COLOR]

et ainsi de suite, et à la fin de ton code, tu peux rajouter un On Error Goto 0

 

[tdaoui]

Re : Comment changer le format des cellules présentes dans la ligne avec une macro

Super !!
Merci bhbh