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

problème de variable non numérique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion grodep
  • 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
G

grodep

XLDnaute Occasionnel
Bonjour à tous, je reviens vers vous pour un problème tout bête mais qu'une fois de plus je n'arrive pas à résoudre:
dans une boucle, j'ai la ligne suivante :
Code: 
Noms(L, 3) = Noms(L, 3) + CDbl(Worksheets("vols").Cells(Lv + 1, Cv))
Mon souci est qu'il arrive que la cellule en question(Cells(Lv+1, Cv) )ait une valeur non numérique, du coup, ça bug et c'est normal: je cherche à encadrer cette ligne par un bloc if End if mais je n'arrive pas à construire ma condition : je cherche qqchose du style
Code: 
If Not Cells(Lv + 1, Cv) = "NN" Then
"NN" étant la seule valeur non numérique que peut prendre la cellule incriminée.

Des conseils ou des suggestions?

Merci d'avance à tous les contributeurs
 
Trier par date Trier par votes
Re : problème de variable non numérique

Bonjour grodep,
Pas sur d'avoir compris le problème,

Code: 
If Not Cells(Lv + 1, Cv)[COLOR=red][B].Value[/B][/COLOR] = "NN" Then
Noms(L, 3) = Noms(L, 3) + CDbl(Worksheets("vols").Cells(Lv + 1, Cv))
End If
Cordialement
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

Bonjour Grodep

regarde ce genre de test :

Code: 
If IsNumeric(Range("A1").Value) Then MsgBox "ok numérique..."

ou bien :

Code: 
If Not IsNumeric(Range("A1").Value) Then MsgBox "non numérique..."

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

bonjour, je reviens vers vous, car je n'arrive toujours pas à solutionner ce pépin:
Cells(Lv + 1, Cv).Value ne renvoie aucune valeur non plus

Je vous joins une feuille exemple avec le code qui doit tourner.
La cellule AP21 contient la valeur qui fait "bugger" le code.
merci à vous
 

Pièces jointes

Vote positif 0 Vote négatif
Re : problème de variable non numérique

Bonjour,

as tu essayé la fonction donnée dans mon post du 16, la fonction "isnumeric" ne bogue pas sur AP21, et renvoie le bon résultat...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

