Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA - notion de variables et leur emplacement

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hub
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

Hub

XLDnaute Occasionnel
Bonjour,

Vous trouverez en pièces jointes deux fichiers très similaires.
La différence se trouve dans l’utilisation des variables et leur emplacement concernant le test If.

La formule qui fonctionne dans "Essai macro evenementielle5 Ok"
« If IsNumeric(Range("C3") ) = True Then »

La formule qui ne fonctionne pas dans "Essai macro evenementielle6 No"
« alesage = Range("C3") »
« If IsNumeric(alesage) = True Then »

est il possible de modifier le fichier « Essai macro evenementielle6 No » de façon de pouvoir utiliser la variable « alesage » dans le Test If ?

Merci d’avance pour vos réponses,
@+
 

Pièces jointes

Trier par date Trier par votes
Re : VBA - notion de variables et leur emplacement

Bonjour Hub.


Vous déclarez alesage As Integer. Par conséquent, alesage = Range("C3") (qui signifie alesage = Range("C3").Value) renvoie une erreur si le contenu de C3 ne peut s'interpréter comme une valeur numérique.

Dans Essai macro evenementielle5 Ok, pas de problème parce que vous écrivez alesage = Range("C3") après avoir vérifié que le contenu de C3 est numérique.

Dans Essai macro evenementielle6 No, ça coince parce que vous écrivez alesage = Range("C3") sans avoir préalablement vérifié que le contenu de C3 est numérique.

Remède possible : déclarer alesage As Variant ; ainsi alesage = Range("C3") passera même si le contenu de C3 ne peut s'interpréter comme une valeur numérique.
​


Bonne journée.


ℝOGER2327
#8214

Vendredi 6 Pédale 143 (Vers Belges - fête Suprême Quarte)
10 Ventôse An CCXXIV, 4,2030h - bêche
2016-W09-1T10:05:14Z
 
Vote positif 0 Vote négatif
Re : VBA - notion de variables et leur emplacement

Bonjour Hub,
Peut être

Sub Essai_1() 'cette macro est lié avec la macro "Private Sub Worksheet_Calculate()" de la feuille 3
Application.EnableEvents = False
Sheets("Feuil3").Select
'attribution d'une valeur aux variables
'alesage = Range("C3")
'tige = Range("C4")
If IsNumeric([C3]) = True Then

'déclaration des variables
'Dim alesage As Integer, tige As Integer

'attribution d'une valeur aux variables
alesage = Range("C3")
tige = Range("C4")

et la suite

Bruno
 
Vote positif 0 Vote négatif
Re : VBA - notion de variables et leur emplacement

Merci pour vos réponses,

Remplacer Integer par Variant, c'est une solution à laquelle je n'aurais jamais pensé, je "fixais" sur un problème d'emplacement.

Maintenant ça fonctionne et encore merci

@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
408
nabilexcel2007
N
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
501
job75
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
201
anthoYS
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
548
PMG
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
160
LaurentVasseur
L
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
284
TooFatBoy
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
475
job75
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
679
un internaute
U
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
773
patricktoulon
P
  • Résolu(e)
Microsoft 365 macro qui permet de basculer entre 2 valeurs composées de formules de type "Formula local"
2
Réponses
15
Affichages
495
cathodique
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
3 K
NONO14
N
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
495
KTM
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
925
Simon 1234
S
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
770
Lu76Fer
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
301
sylvanu
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
905
Nounours4173
N
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
3 K
apocalypse
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…