Probleme d'exécution de mon programme VBA sous excel

Version imprimable

Bonjour à tous,
Je suis nouveau sur le forum et je me demande si une âme charitable peut m'aider à résoudre les message d'erreur à répétition que j'ai, lorsque je lance mon programme VBA. voici le code:

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
47
48
49
50
51
52
53
54
55
56
57
58
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t1, t2, t3, t4, t5
Dim TBLO(9) As String
 
TBLO(0) = 1
TBLO(1) = 16
TBLO(2) = 31
TBLO(3) = 46
TBLO(4) = 61
TBLO(5) = 69
TBLO(6) = 77
TBLO(7) = 85
TBLO(8) = 95
TBLO(9) = 105
t1 = Array(Worksheets("MATRICE").Range("a2:a14"))
t2 = Array(Worksheets("MATRICE").Range("a17:a29"))
t3 = Array(Worksheets("MATRICE").Range("a32:a44"))
t4 = Array(Worksheets("MATRICE").Range("a47:a59"))
t5 = Array(Worksheets("MATRICE").Range("a62:a67"))
t6 = Array(Worksheets("MATRICE").Range("a70:a75"))
t7 = Array(Worksheets("MATRICE").Range("a78:a83"))
t8 = Array(Worksheets("MATRICE").Range("a86:a93"))
t9 = Array(Worksheets("MATRICE").Range("a96:a103"))
t10 = Array(Worksheets("MATRICE").Range("a106:a155"))
 
For j = 1 To 10 'TABLEAU
    For k = 1 To 5 'CELLULE
With Worksheets("MATRICE").Range("t" & j) 'PLAGE DE RECHERCHE ADAPTATIVE
Set a = .Find(Worksheets("F1").Cells(3, k), LookIn:=xlValues, LookAt:=xlWhole) 'CHERCHER LES DIFFERENT CRIT DANS LA FEUIL1
End With
 
With Worksheets("MATRICE").Range("B" & a.Row & ":" & "CB" & a.Row) 'ON CHERCHE SUR LA LIGNE CORESPONDANTE AU CRITERE CHERCHE
Set X = .Find(1, LookIn:=xlValues, LookAt:=xlWhole) 'ON CHERCHE LA VALEUR 1 DANS LES MATRICE CORRESPONDANTE
E = Left(X.Address(ColumnAbsolute:=False), (X.Column < 27) + 2) 'ON DETERMINE LA LETTRE DE LA COLONNE OU SE TROUVE 1
 
For l = 0 To 9
t = Worksheets("MATRICE").Range(E & TBLO(l)) ' DETERMINE L'INTITULE DE LA COLONNE
If Not X Is Nothing Then
firstAddress = X.Address
 
For m = 0 To 4
Worksheets("Liste").Range("A3:A80").Offset(0, m) = t 'ECRIRE L'INTITULE DANS LA FEUIL LISTE
Do
    Set X = .FindNext(X)
    z = X.Column
    E = Left(X.Address(ColumnAbsolute:=False), (X.Column < 27) + 2)
    t = Worksheets("MATRICE").Range(E & TBLO(l))
Loop While Not X Is Nothing And X.Address <> firstAddress
 
 
Next m
End If
Next l
End With
Next k
Next j
 
End Sub

Sachez que je n'est jamais fait de programmation et que j'ai par miracle réussis à construire ce programme grâce à ce site. Donc soyez indulgent ;)

En vous souhaitant une agréable journée,
Cyril LLANTIA.

Fichiers joints dans les discussions

06/10/2015, 15h44
Menhir
Premièrement, tu n'es pas dans la bonne rubrique du forum.

Citation:

Envoyé par cyril.llantia

résoudre les message d'erreur à répétition que j'ai

Surtout n'indique pas de quels messages d'erreurs il s'agit et sur quelles lignes qui se produisent. :roll:

Citation:

Donc soyez indulgent

Oui mais non.

