Format numéro vba

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

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

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

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

Bonjour

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