Problème simple - appel d'une fonction

Bonjour,
J'ai un petit problème avec VBA que je trouive très bête mais j'arrive pas à savoir d'où ça vient. Voilà, en fait j'ai une fonction Fichier_excel et il ne veut tout simplement pas y aller :bug:.
Voici mon code :
(désolé je n'ai pas truové la balise code, mais c'est quand même pas indigeste si?)

Code:

---

1 2 3 4 5 6

fichier = "E:\Mantis\_excel.xls" Workbooks.Open Filename:=fichier   Fichier_excel   ActiveWindow.Close SaveChanges:=True

---

(une fontion)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function Fichier_excel() (<- y va pas Range("E1").Select For i = 3 To k Date = Range("E" & CStr(i)).Value If Mid(Date, 7, 8) <= AnFin And Mid(Date, 7, 8) >= AnDeb Then If Mid(Date, 4, 5) <= MoisFin And Mid(Date, 4, 5) >= MoisDeb Then If Right(Date, 2) <= JourFin And Right(Date, 2) >= JourDeb Then Range("A" & CStr(i)).Select = Id(i) Else: Range("E" & CStr(i)).EntireRow.Delete End If Else: Range("E" & CStr(i)).EntireRow.Delete End If Else: Range("E" & CStr(i)).EntireRow.Delete End If Next i

---

Merci de m'aider.

Bonjour,

1)Présente s'il te plait ton code :
- avec les balises code
- avec ses procédures complètes (depuis le début jusqu'à ... end sun ou end function)

2) et dis nous où tu as écrit chaque procédure ou fonction
3) une "fonction" qui ne prend pas de paramètre(s) et ne retourne pas une valeur n'est pas une fonction ! (fais-en une simple routine)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub CommandButton1_Click() 'récupération des paramètres entrés par l'utilisateur JourDeb = ComboBox2.Value JourFin = ComboBox4.Value MoisDeb = ComboBox1.Value MoisFin = ComboBox5.Value AnDeb = ComboBox3.Value AnFin = ComboBox6.Value 'Fermeture du formulaire Unload UserForm1 'ouverture du fichier excel fichier = "E:\Mantis\_excel.xls" Workbooks.Open Filename:=fichier Fichier_excel aie ActiveWindow.Close SaveChanges:=True End Sub

---

(une fonction)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Function Fichier_excel()   Range("E1").Select   For i = 3 To k ' k est le numero de la dernière ligne Date = Range("E" & CStr(i)).Value If Mid(Date, 7, 8) <= AnFin And Mid(Date, 7, 8) >= AnDeb Then If Mid(Date, 4, 5) <= MoisFin And Mid(Date, 4, 5) >= MoisDeb Then If Right(Date, 2) <= JourFin And Right(Date, 2) >= JourDeb Then Range("A" & CStr(i)).Select = Id(i) Else: Range("E" & CStr(i)).EntireRow.Delete End If Else: Range("E" & CStr(i)).EntireRow.Delete End If Else: Range("E" & CStr(i)).EntireRow.Delete End If Next i End Function

---

Où j'ai écrit ces procédures? comment ça? Elles sont dans un classeur excel.
Et j'ai essayé avec un Sub si le mot "routine" y fait référence et ça ne marche pas.

Citation:

---

Où j'ai écrit ces procédures? comment ça? Elles sont dans un classeur excel.
Et j'ai essayé avec un Sub si le mot "routine" y fait référence et ça ne marche pas.

---

Bien sûr dans un classeur excel, quoi d'autre !!. :bug:

