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
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
A voir également:
- Format numéro vba
- Format epub - Guide
- Numero prive - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format apfs - Guide
- Hp format tool - Télécharger - Stockage
5 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
17 nov. 2017 à 11:22
17 nov. 2017 à 11:22
Bonjour
With Worksheets(1)
.Range("L11:O11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
End With
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
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
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 310
17 nov. 2017 à 14:11
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
n'oublie surtout pas de mettre le point devant les range
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
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
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
ccm81
Messages postés
10903
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2024
2 427
Modifié le 17 nov. 2017 à 16:02
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
Cdlmt
> 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
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
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
Bon je n'ai pas réussi à mettre ce code, j'ai gardé l'ancien.
Merci pour votre aide.
Bonne journée.
Pascal