Format numéro vba
Résolu
pascalou83400
Messages postés
277
Date d'inscription
Statut
Membre
Dernière intervention
-
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Format numéro vba
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Numero prive - Guide
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
5 réponses
Bonjour
With Worksheets(1)
.Range("L11:O11").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
End With
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
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
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