Mais la question est :
* Ta fonction (qui ne devrait pas en entre une car elle n'a pas de parm et ne retourne rien et devrait donc etre un SUB, eh oui) est-elle dans un module our dans une feuille (sheet). ?

Hey je viens de débarquer en VBA alors un peu de patience et beaucoup d'explications s'il vuos plaît :lol:
Il semblerait que ce soit une feuille. J'ai changé ma fonction en Sub.

Bonjour à tous

personnellement, dans ThisWorkBook ou dans les feuilles, je n'utilise que les procedures evennementielles
les autres procedures, je les gere dans des modules standard

Il semblerait (j'en suis sur), que tu utilises une UserForm, pour saisir tes bornes par contre :

Code:

---

1 2 3 4 5 6

JourDeb = ComboBox2.Value JourFin = ComboBox4.Value MoisDeb = ComboBox1.Value MoisFin = ComboBox5.Value AnDeb = ComboBox3.Value AnFin = ComboBox6.Value

---

en rouge à quoi correspondent ces variables, elles sont utilisée dans la 2eme procedure, mais je ne trouve aucun lien
si tu traites des dates, recompose les et gere que 2 variables Date_deb et Date_fin

Code:

---

1 2	date_deb = datevalue(ComboBox2.Value & "/" & combobox1.value & "/" & combobox3.value) date_fin = datevalue(ComboBox4.Value & "/" & combobox5.value & "/" & combobox6.value)

---

dans un module, la premiere ligne

Code:

---

public date_deb as date, date_fin as date

---

à ce moment, tes 2 variable date, sont utilisables dans tout ton projet, quelque soit l'endroit ou tu te trouves

Pourquoi un sub plutot qu'une fonction
non seulement une fonction renvoie une valeur, mais aussi elle ne peut en aucun cas travailler sur des mises à jour d'objet
les Select interdits
les entirerow.delete interdits
les range("C1") = "Ok" : interdit
les Range("C1").interior.colorindex = 3 : interdits
et bien d'autres mise à jour

Là, ça devient une procédure. C'est ce qu'il te faut, recopie le code comme ça.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Fichier_excel()   Range("E1").Select   For i = 3 To k Date = Range("E" & CStr(i)).Value If Mid(Date, 7, 8) <= AnFin And Mid(Date, 7, 8) >= AnDeb Then If Mid(Date, 4, 5) <= MoisFin And Mid(Date, 4, 5) >= MoisDeb Then If Right(Date, 2) <= JourFin And Right(Date, 2) >= JourDeb Then Range("A" & CStr(i)).Select = Id(i) Else: Range("E" & CStr(i)).EntireRow.Delete End If Else: Range("E" & CStr(i)).EntireRow.Delete End If Else: Range("E" & CStr(i)).EntireRow.Delete End If Next i   End Sub

---

Et pour l'appel (je pense que c'est ce que tu voulais) :

Code:

---

Call Fichier_excel

---

Et effectivement, il faut mettre le code dans un module.

:(Merci énormément Wilfried mais je vois pas la différence entre un module et une feuille :roll: et effectivement j'utilise une UserForm ;)
Voici mon code modifié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() 'récupération des paramètres entrés par l'utilisateur date_deb = DateValue(ComboBox2.Value & "/" & ComboBox1.Value & "/" & ComboBox3.Value) date_fin = DateValue(ComboBox4.Value & "/" & ComboBox5.Value & "/" & ComboBox6.Value)   'Fermeture du formulaire Unload UserForm1   'ouverture du fichier excel 'fichier = "C:\Documents and Settings\sniveau\Bureau\Mantis\_excel.xls" fichier = "E:\Mantis\_excel.xls" Workbooks.Open Filename:=fichier Fichier_excel ActiveWindow.Close SaveChanges:=True   End Sub

---

puis

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Fichier_excel() Range("E1").Select   For i = 3 To k Date = Range("E" & CStr(i)).Value Date = Left(Date, 8) 'la date dans ma cellule inclut l'heure If Date <= date_fin And Date >= date_deb Then Range("A" & CStr(i)).Value = Id(i) Else: Range("E" & CStr(i)).EntireRow.Delete End If Next iEnd Sub

---

Mais mon problème n'est toujours pas résolu il ne l'appelle toujours pas. :(
De plus, mon if fait un peu n'importe quoi (le dernier) car il s'agit de comparer des strings e tlà je me demande ce que ça fait c'est pour ça que je n'avais pas re composé mes valeurs (MoisDeb, MoisFin...) Wilfried :(

Bonjour DeaD78 j'ai déjà essayé le "Call" mais ça ne marche pas. Merci quand même.

re:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

public date_deb as date, date_fin as date Private Sub Fichier_excel() dim date_tst as date, i as long For i = 3 To k Date_tst = Range("E" & CStr(i)).Value If Date_tst <= date_fin And Date >= date_deb Then Range("A" & CStr(i)).Value = Id(i) Else Range("E" & CStr(i)).EntireRow.Delete End If Next i End Sub

---

K en bleu correspond à quoi ?, si c'est la derniere ligne de la colonne E mettre

Code:

---

For i = 3 to range("E65536").end(xlup).row

---

Pour l'heure, on s'en moque, la date est un nombre (nombre de jours depuis le 01/01/1900), l'heure est la partie decimale, (heure = 1 jour / 24) donc l'heure peut etre integrée dans les test sans le gerer

Rebonjour, kiliguir,

Alors, lorsque l'on est débutant, on ne le crie pas de manière éffarouchée, mais on s'efforce de "sérier" les choses pour comprendre comment elles fonctionnent :

On commence par exemple par ceci :

sur ta UserForm avec un bouton de commande CommandButton1, ce code tout bête :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Fichier_excel End Sub   Private Sub Fichier_excel() MsgBox "alors ? j'y passe ou non ?" End Sub

---

lance, clique sur ton bouton de commande et vois : tu passes bien dans ta sous-routine, non ?

Voilà un début ... continue pas à pas ainsi et tu vas comprendre ce qui se passe et où tu pêches par mégarde ...;)

Merci ucfoutu j'ai suivi ton conseil et ça marche (le petit code).
J'ai débuggué pas à pas et voici où ça plante dans mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() 'récupération des paramètres entrés par l'utilisateur date_deb = DateValue(ComboBox2.Value & "-" & ComboBox1.Value & "-" & ComboBox3.Value) date_fin = DateValue(ComboBox4.Value & "-" & ComboBox5.Value & "-" & ComboBox6.Value) 'Fermeture du formulaire Unload UserForm1 (ICIIIIIII) Fichier_excel 'ouverture du fichier excel fichier = "E:\Mantis\_excel.xls" Workbooks.Open Filename:=fichier

---

Quand je mets Fichier_excel comme ceci il y va pas mais si je le mets avant si. Par ce code je voulais simplement fermer le formulaire.

Donc apparemment le problème viendrait de la fermeture du formulaire.
J'ai essayé avec :

Code:

---

1 2	Unload UserForm1 Set UserForm1 = Nothing

---

ou dans l'autre sens mais ça ne marche toujours pas, il refuse d'y aller :(
Help please.

Salut,

peux-tu dire ou ce code est placé ?

Dans un module, un formulaire, ou dans le userform ?

Si c'est dans le Userform, cela me semble normal que cela calle.:roll:

Il apparaît dans les posts juste au-dessus ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub CommandButton1_Click() 'récupération des paramètres entrés par l'utilisateur date_deb = DateValue(ComboBox2.Value & "-" & ComboBox1.Value & "-" & ComboBox3.Value) date_fin = DateValue(ComboBox4.Value & "-" & ComboBox5.Value & "-" & ComboBox6.Value) 'Fermeture du formulaire Unload UserForm1 Set UserForm1 = Nothing 'ouverture du fichier excel fichier = "E:\Mantis\_excel.xls" Workbooks.Open Filename:=fichier Fichier_excel ActiveWindow.Close SaveChanges:=True End Sub

---

C'est effectivement possible qu'il apparaisse dans le userform mais je n'ai aucune idée de la hiérarchie de mon projet. Tout ce que je vois (dans la fenêtre VBA Project ;)) cest que mon userform est dans une feuille et que je travaille sur le code de la userform.
Si cest ça qui pose problème comment est-ce que je "sors" demon userform? (Cest quand même bien ce que j'espérais faire avec mon Unload Userform1 :mrgreen:) . Mais on peut pas rester sur cette feuille cest ça?

Bonjour,

Je croyais t'avoir mis sur la piste !
Regarde et analyse les effets de l'enchaînement de tes instructions !!! (pense à ce qui se passe et à ce qui est disponible et opérationnel après chacune d'entre elles) ...

Re,

sorry mais je ne lis pas tout car pas des masses de temps.

mais peux-tu me confirmer que le code est bien dans le userform, le même que tu essaies de décharger ?

(dans ce cas je continue à penser que c'est la cause du problème)

Oui désolé. L'intitulé de ma fenêtre est Classeur.xls -UserForm1(Code) donc oui je pense.

Bonjour ucfoutu,
Je vois que tu essaies déséspérément de me dire quelque chose. Se pourrait-il que dans mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click()   'récupération des paramètres entrés par l'utilisateur date_deb = DateValue(ComboBox2.Value & "-" & ComboBox1.Value & "-" & ComboBox3.Value) date_fin = DateValue(ComboBox4.Value & "-" & ComboBox5.Value & "-" & ComboBox6.Value) 'Fermeture du formulaire Unload UserForm1 Set UserForm1 = Nothing   'ouverture du fichier excel fichier = "E:\Mantis\_excel.xls" Workbooks.Open Filename:=fichier   Fichier_excel   ActiveWindow.Close SaveChanges:=True   End Sub

---

date_deb et date_fin ne soient plus disponible après la fermeture de mon formulaire ET en dehors de la fonction (je n'ai pas encore compris la portée des variables)?
Si cest cela, je ne vois pas du tout le rapport entre fermer un formulaire et appeler une fonction 8O.
Maintenant si comme a l'air de le penser Godzestla, j'essaie de fermer un formulaire alors que je suis dedans, pourquoi est-ce que ça plante pas à "Unload UseForm1" mais à mon appel de fonction?

Remplace

Code:

---

1 2	Unload UserForm1 Set UserForm1 = Nothing

---

par

Code:

---

Me.Hide

---

Je pense que ça devrait aller nettement mieux.

Ce que tu demandes à ton programme, c'est de jeter la feuille sur laquelle son code est écrit.
Il est donc normal qu'il ne sache plus quoi faire.

Merci AlainTech mais je veux vraiment que mon formulaire soit fermé et pas seulement caché. Je vais essayer de mettre mon code dans un module. Je sais pas encore comment on fait mais je vais chercher. Je pensais aussi à écrire tout mon code et ne fermer mon formulaire qu'à la fin(car l'instruction Unload ne plante pas)
Merci pour vos remarques et conseils.