VBA : problème sur une macros basé sur un SI

Version imprimable

Bonjour,

Je suis étudiant et je cherche à développer une macros basé sur un SI pour mon épreuve d'oral en fin d'année.

Mon classeur excel (Classeur test.xls) est basé sur une liste déroulante (des dates) qui me reporte des montants sur tous mes tableaux de coûts situés dans les feuilles suivantes (il s'agit d'une application de contrôle de gestion).

Je souhaite donc faire une macro qui me sélectionne mon résultat analytique, ouvre un nouveau classeur (analyse.xls) existant et colle ce résultat analytique dans ce nouveau classeur ouvert. Je souhaite qu'il le colle à différents endroits selon la période. C'est pourquoi j'ai pensé à une fonction SI.

Mon code VBA est donc celui-ci
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 Sub MacroTest() Workbooks.Open Filename:= _ "G:\Tableaux de couts\analyse.xls" Windows("Classeur test.xls").Activate If DateChoixTxt = mai_2008 Then Windows("Classeur test.xls").Activate Sheets("Résultat analytique").Select Range("D7:D9").Select Selection.Copy Windows("analyse.xls").Activate Sheets("Ecart").Select Range("B4:B6").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Else Windows("Classeur test.xls").Activate Sheets("Résultat analytique").Select Range("D7:D9").Select Selection.Copy Windows("analyse.xls").Activate Sheets("Ecart").Select Range("E4:E6").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End If End Sub
La cellule contenant la date est une cellule avec une fonction qui me renvoie la date au format mai 2008.

Le code a l'air bon.
Et pourtant, j'ai beau tester des tas de trucs, quand je lance la macro, elle colle toujours dans les cellules B4:B6, sans tenir compte de la condition.

J'ai peut-être fait une erreur dans la syntaxe. A vrai dire, je ne suis qu'un débutant en VBA.
Je sollicite donc votre aide, après des heures à avoir planché sur le sujet sans résultat.

Merci d'avance pour votre aide,

Cordialement,

31/03/2009, 14h04
DeaD78

Bonjour,

A vrai dire, si elle colle toujours dans les cellules B4:B6, ta macro tient compte de la condition. Elle rentre dans ta condition obligatoirement pour écrire dans ces cellules d'après ton code. Je dirais donc que le problème vient du fait que DateChoixTxt est toujours égal à mai_2008. Est-ce le cas ?

D'un autre côté, tel que c'est écrit, mai_2008 est une variable. Il faudrait écrire "mai_2008" pour dire que ta variable DateChoixTxt est égale à une valeur donnée de la forme mai_2008.

Essaie ça, si ça ne marche pas, poste ton code sur le fofo vu que, n'étant pas très calé, je suis un peu dans le flou sans avoir les choses en face de moi :roll:

:yaisse2:
31/03/2009, 19h48
Gorfael

Salut PeaceMaker et le forum

Citation:

Mon classeur excel (Classeur test.xls) est basé sur une liste déroulante (des dates) qui me reporte des montants sur tous mes tableaux de coûts situés dans les feuilles suivantes (il s'agit d'une application de contrôle de gestion).

liste déroulante ? Je suppose que ta liste déroulante est un controle issu de la barre "boîte à outils contrôle" nommé "DateChoixTxt" ? Et que tu initialises autre part, dans une autre macro, une variable gobale nommée "mai_2008" ?

- Commence déjà par l'obligation de déclarer tes variables
(sous VBEditot => Menu Outils>>Options>>onglet Éditeur
Coche : obligation de déclarer les variables)
- déclare tes variables avec le type qu'elles sont supposées contenir : s'il y a une erreur de type (que ce ne soit pas le contenu que tu espérais) Excel déclenchera une erreur, alors qu'en Variant, tu n'auras pas l'information.

Citation:

La cellule contenant la date est une cellule avec une fonction qui me renvoie la date au format mai 2008.

VBA ne teste que ce que tu lui demandes et si dans une cellule Excel affiche 31/03/09 ou 31-mar ou etc..., il teste la valeur 39903 (attention aux décimales qui ne sont pas affichées, mais qui existent peut-être, suivant les formules employées).

Citation:

Le code a l'air bon.

C'est comme Canada Dry : il peut sembler, mais ne pas être :D

Citation:

Et pourtant, j'ai beau tester des tas de trucs, quand je lance la macro, elle colle toujours dans les cellules B4:B6, sans tenir compte de la condition.

Et en mode pas-à-pas que sont tes valeurs au moment du test ?

Pas assez d'infos pour t'aider concrêtemnt.
A+

Tout d'abord, merci pour vos réponses rapides.

Citation:

Pas assez d'infos pour t'aider concrêtemnt.

Je sais, j'imagine que ce n'est pas évident de m'aider avec aussi peu d'infos mais j'essaie d'être le plus précis possible pour vous faciliter la tâche. Je vais voir pour vous poster mon fichier excel avec des données test simples pour que vous puissiez voir en gros de quoi il en retourne.

Citation:

A vrai dire, si elle colle toujours dans les cellules B4:B6, ta macro tient compte de la condition. Elle rentre dans ta condition obligatoirement pour écrire dans ces cellules d'après ton code. Je dirais donc que le problème vient du fait que DateChoixTxt est toujours égal à mai_2008. Est-ce le cas ?

