Problème VBA with/end with Résolu

Question

Bonjour, 

Je suis débutant à VBA
En utilisant With /end with je suis sensé pouvoir remplacer 

Sub a()
Selection.font.Size=30
Sélection.font.Name=« Arial »
End sub

Par

Sub a()
With Selection.font
Size=30
Name=« Arial »
End with
End sub

Le problème est quand j utilise with/end with, c est le nom de ma feuille qui se change en Arial tandis que lorsque j utilise juste Sélection.font c est bien le texte dans la cellule qui change et nom le nom de la feuille 

Cela fait 2 h que je suis bloqué la dessus . Pouvez vous m aider ?

Par avance merci

Configuration: iPhone / Chrome 87.0.4280.77

yg_be · Answer

bonjour,
je suis étonné que le nom de la feuille change.
as-tu bien Option Explicit en première ligne de ton module?

lecture utile:  https://docs.microsoft.com/fr-ch/dotnet/visual-basic/language-reference/statements/with-end-with-statement

NHenry · Answer

Sub a()
With Selection.font
.Size=30
.Name="Arial"
End with
End sub 
 
Il faut un . devant l'élément à accéder.

Randi123 · Answer

Bonsoir 
Bloqué 2 h a cause d un point 

Je me demande s il est possible de faire pire 

Merci bien

Problème VBA with/end with

3 réponses

Discussions similaires

Newsletters