Petit conseil : commence par mettre un peu en forme ton programme et à faire des indentation pour repérer tes structures.
Quelque chose comme :
Code:

1 2 3 4 5 For i=1 to 100 If i=10 Then X=3 End If Next i
Ca te mettra de repérer les fins de structure (quand elles existent) par rapport aux débuts de structures, donc de bien fermer tes structures et de vérifier qu'elles ne s’emmêlent pas entre elles.
Parce que ton programme, tel qu'il est, ressemble à un gros plat de spaghettis dans lequel on n'a pas envie de mettre les doigts.
Je pense que ça va te permettre de corriger plusieurs erreurs.

Tout d'abord merci Menhir pour cette réponse constructive. Mon erreur se trouve à la ligne 29 la valeur de "a" est nothing. Du coup le reste du code me renvoi d'autre erreurs notamment avec les fonctions with. Ainsi je n'arrive pas à trouver pourquoi la fonction "find" ne me trouve pas la valeur souhaité alors que je les ai bien inscrit dans mon tableau Excel . Du coup je me suis demandé si vous pouviez y jeter un petit coup d'œil afin de savoir où se situe le problème. j'ai effectué les indentations afin que le code soit un peu plus lisible:

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t1, t2, t3, t4, t5
Dim TBLO(9) As String
 
TBLO(0) = 1
TBLO(1) = 16
TBLO(2) = 31
TBLO(3) = 46
TBLO(4) = 61
TBLO(5) = 69
TBLO(6) = 77
TBLO(7) = 85
TBLO(8) = 95
TBLO(9) = 105
t1 = Array(Worksheets("MATRICE").Range("a2:a14"))
t2 = Array(Worksheets("MATRICE").Range("a17:a29"))
t3 = Array(Worksheets("MATRICE").Range("a32:a44"))
t4 = Array(Worksheets("MATRICE").Range("a47:a59"))
t5 = Array(Worksheets("MATRICE").Range("a62:a67"))
t6 = Array(Worksheets("MATRICE").Range("a70:a75"))
t7 = Array(Worksheets("MATRICE").Range("a78:a83"))
t8 = Array(Worksheets("MATRICE").Range("a86:a93"))
t9 = Array(Worksheets("MATRICE").Range("a96:a103"))
t10 = Array(Worksheets("MATRICE").Range("a106:a155"))
 
 
For j = 1 To 10 'TABLEAU
 
    For k = 1 To 5 'CELLULE
 
        With Worksheets("MATRICE").Range("t" & j) 'PLAGE DE RECHERCHE ADAPTATIVE
        Set a = .Find(Worksheets("F1").Cells(3, k), LookIn:=xlValues, LookAt:=xlWhole) 'CHERCHER LES DIFFERENT CRIT DANS LA FEUIL1
        End With
 
            With Worksheets("MATRICE").Range("B" & a.Row & ":" & "CB" & a.Row) 'ON CHERCHE SUR LA LIGNE CORESPONDANTE AU CRITERE CHERCHE
            Set X = .Find(1, LookIn:=xlValues, LookAt:=xlWhole) 'ON CHERCHE LA VALEUR 1 DANS LES MATRICE CORRESPONDANTE
            E = Left(X.Address(ColumnAbsolute:=False), (X.Column < 27) + 2) 'ON DETERMINE LA LETTRE DE LA COLONNE OU SE TROUVE 1
 
                For l = 0 To 9
                t = Worksheets("MATRICE").Range(E & TBLO(l)) ' DETERMINE L'INTITULE DE LA COLONNE
 
                    If Not X Is Nothing Then
                    firstAddress = X.Address
 
                        For m = 0 To 4
                        Worksheets("Liste").Range("A3:A80").Offset(0, m) = t 'ECRIRE L'INTITULE DANS LA FEUIL LISTE
 
                            Do
                            Set X = .FindNext(X)
                            E = Left(X.Address(ColumnAbsolute:=False), (X.Column < 27) + 2)
                            t = Worksheets("MATRICE").Range(E & TBLO(l))
                            Loop While Not X Is Nothing And X.Address <> firstAddress
                        Next m
                    End If
                Next l
            End With
    Next k
