Problème VBA with/end with

Résolu/Fermé
Randi123 Messages postés 2 Date d'inscription mardi 5 janvier 2021 Statut Membre Dernière intervention 5 janvier 2021 - Modifié le 5 janv. 2021 à 18:14
Randi123 Messages postés 2 Date d'inscription mardi 5 janvier 2021 Statut Membre Dernière intervention 5 janvier 2021 - 5 janv. 2021 à 19:52
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

yg_be Messages postés 22719 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
5 janv. 2021 à 18:46
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
0