Variable integer ne prenant pas la valeur souhaitée

**Felours** · 23/02/2015, 13h37

Bonjour à tous !

j'ai un problème depuis quelques jour sur ma macro que je n'arrive pas à résoudre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numero_mois = Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois)

Sur cette ligne, je veux faire prendre une valeur à la variable integer numero_mois. j'ai bien mis le chemin du fichier dans la variable nom_fichier_données, c'est bien la feuille 1 et la cellule indiquée...

Ma macro comporte d'autres problèmes mais je ne peux montrer le code...

Merci d'avance

**Igloobel** · 23/02/2015, 13h45

Bonjour,

je te proposerai de rajouté ".Value" a ta ligne de programmation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numero_mois = Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois).Value

en considérant que la cellule désignée contienne ton mois

Enfin c'est ce que j'ai pu comprendre

tu dis si c'est ça

A+

**Daniel.C** · 23/02/2015, 13h46

Bonjour,

Variable integer ne prenant pas la valeur souhaitée

Elle prend quelle valeur ? et quelle est la valeur de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois)

**Felours** · 23/02/2015, 14h03

La valeur "lue" est un nombre ; il n'y a dans la cellule qui doit être lu, qu'un seul chiffre (j'ai décomposé la date au préalable car le fichier Excel vient de l'exportation d'un logiciel qui ne met pas les dates en format "date" mais en texte. Donc impossible de ne prendre que le mois.

J'ai donc dans la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numero_mois = Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois).Value

numero_mois = variable integer
numero_ligne = variable integer
indice_colonne_mois = constante
nom_fichier_données = "\\ le chemin complet"

En rajoutant .value à la fin de mon code j'ai toujours l'erreur '9' ...

**Daniel.C** · 23/02/2015, 14h13

La cellule est certainement au format texte. Publie le code qui remplit la cellule.

**Felours** · 23/02/2015, 14h23

Le problème c'est que je n'ai pas d'autorisation pour publier plus sur mon code. Du moins, je ne peut pas le publier sur un forum...

Cependant, j'ai mis plus avant dans mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 
    Columns("D:D").Select
    Selection.Copy
    Columns("G:G").Select
    ActiveSheet.Paste
 
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
 
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = True
 
 
    Range(Cells(1, 4), Cells(10000, 6)).NumberFormat = "0"

C'est bien barbare, mais au moins c'est facile à faire pour moi.

J'insère des colonnes, je décompose ma date qui est en format texte sur 3 colonnes.
Ensuite, je les converti en format nombre.

**eriiic** · 23/02/2015, 16h38

Bonjour,

.NumberFormat ne fait que mettre un format, il ne converti pas un texte en numérique.
Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numero_mois = clng(Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois).Value)

eric

**Felours** · 24/02/2015, 10h14

Re bonjour à tous !

J'ai essayé ta solution eriiic mais ça ne fonctionne toujours pas.

Je vous mes le début du mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
Option Explicit
Option Base 1
 
'Nom des fichiers en fonction des Centres
 
Const nom_fichier_données = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF6** = "\\***"
 
'indice colonne des différents éléments
 
Const indice_colonne_distributeur = 1
Const indice_colonne_C = 2
Const indice_colonne_employe = 3
Const indice_colonne_mois = 5
Const indice_colonne_reference = 8
Const indice_colonne_quantité = 10
Const indice_colonne_cout_unitaire = 11
Const indice_colonne_cout_total = 12
 
'Déclaration des compteurs pour mettre les lignes copiées les unes à la suite des autres
 
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7*** As Integer
Dim compteur_CF7*** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF6** As Integer
 
Dim numero_mois As Integer    'variable servant à prendre le numéro du mois, afin de mettre les données dans
                                             'l'onglet correspondant
Dim numero_ligne As Integer   'variable servant à compter le nombre de ligne, et ainsi de lire le fichier au
                                             'fur et à mesure
Dim nombre_ligne As Integer
 
 
 
Dim Wbk As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk*** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk6** As Workbook
 
Sub Extraction()
 
 
'Création d'une colonne avec le numéro des mois par rapport à la date
 
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 
    Columns("D:D").Select
    Selection.Copy
    Columns("G:G").Select
    ActiveSheet.Paste
 
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
 
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = True
 
 
    Range(Cells(1, 4), Cells(10000, 6)).NumberFormat = "0"
 
 'initialisation des compteurs de ligne pour tous les fichiers
 'Ces "compteurs" servent à mettre les lignes copiées/collées à la suite dans le fichier d'arrivée
 
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF6** = 1
nombre_ligne = 1
 
' Selectionne la première cellule du tableau
Range("A1").Select
 
' Boucle tant que pas vide
 
