[debutant] variable de type Range et Integer

Version imprimable

Bonjour. Je pense que ce problème est assez simple mais bon je n'arrive pas à m'en sortir.

Je crois voir d'où vient le pb mais je n'ai jamais fait de VBA et là j'ai un petit bug à résoudre ...

En fait l'erreur se produit quand sur une variable de type Range est effectée une valeur exclusivement numérique.

Voilà mon code (épuré) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

Sub UpdateComboBox()


    ThisWorkbook.Worksheets("setting").Select
    
    Dim unItem, unCA As Range
    
    PROGRAM_LIST.Clear
    CA_LIST.Clear

    If ThisWorkbook.Worksheets("setting").Range("A13") <> "" Then
        Dim previousProgram As String
        previousProgram = ""
        
        For Each unItem In ThisWorkbook.Worksheets("setting").Range("A13", Range("A13").End(xlDown))
            
           If unItem <> previousProgram Then
                previousProgram = unItem
                PROGRAM_LIST.AddItem (unItem)
            End If

            If ThisWorkbook.Worksheets("setting").Range("A4") <> "" Then
                PROGRAM_LIST.Text = ThisWorkbook.Worksheets("setting").Range("A4")
                
                If unItem = ThisWorkbook.Worksheets("setting").Range("A4") Then
                    Set unCA = unItem.Offset(0, 1)  // ici 
                    
                    If Not unCA Is Nothing Then
                        // je n'entre pas là si la valeur est numérique
                        If ThisWorkbook.Worksheets("setting").Range("B4") = "x" Then
                            ThisWorkbook.Worksheets("setting").Range("B4") = unCA
                            ThisWorkbook.Worksheets("setting").Range("B2") = unCA.Offset(0, 1)
                            data_PM.RapportPath = ThisWorkbook.Worksheets("setting").Range("B2")
                        End If
                        MsgBox "CA ajoute liste -> " + unCA //pas affiché si numérique
                        CA_LIST.AddItem unCA
                    End If
                    If ThisWorkbook.Worksheets("setting").Range("B4") <> "" Then
                        CA_LIST.Text = ThisWorkbook.Worksheets("setting").Range("B4")
                    End If
                End If
            End If
        Next
    End If

Donc voilà, je suis un peu bloqué. Quel type utiliser ? Je peux caster en VBA ?

merci d'avance

04/07/2006, 15h58
Lou Pitchoun

Salut,
A la place de

Code:

If Not unCA Is Nothing Then

je mettrais

Code:

If Not IsNull(unCA) then
04/07/2006, 16h10
in

Voilà en fait je crois que j'ai mal situé l'erreur.

A priori ça vient plutot de la ligne en rouge (cf premier post).
Je crois que le test est faux. Pourtant quand j'affiche les valeurs ça à l'air d'etre les memes ...
04/07/2006, 16h15
Lou Pitchoun

Il semblerait que unItem soit vide.. tu ne l'as pas initialisé.
Avant le test en rouge, fait un

Code:

Debug.Print "Valeur de unItem : " & unItem

pour voir ce qu'il s'affiche dans la fenêtre d'exécution
04/07/2006, 16h20
Elstak

Essaye le pas à pas pour voir les différentes valeurs de tes variables.

tu verra aussi par quels endroits passe ton programme (si il rentre dans les if etc...)

touhe F8 pour aller d'etape en etape
04/07/2006, 16h29
in

bon alors le Debug.Print affiche des valeurs à chaque fois.

En ce qui concerne lepas à pas. En fait je débute vraiment et quand je lance l'exécution (par "lecture" ou par mon fichier excel), je ne sais pas trop comment faire.

enfin je vais essayer le mode debug ...

mais pourtant quand j'affiche unItem et la valeur de la cellule A4 il m'affiche bien les meme valeurs ...

Les objets de type Range c'est koi exactement ? Ya pas de contradication sur les valeurs numériques ? est ce de cette manière (=) que je teste l'égalité ?

bon, le debug c'est ok ...

donc il ne passe pas dans le if en rouge.

par contre je ne sais pas controler les valeurs tester. Dans "variables locales", ya un Me et un unItem. La valeur de unItem à l'air correct. Par contre celle utilisée pour tester l'egalité (A4) je ne trouve pas (enfin je suis pas sûr)

vais encore essayer avec le debug ...

[EDIT]
Code:

1 2 3 4 bon alors j'ai fait ça Debug.Print "Valeur de unItem : " & unItem Debug.Print "Valeur de test : " & ThisWorkbook.Worksheets("setting").Range("A4") If unItem = ThisWorkbook.Worksheets("setting").Range("A4") Then
les 2 valeurs affichées sont identiques ?!

est ce le test de mon if qui ne colle pas quand les valeurs sont numériques ?

04/07/2006, 16h55
Lou Pitchoun

Les objets de type Range désignent une plage de cellules
Le test d'égalité de fait bien de cette manière là:

Code:

If Var1 = Var2 Then

Code:

If unItem = ThisWorkbook.Worksheets("setting").Range("A4") Then

Traduction :

Code:

Si unItem = CeClasseur.Feuilles("setting").PlagedeCellules("A4") Alors

Tu compares untItem à la valeur de la cellule A4
04/07/2006, 17h00
in

ben oui je vois bien mais alors ou est le problème ?

quand j'ai C11111 dans unItem et dans la cellule c'est Ok
quand j'ai 11111 là c'est pas ok ....

ya pas moyen de tester sur un String (genre unItem.toString() ) ? enfin je sais pas je cherche une solution quoi. Mais franchment sans votre aide j'y arriverai pas je crois ... :(
04/07/2006, 17h14
Lou Pitchoun

Un petit test...
Dans la déclaration remplace

Code:

As Range

par

Code:

As Variant

(type fourre tout)
Si ça passe, c'est la déclaration qui coince. Tu peux concerver ce type (Variant) si les cellules contiennent soit des nombres soit du texte. Sinon utilise des types adaptés.

j'ai mis unItem de type Variant -> ça ne change rien. Les valeurs affichées sont identiques mais je ne rentre pas dans le if.

j'ai aussi essayé avec des .Value mais bon c'estr pareil ...

Une autre idée ?

:arf:

[EDIT] j'affiche aussi le test. qui me donne "faux". mais bon ...
Code:

1 2 3 Debug.Print "Valeur de unItem : " & unItem Debug.Print "Valeur de test : " & ThisWorkbook.Worksheets("setting").Range("A4") Debug.Print "Valeur if : " & unItem = ThisWorkbook.Worksheets("setting").Range("A4")
donne

Citation:

Valeur de unItem : 111111
Valeur de test : 111111
Faux // ici il manque le message ??

04/07/2006, 17h25
Lou Pitchoun
:arf: moi aussi :aie:
Teste la longueur de unItem et de ThisWorkbook.Worksheets("setting").Range("A4")
avec un truc du genre
Code:

1 2 3 Dim i As Integer i = Len(Range("H2")) Debug.Print i
Il y a peut être un espace qui se promène et qui foire le test...

Edit :
s'il t'indique faux c'est que les valeurs ne sont pas tout à fait égales.. cf ci-dessus

je fais

Code:

1
2
3
4
5
 Dim i As Integer
                i = Len(Range("A4"))
                Debug.Print "longueur : " & i
                i = Len(unItem)
                Debug.Print "longueur 2 : " & i

et évidemment il m'affiche

Citation:

longueur : 6
longueur 2 : 6

:mrgreen: :aie:

04/07/2006, 17h35
Lou Pitchoun

:aie: :bug: :kill: :sm: :mur: :fessee: :pan: :zekill: :scarymov:
je crois les avoir tous fait...
Pour le moment je suis à court d'idées...
04/07/2006, 17h39
in

y'a pas moyen de récupérer la valeur de unItem et de la cellule sous forme de String et de les comparer.

J'ai vu qu'il existait des StrComp. Peut etre avec ça ? Mais je ne sais pas comment récupérer les valeurs dun Range (ou Variant) vers un String.

Est ce que ça pourrait venir des "attributs" que je voie dans les variables locales ?

Bon alors

j'ai remis en type Range et j'ai fait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim test, test2 As String
                test = unItem
                test2 = ThisWorkbook.Worksheets("setting").Range("A4")
                Debug.Print "test = " & test & " test2 = " & test2
    
                'If unItem = ThisWorkbook.Worksheets("setting").Range("A4") Then
                 If test = test2 Then
                         // C BON J'Y SUIS !!!!
                        Set unCA = unItem.Offset(0, 1)
                    
                        If Not IsNull(unCA) Then 'unCA Is Nothing Then
                            If ThisWorkbook.Worksheets("setting").Range("B4") = "x" Then
                                 MsgBox "dans B4 = x " + unItem + " " + unCA

et je rentre bien dans le IF par contre j'obtiens une erreur sur la ligne en rouge.

bon je continue à tester. si qqun a une explication plausible :?

04/07/2006, 17h49
in

:yaisse2: :yaisse2: :yaisse2:

trop cool.

bon ben ça fonctionne. Pas d'explication mais bon, il doit y avoir une subtilité que je ne saisie pas.

Merci de ton aide en tous cas !

A+
04/07/2006, 18h47
Lou Pitchoun

Code:

MsgBox "dans B4 = x " + unItem + " " + unCA

j'aurais plutôt mis

Code:

MsgBox "dans B4 = x " & unItem & " " & unCA

Mais si tu dis que ça marche... ;)
04/07/2006, 19h25
SfJ5Rpw8
en passant .. juste un rappel quand tu ecrit :

Code:

Dim test, test2 As String

cela est l'équivalent de
Code:

1 2 Dim test as variant Dim test2 As String
;)
05/07/2006, 09h47
in

est ce de ce type de déclaration d'où peut provenir mon pb ? Les variables unItem et unCA étaient déclarées de la même manière ...

pour le message box. Oui c'est mieux avec les &. Mais bon j'ai viré la ligne... ;)

Bon ben je crois que tout ceci restera un mystere pour moi. Je retourne à mon bon vieux Java ma foi !