bonjour pierrot93, je ne me serais pas permis de poster de nouveau sans avoir testé les solutions proposées, peut-être l'ai je mal exécutée?
J'ai testé en ajoutant donc cette ligne :
if Not IsNumeric(Cells(Lv+1,Cv) then ...

mais c'est sans effet.
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

Re,

comprends pas trop alors, sur le fichier que tu as fourni, sur l'onglet "vols", le code ci-dessous fonctionne :

Code: 
If Not IsNumeric(Range("AP21")) Then MsgBox "non numérique..."

@+
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

oui certes pierrot93, si je spécifie "à la main" la cellule incriminée, c'est ok. Mais ce que je souhaite, c'est inclure dans ma boucle une condition qui checke chacune des cellules, et c'est là que je n'y arrive pas .
*
Edit: c'est vraiment pas jojo comme solution, mais en attendant de trouver mieux :

Code: 
 For Each cel In Range("vols!H" & 2 & ":" & strcol1 & p)
            On Error GoTo suit
                If cel = Noms(L, 1) Then    'si le 2 1ers caractères de gauche du vol= Noms(L, 1)
                    Cv = cel.Column    'colonne du vol
                    Lv = cel.Row
                    
                    Noms(L, 3) = Noms(L, 3) + CDbl(Worksheets("vols").Cells(Lv + 1, Cv))    'somme
                    tot = tot + 1
'                    End If
suit:
                End If
            Next cel

bouuu, c'est moche, j'ai honte ! mais ça fonctionne 😀😀
 
Dernière édition:
Vote positif 0 Vote négatif
Re : problème de variable non numérique

bonjour a tous

et salut particulier a mon ami Pierrot

En supposant avoir compris

Code: 
For Each cel In Range("vols!H" & 2 & ":" & strcol1 & p)
                If cel = Noms(L, 1) Then    'si le 2 1ers caractères de gauche du vol= Noms(L, 1)
                    Cv = cel.Column    'colonne du vol
                    Lv = cel.Row
                    'MsgBox Cells(Lv + 1, Cv).Value
                   [COLOR=red]'If Not Cells(Lv + 1, Cv).Value = "NN" Then[/COLOR]
                    [COLOR=blue]If IsNumeric(Cells(Lv + 1, Cv).Value) Then[/COLOR]
                    'MsgBox Cells(Lv + 1, Cv).Value
                     Noms(L, 3) = Noms(L, 3) + CDbl(Worksheets("vols").Cells(Lv + 1, Cv))    'somme
                     tot = tot + 1
                    End If
                End If
            Next cel
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

Re, bonjour PierreJean🙂

attention, car "cells" s'applique ici à la feuille active, si la feuille "vols" n'est pas celle ci, il y a lieu de préciser son nom dans le code :

Code: 
If IsNumeric(Sheets("vols").Cells(Lv + 1, Cv).Value) Then
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

bonjour pierrejean et merci de te pencher sur le problème, j'avais expérimenté cette formule, mais pour une raison que j'ignore, cela ne fonctionne pas non plus.
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

Bonjour grodep, Pierrot93, pierrejean 🙂,
Même si je suis "un peu" dépassé par le code, la version en pièce jointe fonctionne.
Ajout en tête de
Code: 
Sheets("vols").Activate
et utilisation de la ligne
Code: 
If IsNumeric(Sheets("vols").Cells(Lv + 1, Cv).Value) Then
En espérant faire avancer le Schmilblick.
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : problème de variable non numérique

effectivement ça fonctionne! Un grand merci donc à toi et aux autres contributeurs.
Un détail : dans ton code, la ligne
Code: 
 If IsNumeric(Sheets("vols").Cells(Lv + 1, Cv).Value) Then

n'a pas été modifié dans ton classeur et apparait donc comme suit :
Code: 
 If IsNumeric(Cells(Lv + 1, Cv).Value) Then


mais ça fonctionne comme cela, donc no sweat!

Si d'aucun parmi ceux qui maitrisent toutes les subtilités vba pouvait éclaircir le pourquoi du besoin de la ligne Sheets("vols").Activate, je serais ravi d'en apprendre un peu plus 🙂
 
Vote positif 0 Vote négatif
Re : problème de variable non numérique

hmm merci pierrejean, j'avais effectivement "zappé" la réponse de pierrot, visiblement posté pendant que je rédigeais la mienne. Cela me semble désormais bien plus clair!!

Encore un immense merci à vous tous.
 
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

  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
239
treza88
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
820
KRUG WOO
K
S
  • Résolu(e)
XL 2021 Extraire valeurs après caractère spécial ou numérique
2
Réponses
20
Affichages
2 K
R@chid
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
878
Usine à gaz
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
779
loreak
L
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
835
guiyom
G
V
  • Résolu(e)
XL 2019 Gestion de stock EQUIV, INDEX, ...
Réponses
6
Affichages
1 K
vilcoyotte90
V
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
P
  • Question Question
Power Query Problème renommage en-tête - modifier la valeur de la première cellule uniquement
Réponses
2
Affichages
1 K
laurepp
L
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
L
  • Question Question
XL 2016 Problème aléatoire de range dans un userform
Réponses
3
Affichages
898
Laurent97310
L
R
  • Question Question
XL 2019 Optimisation de longueur de barre en long multiple
Réponses
3
Affichages
4 K
Ryoken
R
D
  • Question Question
XL 2016 Reset de Variable
Réponses
7
Affichages
1 K
Dymouille
D
M
  • Résolu(e)
XL 2019 Erreur d'exécution 91, Variable Objet ou variable de bloc With non définie
Réponses
5
Affichages
3 K
MilkaQuercy
M
A
  • Question Question
XL 2013 Utilisation de la fonction "Case" dans VBA
Réponses
12
Affichages
2 K
AnjyD
A
M
  • Question Question
XL 2013 Récupérer la valeur de la première cellule non vide juste au-dessus d'une cellule
2
Réponses
15
Affichages
4 K
soan
S
E
  • Question Question
XL 2010 Trier vers un onglet défini
Réponses
6
Affichages
1 K
elmilo13
E
  • Question Question
Microsoft 365 Gros problème de ralentissement au lancement d'un inputbox
3 4 5
Réponses
60
Affichages
6 K
soan
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…