Discussion :

[kiligur]

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 .
Voici mon code :
(désolé je n'ai pas truové la balise code, mais c'est quand même pas indigeste si?)

Code :

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

1
2
3
4
5
6
fichier = "E:\Mantis\_excel.xls"
  Workbooks.Open Filename:=fichier
 
  Fichier_excel
 
  ActiveWindow.Close SaveChanges:=True

(une fontion)

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
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.

[ucfoutu]

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)

[kiligur]

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
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 :

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
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.

[Godzestla]

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 !!.

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). ?

[kiligur]

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

[wilfried_42]

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 :

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

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 :

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

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 :

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

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