Do While Not (IsEmpty(ActiveCell))
    nombre_ligne = nombre_ligne + 1
    Selection.Offset(1, 0).Select
Loop
 
 
'la variable nombre_ligne contient le nombre de ligne pleine de la feuille 1.
 
Set Wbk7*** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk6**= Workbooks.Open(Filename:=nom_fichier_CF6**)
 
 
 
 
 
'Début de la boucle des copier/coller
 
For numero_ligne = 1 To nombre_ligne
 
numero_mois = Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois)

Voila tout ce qu'il y a avant. Je ne suis pas très très fort en macro, mais j'ai eu quelque cours, donc j'ai esssayer d'avoir des variables les plus claires possible... Cependant le problème persiste...

La finalité de ma macro est de "copier/coller" des ligne entière depuis un seul et même fichier vers 7 autre fichiers en fonctions de 2 critère, et ensuite différencier tous les mois dans les fichiers d'arrivé en en mettant 1 par feuille. La formule que j'utilise pour déplacer mes lignes est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Wbk7**.Worksheets(numero_mois).Range(Cells(compteur_CF7**, indice_colonne_distributeur), Cells(compteur_CF7**, indice_colonne_cout_total)) = _
        Workbooks(nom_fichier_données).Worksheets(1).Range(Cells(numero_ligne, indice_colonne_distributeur), Cells(numero_ligne, indice_colonne_cout_total))

J'utilise que des IF pour "choisir" où ira la ligne. Mais ma formule ne marche pas non plus...

Merci à toute personne m'aidant !!

Bonne journée

**OursTortue** · 24/02/2015, 11h16

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numero_mois = clng(Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois).Value)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numero_mois = CInt(Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois).Value)

tu déclares ta variable numero_mois en integer donc la conversion doit être faite en Integer (Cint) au lieu de CLng pour Long

**Daniel.C** · 24/02/2015, 11h27

Et teste la valeur de la cellule, puisque, apparemment, elle est secret défense :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If IsNumeric(Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, _
        indice_colonne_mois).Value) Then
    numero_mois = CInt(Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, _
        indice_colonne_mois).Value)
Else
    MsgBox "Valeur erronnée"
End If

**Felours** · 24/02/2015, 11h51

Bon, plus j'essaie des "solutions" plus je me dis que VBA est régit par des lois paranormales...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numero_mois = CInt(Workbooks(nom_fichier_données).Worksheets("Données copiées").Cells(numero_ligne, indice_colonne_mois).Value)

J'ai essayé ça comme tu m'a dis. J'ai même mis, pour être sûr, le nom de ma feuille à la place du numéro.

Mes variables "numero_ligne" et "indice_colonne_mois" sont biens des integer, et ont la valeur que je souhaite à ce moment là du code.

Je ne comprends plus rien ...

Merci quand même pour les solutions, ce forum tient bien sa réputation. Réponse rapide et de qualité.

**Daniel.C** · 24/02/2015, 12h17

Ce n'est pas le problème, si tu as du texte dans la cellule, il est normal que tu aies un plantage. Quelle est la valeur de la cellule au moment du plantage ?

**Felours** · 24/02/2015, 13h03

J'utilise la formule ci-dessous pour mettre la colonne en nombre. C'est la colonne que j'utilise pour ma variable "numero_mois" en nombre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(1, 4), Cells(10000, 6)).NumberFormat = "0"

Je vais essayer avec un Cint.

Invité · 24/02/2015, 13h08

Bonjour,
le format nombre ne dit pas la valeur contenue dans la cellule!

"toto" au formant numérique ça donne toujours "toto"!

Daniel n'a pas osé utiliser des caractères plus gros mais il devrait tester l'italique.

attention "12" ce n'est pas " 12 " bien que le cint devrait y remédier.

**Igloobel** · 24/02/2015, 13h39

Bonjour,

Je pense que tu devrais utiliser le mode pas à pas (F8) avec des espions qui montre les valeurs au cours du déroulement de ta macro

ce qui pourra répondre à la remarque de Daniel.C.

si tu as des doutes sur l'utilisation des espions et/ou le mode pas à pas

, N'hesite pas a revenir vers nous

Pour la résolution de ton problème il faut le faire

@ bientôt

tu nous tiens au courant

**Felours** · 25/02/2015, 13h25

Re bonjour.

J'utilise déjà des espions pour vérifier mes valeurs, et le pas à pas pour voir comment ça se passe au fur et à mesure.

J'ai réglé mes problèmes de variables qui n'étaient pas bonnes... Merci pour les conseils ! sinon j'aurais pas avancé d'1 cm.

Cependant, le programme me donne toujours une erreur '9' sur la même ligne. Je dois avoir un problème au niveau de l'appel de mon Workbook mais le lien est le bon.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
Option Explicit
Option Base 1
 
