Format numéro vba
Résolu
pascalou83400
Messages postés
281
Statut
Membre
-
pascalou83400 Messages postés 281 Statut Membre -
pascalou83400 Messages postés 281 Statut Membre -
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
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
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Hp usb disk storage format tool - Télécharger - Stockage
- Numero prive - 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