Problème VBA with/end with [Résolu]

Signaler
Messages postés
2
Date d'inscription
mardi 5 janvier 2021
Statut
Membre
Dernière intervention
5 janvier 2021
-
Messages postés
2
Date d'inscription
mardi 5 janvier 2021
Statut
Membre
Dernière intervention
5 janvier 2021
-
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

3 réponses

Messages postés
13945
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 janvier 2021
785
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
Messages postés
14759
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 janvier 2021
275
Sub a()
With Selection.font
.Size=30
.Name="Arial"
End with
End sub


Il faut un . devant l'élément à accéder.
Messages postés
2
Date d'inscription
mardi 5 janvier 2021
Statut
Membre
Dernière intervention
5 janvier 2021

Bonsoir
Bloqué 2 h a cause d un point

Je me demande s il est possible de faire pire

Merci bien