Next j
 
End Sub

Merci encore d'avoir répondu à ma requête.
Bonne fin de journée

06/10/2015, 17h44
patricktoulon

heu
Bonjour
la fonction find te cherche la cellule avec le critére demandé et te renvoie 2 sorte de variables

soit elle trouve et elle te donne la cellule et toute ces propriété
soit elle te donne nothing(qui veut dire rien) inexistante si tu préfere

alors quand tu fait un

Code:

set a=range(patincouffin).find("toto" arguments)

avant de te servir de "a.rows " il faut t'assurer que find a bien trouvé a
pour cela c'est

Code:

if not a is nothing then

donc pour toi c'est
Code:

1 2 3 4 5 6 if not a is nothing then With Worksheets("MATRICE").Range("B" & a.Row & ":" & "CB" & a.Row) 'ON CHERCHE SUR LA LIGNE CORESPONDANTE AU CRITERE CHERCHE 'reste du code end with end if
en gros encore if imbriqué

mais je n'ai pas ton classeur sous les yeux mais il est tres rare que des boucles imbriquées aussi nombreuses ne soient pas simplifiables
je t'invite a reflechir sur la finalité afin de voir si tu t'es pas embrouiller les pinceaux
06/10/2015, 18h22
Menhir

Citation:

Envoyé par cyril.llantia

Mon erreur se trouve à la ligne 29 la valeur de "a" est nothing.
Ainsi je n'arrive pas à trouver pourquoi la fonction "find" ne me trouve pas la valeur souhaité alors que je les ai bien inscrit dans mon tableau Excel.

Es-tu sûr que cette valeur existe dans ta feuille ?
Si c'est une valeur numérique, est-ce qu'il n'y aurait pas une différence rendue invisible par un arrondi ?
Si c'est une valeur texte, est-ce qu'il n'y aurait pas des caractère "invisibles" en plus ?
As-tu essayé de faire cette recherche "manuellement" avec la fonctin de recherche d'Excel ? Ou bien vérifié que ces valeurs sont bien identiques avec une petite formule SI ?

Citation:

Envoyé par patricktoulon

Code:

if not a is nothing then

Ou bien

Code:

If a is NOTHING then Exit Sub

Ce qui permet de mettre fin à la macro sans avoir à ajouter un niveau supplémentaire à la structure.
06/10/2015, 19h57
cyril.llantia

bonsoir, merci de vos réponse

patricktoulon: j'ai fait en sorte que le cas ou "a is nothing" n'existe pas est-ce du fait de la construction de ma base de donnée. Par conséquent, je ne souhaite en aucun cas que "a" est une valeur nulle puisque cette variable se trouve sur une base de donnée "fixe". Donc ici la fonction "find" est juste la pour trouver la valeur d'une cellule (car elle existe obligatoirement) est non chercher qu'il y est bien quelque chose dans la dite cellule.

Menhir: oui j'ai bien vérifié que les valeurs à chercher existes, en fait le programme fonctionnait (du moins il n'y avait pas d'erreur) avant que je ne vienne rajouter du code. De plus j'ai essayer en remplaçant

Code:

a = .Find(Worksheets("F1").Cells(3, k), LookIn:=xlValues, LookAt:=xlWhole)

par

Code:

a = .Find(blabla, LookIn:=xlValues, LookAt:=xlWhole)

et la "a" n'avait plus de valeur nulle. j'ai egalement fait un

Code:

debug.print Worksheets("F1").Cells(3, k)

et la valeur indiqué était bonne du coup c'est peut-être une erreur de syntaxe du "find" ou bien de mon "range" situé juste au dessus?
Voilà j'espère avoir été assez clair dans mes explications.
Passez une bonne soirée.
06/10/2015, 20h11
SfJ5Rpw8