'Nom des fichiers en fonction des Centres
 
Const nom_fichier_données = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF7** = "\\***"
Const nom_fichier_CF6** = "\\***"
 
'indice colonne des différents éléments
 
Const indice_colonne_distributeur = 1
Const indice_colonne_C = 2
Const indice_colonne_employe = 3
Const indice_colonne_mois = 5
Const indice_colonne_reference = 8
Const indice_colonne_quantité = 10
Const indice_colonne_cout_unitaire = 11
Const indice_colonne_cout_total = 12
 
'Déclaration des compteurs pour mettre les lignes copiées les unes à la suite des autres
 
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7*** As Integer
Dim compteur_CF7*** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF7** As Integer
Dim compteur_CF6** As Integer
 
Dim numero_mois As Integer    'variable servant à prendre le numéro du mois, afin de mettre les données dans
                                             'l'onglet correspondant
Dim numero_ligne As Integer   'variable servant à compter le nombre de ligne, et ainsi de lire le fichier au
                                             'fur et à mesure
Dim nombre_ligne As Integer
 
 
 
Dim Wbk As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk*** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk7** As Workbook
Dim Wbk6** As Workbook
 
Sub Extraction()
 
 
'Création d'une colonne avec le numéro des mois par rapport à la date
 
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 
    Columns("D:D").Select
    Selection.Copy
    Columns("G:G").Select
    ActiveSheet.Paste
 
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
 
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = True
 
 
    Range(Cells(1, 4), Cells(10000, 6)).NumberFormat = "0"
 
 'initialisation des compteurs de ligne pour tous les fichiers
 'Ces "compteurs" servent à mettre les lignes copiées/collées à la suite dans le fichier d'arrivée
 
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF7** = 1
compteur_CF6** = 1
nombre_ligne = 1
 
' Selectionne la première cellule du tableau
Range("A1").Select
 
' Boucle tant que pas vide
 
Do While Not (IsEmpty(ActiveCell))
    nombre_ligne = nombre_ligne + 1
    Selection.Offset(1, 0).Select
Loop
 
 
'la variable nombre_ligne contient le nombre de ligne pleine de la feuille 1.
 
Set Wbk7*** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk7** = Workbooks.Open(Filename:=nom_fichier_CF7**)
Set Wbk6**= Workbooks.Open(Filename:=nom_fichier_CF6**)
 
 
 
 
 
'Début de la boucle des copier/coller
 
For numero_ligne = 1 To nombre_ligne

Workbooks("E:\suivis conso\Extraction conso.xlsm").Sheets("Données copiées").Activate
 
numero_mois = Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois)

Voila ce que j'ai comme code. La ligne qui ne passe pas est l'avant dernière en gras. Si quelqu'un a une idée de ce qui pourrait poser problème...

Le chemin est le bon, ainsi que le nom du fichier. Je me suis dis que c'était peut-être ma variable "nom_fichier_donnees" qui ne fonctionnait pas, mais même en mettant le chemin directement dans Workbook j'ai l'erreur...

**francis60** · 25/02/2015, 13h41

Bonjour,

Question complémentaire, lorsque tu lances l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numero_mois = Workbooks(nom_fichier_données).Worksheets(1).Cells(numero_ligne, indice_colonne_mois)

Le classeur qui porte le nom nom_fichier_données est-il déjà ouvert ?

**Pierre Fauconnier** · 25/02/2015, 13h44

Salut.

Active d'abord ton classeur, ensuite ta feuille, et utilise une variable objet de type workbook, ce sera plus simple...

Cela étant, au vu de la macro (Brrr), je gage sur un sérieux problème de conception et d'analyse fonctionnelle, mais tant mieux si ça fonctionne

**Daniel.C** · 25/02/2015, 14h40

J'abandonne. Réponds aux questions, c'est une simple question de politesse.

**OursTortue** · 25/02/2015, 15h56

Humm, en fait ton erreur n'est pas sur la ligne que tu demandes à corriger depuis le départ ou jme trompe?

M'enfin bref, pour la déclaration, vaut mieux un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim WBB As Workbook
 
Set WBB = Workbooks.Open("\\chemin")

Ensuite et peut-être que je me trompe, tu veux récupérer tes données dans la colonne mois

Vaut mieux faire un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim data_colonne_mois As Variant
Dim range As Range
 
Set range = WBB.Sheets(1).Range("A1:A" & nombre_ligne) 'remplacer A par la colonne concernée)
data_colonne_mois = range.Value
 
For numero_ligne = 1 To nombre_ligne
numero_mois = CInt(data_colonne_mois(numero_ligne,1))
'le reste de ton code
Next numero_ligne

Variable integer ne prenant pas la valeur souhaitée

Macros et VBA Excel

Discussions similaires

Partager

Partager