Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

[Leskwal]

Bonsoir le forum.

Comme je le précise dans le titre : Je deviens dingue...😱

En fichier joint la raison de mon aliénation.
Comme vous pourrez le voir dans le fichier recomposé, un bouton "Cliquez pour rafraichir les calculs" permet de ...heu ... de rafraichir les calculs 😉.

Et la : plantage....

Il suffit de sélectionner BR15, de supprimer le contenu par "del" (Y'a rien dedans ??? 😕) du clavier et de reappuyer sur le bouton et là : ça marche ...
Je précise qu'il y'a plusieurs feuilles et que le problème n'apparait pas forcément à la même cellule...

Je ne suis pas passé encore au Prozac mais là, je commence à être "border line" pour comprendre pourquoi ça ne marche pas ...

Dans une cellule il y'a quelque chose ou il n'y'a rien... du fait de mon âge, les lunettes me sont peut-être nécessaire ? 🙂

Enfin, si une bonne âme a une idée, je suis preneur...

Très cordialement.

Pascal

 

[Staple1600]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Bonsoir

Var est un nom réservé par VBA
je te conseille vivement de nommer tes variables autrement

ex: V_ar au lieu de Var

 

[néné06]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Bonsoir Leskwal,Staple1600

La cellule(ligne15,colonne70) a comme valeur " " et si tu veux ajouter a ar ( en remplacement de Var ) une chaine de caractères ,VBA n'aime pas trop!!

Cordialement

 

[Staple1600]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Bonsoir nene06

Je dis juste que Var est une function incluse dans VBA
(voir dans l'aide VBA)

D'où ma suggestion de renommer Var en tout sauf Var puisque nom réservé par VBA.

 

[néné06]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

bonsoir Staple1600
C'est exact pour Var que je remplace en ar.
Il me semble que sur le basic du Apple2 cela s'appelait les "Mots Clés" si mes souvenir sont exacts, comme Int,etc....
Il y a aussi le probléme de vouloir ajouter à une variable numérique une variable Alphanumérique.

A+

 

[Staple1600]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Re

Et moi je remplace Var par V_ar

Mais j'ai l'impression que tu n'avais lu mon premier message avant que tu postes le tien 😕
Car c'est déjà ce que j'y disais
Me trompes-je ?

THM; Tu es ou ?

 

[néné06]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Sur mon post, j'évoquais le fait que sa boucle provoquait :
V_ar= V_ar + " "
VBA ne l'accepte pas!

Cordialement

 

[ROGER2327]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Bonjour à tous

Le problème de Leskwal n'a rien à voir avec les noms de variable qu'il a choisi. Var (ou VAR), VarP, Covar qui sont des noms de fonctions des feuilles d'Excel (répertoriées pour l'essentiel dans la classe WorksheetFunction) ne sont pas des noms de fonction dans VBA.
Quant à v_ar, c'est aussi un nom de variable parfaitement licite dans VBA.
Pour s'en convaincre, il suffit d'essayer ceci :

Sub toto()
Dim Var, v_ar, VarP, Covar
  Var = 0
  v_ar = 1
  v_ar = v_ar + 1
  VarP = 4
  Covar = WorksheetFunction.Var(Var, v_ar, VarP)
  MsgBox Covar
End Sub

Bien sûr, c'est un peu casse-gueule, mais ça fonctionne…

Le seul problème dans le code de notre ami est qu'il tente d'additionner des nombres et du texte. Comme l'a noté néné06, la cellule BR15 contient une chaîne de caractères de longueur nulle : elle n'est donc pas vide.

Remède possible :

      If IsNumeric(Cells(k, l)) Then
        If Cells(k, l).Interior.ColorIndex <> xlNone Then
          var = var + Cells(k, l).Value
        Else
          var2 = var2 + Cells(k, l).Value
        End If
      End If

​

ROGER2327
#4941

Dimanche 15 Gueules 138 (Alice au Pays des Merveilles, ST)
21 Pluviôse An CCXIX
2011-W06-3T04:00:41Z

 

[Staple1600]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Bonjour

Le problème de Leskwal n'a rien à voir avec les noms de variable qu'il a choisi.

Je n'ai jamais prétendu le contraire.

Ayant lu son code, cela m'a sauté aux yeux, j'ai donc suggéré à Leskwal de renommer ses variables.

 

[Leskwal]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Un GRAND MERCI à tous de vous êtes penchés sur mon problème de manière aussi dynamique.

Le remède de ROGER2327 fonctionne parfaitement dans le fichier exemple.
A voir si cela fonctionne aussi avec l'ensemble du code du vrai fichier...😱

Vraiment Merci et je vous tiens au courant.

Cordialement

Pascal

 

[Leskwal]

Re : Cellule vide et pourtant SEMBLE REMPLIE : je deviens DINGUE

Je reviens vers vous pour vous dire :

ÇA MARCHE 😀🙂😛😉😱😱

Encore MERCI

Pascal