Bonsoir,

essai d'effectuer cette recherche "manuellement" dans excel .. voir si tu trouve ta valeur...
07/10/2015, 09h05
Menhir

Citation:

Envoyé par cyril.llantia

oui j'ai bien vérifié que les valeurs à chercher existes,

Quelle méthode as-tu utilisé pour cette vérification ? As-tu utilisé une des méthodes que je t'ai indiquées ?

Citation:

en fait le programme fonctionnait (du moins il n'y avait pas d'erreur) avant que je ne vienne rajouter du code.

A nouveau, surtout ne prend pas la peine d'indiquer quel code tu as modifié entre le moment où ça marchait bien et celui où ça ne marchait plus... :roll:

Citation:

De plus j'ai essayer en remplaçant

Code:

a = .Find(Worksheets("F1").Cells(3, k), LookIn:=xlValues, LookAt:=xlWhole)

par

Code:

a = .Find(blabla, LookIn:=xlValues, LookAt:=xlWhole)

et la "a" n'avait plus de valeur nulle.

Pour moi, c'est une preuve claire que ce que tu as dans la cellule ne correspond pas à ce que tu cherches.

Essaye de mettre dans ta feuille F1 la formule :

Code:

=(A3="blabla")

Fais de même pour les autres cellules de la ligne 3.
Regarde si ça te renvoie VRAI ou FAUX.

Citation:

j'ai egalement fait un

Code:

debug.print Worksheets("F1").Cells(3, k)

et la valeur indiqué était bonne

Ca ne veut rien dire. Il suffit qu'il y ait un espace en fin de chaine ou un caractère encore moins visible pour que ça n'apparaisse pas avec un debug.print.
Je pose la question pour la seconde fois : QUELLE TYPE DE VALEUR SE TROUVE DANS CES CASES ?
07/10/2015, 09h18
cyril.llantia

1 pièce(s) jointe(s)

Bonjour,
bbil: j'ai effectuer un recherche avec la fonction recherchev est sa fonctionne ce qui est normal puisque la valeur se trouve dans la plage indiqué. Je pense qu'il serait judicieux de vous joindre le fichier excel afin que vous puissiez voir comment est construite ma base de donnée.

Merci de consacrer du temps à mon problème,
Bonne journée.
07/10/2015, 09h30
Menhir

Citation:

Envoyé par cyril.llantia

Je pense qu'il serait judicieux de vous joindre le fichier excel

http://www.developpez.net/forums/d84...s-discussions/
07/10/2015, 09h32
cyril.llantia

Menhir: ZENN.... et bien comme je l'ai indiquer je n'est pas modifier le code j'en est rajouté à partir de la ligne 40 jusqu'à la fin du code.

Citation:

Quelle méthode as-tu utilisé pour cette vérification ? As-tu utilisé une des méthodes que je t'ai indiquées ?

j'ai rentrer cette formule dans excel =RECHERCHEV(A3;MATRICE!A2:A14;1;FAUX)

Citation:

Pour moi, c'est une preuve claire que ce que tu as dans la cellule ne correspond pas à ce que tu cherches

et bien avec la formule je trouve la bonne valeurs donc sa ne vient pas de la syntaxe du texte rentré. Pour le reste je vais essayer.
Bonne journée.
07/10/2015, 14h41
cyril.llantia

Menhir: j'ai remplace les cellule de la ligne 3 par "blabla" puis j'ai modifier le code en conséquence

Code:

Set a = .Find("blabla", LookIn:=xlValues, LookAt:=xlWhole)

Là "a" est vrai du coup je ne vois toujours pas où ce trouve le problème.

