Format numéro vba

Résolu/Fermé

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 17 nov. 2017 à 11:11
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 21 nov. 2017 à 09:47

Bonjour,

Je cherche à réécrire ce code :

' Mettre en numero telephone
' Range("L11:O11").Select
' Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"

' Range("Q11:AH11").Select
' Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"

Je mets ça, mais c'est faux et je n'arrive pas à trouver.

With Worksheets(I).Select

Selection.Range("L11:O11").Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Selection.Range("Q11:AH11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"

End With

Merci pour votre aide.

Pascal

A voir également:

Format numéro vba
Numero prive - Guide
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Format apfs - Guide
Hp format tool - Télécharger - Stockage

5 réponses

Réponse 1 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 nov. 2017 à 11:22

Bonjour

With Worksheets(1)
    .Range("L11:O11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
End With

Réponse 2 / 5

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
17 nov. 2017 à 11:30

Bonjour Michel,

Ok merci, mais j'ai mis ça et cela fait que le 1er code, je dois écrire une ligne pour chaque ?

With Worksheets(I)

Range("L11:O11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Range("Q11:AH11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Range("L7:AH9").NumberFormat = "@"
Range("K10:AH10").NumberFormat = "@"
Range("L12:AH12").NumberFormat = "@"
Range("M13:AH13").NumberFormat = "@"
End With

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 nov. 2017 à 14:11

on pourrait faire 2 grouoes mais pour 2 et 4 lignes ,ça ne vaut peut-^tre pas le coup

n'oublie surtout pas de mettre le point devant les range

Réponse 3 / 5

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
17 nov. 2017 à 15:28

j'ai essayé comme cela et cela ne fonctionne pas ?

With Worksheets(I)
.Range("L11:O11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
End With

With Worksheets(I)
.Range("Q11:AH11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
End With

With Worksheets(I)
.Range("L7:AH9").NumberFormat = "@"
End With

With Worksheets(I)
.Range("K10:AH10").NumberFormat = "@"
End With

With Worksheets(I)
.Range("L12:AH12").NumberFormat = "@"
End With

With Worksheets(I)
.Range("M13:AH13").NumberFormat = "@"
End With

Réponse 4 / 5

ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
Modifié le 17 nov. 2017 à 16:02

Bonjour

> With Worksheets(I)
que vaut la variable I :le nom de la feuille, son numéro ?
si c'est la feuille 1 qu'il faut traiter (comme dans l'exemple de michel que je salue au passage) ceci devrait fonctionner, sinon tu remplaces 1 par ta variable I

With Worksheets(1)
  .Range("L11:O11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
  .Range("Q11:AH11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
  .Range("L7:AH9").NumberFormat = "@"
  .Range("K10:AH10").NumberFormat = "@"
  .Range("L12:AH12").NumberFormat = "@"
  .Range("M13:AH13").NumberFormat = "@"
End With

Cdlmt

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
21 nov. 2017 à 09:47

Bonjour Michel, ccm81,

Bon je n'ai pas réussi à mettre ce code, j'ai gardé l'ancien.

Merci pour votre aide.

Bonne journée.

Pascal

Format numéro vba

5 réponses

Discussions similaires

Newsletters