Nan, justement ce n'est pas le cas. J'en suis donc arrivé à la conclusion que la "formulation" en VBA de ma condition n'était pas bonne.

Citation:

D'un autre côté, tel que c'est écrit, mai_2008 est une variable. Il faudrait écrire "mai_2008" pour dire que ta variable DateChoixTxt est égale à une valeur donnée de la forme mai_2008.

Le problème, c'est qu'ici il s'agit d'une date, mais même quand je fais des tests avec juste des conditions toutes simples (du genre je nomme une cellule "Temps" et je tape Pluie dedans) et ça me colle toujours pas au bon endroit.
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 Sub MacroTest() Workbooks.Open Filename:= _ "G:\Tableaux de couts\analyse.xls" Windows("Classeur test.xls").Activate If Temps = "Pluie" Then Windows("Classeur test.xls").Activate Sheets("Résultat analytique").Select Range("D7:D9").Select Selection.Copy Windows("analyse.xls").Activate Sheets("Ecart").Select Range("E4:E6").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Else Windows("Classeur test.xls").Activate Sheets("Résultat analytique").Select Range("D7:D9").Select Selection.Copy Windows("analyse.xls").Activate Sheets("Ecart").Select Range("B4:B6").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End If End Sub
Vous pouvez à la limite voir qu'avec une condition aussi simple, j'élimine tout problème du à une variable ou quelque soit d'autre.

Je lui demande simplement de me coller en E4:E6 si il y a écrit Pluie dans la cellule Temps, et sinon de me coller en B4:B6.

Et ben, même quand il y a écrit correctement Pluie dans la cellule Temps, il colle en B4:B6.

Donc une seule conclusion possible : la syntaxe ne lui convient pas.

Je voudrais déja que tu m'aidiez à résoudre ce cas tout simple. Ca sera déja un premier pas vers ma réponse, parce que là je suis perdu. Tout ceci n'est pas logique et je veux absoluement faire la lumière là-dessus.

Merci d'apporter votre aide à l'acharné que je suis.

Cordialement

31/03/2009, 23h31
le petit nicolas
et quand tu débugge en pas à pas, qu'est-ce qu'il y a comme valeur pour "temps" ?

si "temps" est le nom d'une cellule nommés dans EXCEL, alors la manière de faire référence à cette cellule serait plutot range("temps").

si "temps" est le nom d'une cellule nommée dans VBA (par Set Temps = Cells(ligne, colonne)), alors tu peux utiliser la formulation que tu écris

et dans les deux cas, ce serait plus rigoureux de mettre
Code:

1 2 3 range("temps").value = "pluie" ' ou temps.value = "pluie"

Salut le petit nicolas et le forum
Pas tout à fait d'accord :D
si une cellule est nommée, il faut bien la désignée comme une plage pour qu'Excel comprenne :Range("Temps") ou [Temps]
Mais il faut être feignant sur excel (pas trop quand même). Et si tu as bien déigné tes variables, objet, le .value est la propriété par défaut.
Un essais, non testé :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub MacroTest() Workbooks.Open Filename:="G:\Tableaux de couts\analyse.xls" Workbooks("Classeur test.xls").Sheets("Résultat analytique").Range("D79").Copy If ucase(Workbooks("Classeur test.xls").[Temps]) = ucase("Pluie") Then Workbooks("analyse.xls").Sheets("Ecart").Range("E4").PasteSpecial _ Paste:=xlValues Else Workbooks("analyse.xls").Sheets("Ecart").Range("B4").PasteSpecial _ Paste:=xlValues End If End Sub
- On ouvre le classeur "Analyse"(qui devient le classeur actif) (pas concerné par le test)

classeur test
- On copie la cellule D79 du classeur Test
- On colle sa valeur en E4 ou B4 suivant l'égalité de la cellule nommée Temps de "test" avec le mot pluie (la mise en majuscules des deux valeurs à tester permet d'effacer les erreurs de casse)

A+
Nota : pour le code utilise les balises prévues à cet effet (#) plutôt que les Quote, ça évide les sourires

01/04/2009, 22h38
PeaceMaker
Citation:
Envoyé par le petit nicolas

si "temps" est le nom d'une cellule nommés dans EXCEL, alors la manière de faire référence à cette cellule serait plutot range("temps").

ce serait plus rigoureux de mettre

Code:

1 2 3 range("temps").value = "pluie" ' ou temps.value = "pluie"
La solution était exactement celle-ci.

Il m'a suffi de mettre
Code:

1 2 If Range("Temps") = "Pluie" Then ...
pour que la condition marche bien correctement.

@ Goarfel :
Merci pour ton code VBA. Je le testerais, par respect pour le travail que tu as fourni. Et si tu le souhaites, je te présenterais mes conclusions. Merci de ton soutien.

Je vous remercie d'avoir pris le temps de m'aider.

Je passe un oral demain donc je n'ai pas eu le temps de m'en occuper aujourd'hui. mais, d'ici demain soir, j'aurais écrit la totalité du code de ma macro complète. Je vous posterais bien entendu mes conclusions, ou éventuels problèmes.
01/04/2009, 22h54
le petit nicolas

Gorfael a raison aussi (ça c'est du consensus !). Les formulations Range("Temps") et [Temps] sont équivalentes

De plus sa proposition de transformer tout en capitales, par Ucase, est particulièrement judicieuse.