Si vous ne souhaitez pas ouvrir le fichier excel, je vais tentez d'expliquer ce que je veux faire avec ce code. Tout d'abord, dans la feuille "matrice" ce trouve 10 matrice à double entrée de taille variable, dans la feuille "F1" ce trouve l'interface utilisateur où, à la ligne 3, ce trouve 5 listes déroulantes qui prennent leur valeurs dans la feuille "liste". Je viens donc avec le programme chercher la valeur des cellules de la ligne 3 de la feuille "F1" pour trouver les correspondances dans la première colonne de la feuille "matrice" des 10 matrices (car il y a plusieurs fois la même valeur). Ensuite je cherche dans les différentes ligne associé de la feuille "matrice" les valeurs correspondante des cellules avec 1 à l'intérieur. J'en récupère les adresses pour en extraire les colonnes. Ensuite je récupère les noms des colonnes correspondant à la matrice où a été trouvé la valeur 1 pour modifier les différentes listes déroulante dans la feuille "liste". Par exemple l'utilisateur choisie en A3 une valeur dans la liste déroulante, puis, le programme ce lance est réduit les choix des listes déroulantes des cellules B3 jusqu'à E3. J'espère que je ne vous est pas perdu en cours de route avec ces explications.

Bonne journée.
07/10/2015, 15h05
SfJ5Rpw8

Citation:

Envoyé par cyril.llantia

..
Là "a" est vrai du coup je ne vois toujours pas où ce trouve le problème.
...

tu veux dire quoi en disant a est vrai ? ou est déclaré ta variable a ? ( tu aurais pu utiliser un nom plus long et plus parlant pour ta variable elle serait plus facile à rechercher dans ton code..)

si cela veut dire que a est trouvé .. , quel est maintenant ton problème ..? message d'erreur?

nota: en passant quand tu en auras fini avec ton a il faudra revoir le traitement de ton x .. tu nous fais un x=findnext....et ensuite tu utilise X sans tester si le retour est Nothing ou pas ...
07/10/2015, 15h26
cyril.llantia
bbil: Et bien je veut dire par la que "a" n'est plus a nothing. sa ne marche que lorsque j'ai effectuer cette recherche "manuelle". L'erreur persiste si je remet

Code:

Set a = .Find(Worksheets("F1").Cells(3, k), LookIn:=xlValues, LookAt:=xlWhole)

De plus j'ai également modifié
Code:

1 2 With Worksheets("MATRICE").Range("t" & j) Set a = .Find(Worksheets("F1").Cells(3, k), LookIn:=xlValues, LookAt:=xlWhole)
par
Code:

1 2 With Worksheets("MATRICE").Range("a2:a14") Set a = .Find(Worksheets("F1").Cells(3, k), LookIn:=xlValues, LookAt:=xlWhole)
Et là aussi la fonction "find" trouve une correspondance du coup je me demande si l'erreur ne ce situe pas sur le range?
07/10/2015, 15h35
SfJ5Rpw8

oups j'avais pas vu cela ... encore un débutant qui veut pouvoir changer dynamique le nom de variables :aie:
tiens regarde la discussion : http://www.developpez.net/forums/d15...tion-variable/ et inspire toi du principe utiliser par Igloobel en #8

utilise un tableau pour tes variables t....

pense aussi à rajouter en haut de toutes tes pages de codes la ligne :

Code:

Option Explicit
07/10/2015, 15h52
cyril.llantia

Super merci bbil ! je suppose que c'est la même chose pour sa?

Code:

With Worksheets("MATRICE").Range("B" & a.Row & ":" & "CB" & a.Row)

Merci de ta réponse :)
07/10/2015, 15h57
SfJ5Rpw8

:nono: non cela n'as rien à voir, a est bien le nom de ta variable Range .. et .row et la propriété qui renvoi la ligne de celle-ci .... ensuite la concaténation effectué avec le signe & permet de retrouver l'adresse de la cellule et pas le nom d'une variable VB.
07/10/2015, 16h12
cyril.llantia

D'accord super merci beaucoup.
Bonne continuation.