Discussion :

[Felours]

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]

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]

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]

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]

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

[Felours]

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]

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

[Pierre Fauconnier]

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]

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

[OursTortue]

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