Discussion :

[Joeytriviani]

Bonjour,

Pour cacher le contenu d'une cellule, il est possible de choisir un format personnalisé, comme indiqué sur cette page http://excel-competence.over-blog.co...-48389235.html . Il faut utiliser le format suivant : " ;;; "

J'aimerai appliquer ce format avec une macro VBA. Malheureusement, lorsque j'applique le code suivant ça ne marche pas ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("I7") = Format(Range("I7"), ";;;")

Quelqu'un possède-t-il la solution ?

Merci d'avance

Joey

[tedo01]

Bonjour,
Pour appliquer un format à une cellule, il faut utiliser la méthode NumberFormat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("I7").NumberFormat = ";;;"

[Philippe Tulliez]

Bonjour,
Le meilleur ami du programmeur en VBA pour Excel est l'enregistreur de macros
Voici ce qu'il t'aurait donné comme code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro1()
 Selection.NumberFormat = ";;;"
End Sub

NumberFormat est une propriété de l'objet Range
Soit après modification

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2").NumberFormat = ";;;"

J'ajouterais qu'il vaudrait mieux ajouter les objets parents de l'objet Range (Classeur et feuille) pour éviter des surprises désagréable
Soit par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets("Feuil2").Range("B2").NumberFormat = ";;;"

[Marc-L]

Et un cross posting de plus, un ‼

[Joeytriviani]

Merci Tedo.
Merci Philippe.

Réponse parfaite. Ca fonctionne.