[EXCEL-VBA] Résolu/Fermé

Question

Je trouve que j'aide pas mal de monde non?

Bon tout çà pour dire que j'ai un gros souci avec une macro!

Le but est de rechercher une valeur dans plusieurs fichiers...

Au début çà marchait et depuis que j'ai ajouté des conditions supplémenntaires, une partie des recherches ne marchent plus!!!

En effet, c'est au niveau de la recherche par date que çà foire!!!!

Si dans ma macro je met rechercher "31/12/2005" ma macro le trouve et fait le copier/coller
Par contre, si je laisse mot_clef (qui est saisi par l'utilisateur) çà marche plus!

NB: Dans les autres colonnes tout marche!!!

Quelqu'un a une idée?? random peut être?

PS : Si je mets le code, tu vas rien comprendre sans les fichiers auxquels çà correspond...

Utilisateur anonyme · Answer

Salut,

Ça ressemble à une incompatibilité de type !

Ce que je comprends :
Si tu code en dure une valeur "jj/mm/aaaa" ça fonctionne
Si tu récupère la valeur par une variable ça coince.

Est-ce j'ai bien compris ?

Lupin

Utilisateur anonyme · Answer

code = huch... pourquoi pas starsky ???Les fichiers où j'existe mes recherches sont identiques qu'auparavant!mon code de recherche n'a pas été modifié, j'ai juste mis un if en plus... :S

Utilisateur anonyme · Answer

re :code = huch... pourquoi pas starsky ??? ça veut dire quoi ?Lupin

Utilisateur anonyme · Answer

C'est le code que je dois taper pour marquer un message! ^^

Utilisateur anonyme · Answer

!upSi quelqu'un veux je peux lui envoyer les fichiers...

Utilisateur anonyme · Answer

:'(

Ca veut vraiment pas marcher alors qu'avant aucun souci!!!

Je veux essayer autre chose mais je ne sais pas comment le faire:

Faire en sotre que le mot clef soit déclarer comme le type désiré!!

Par exemple, si je fais une recherche par date, j'aimerais que le mot clef saisi soit défini du type jj/mm/aaaa en espérant que ce soit çà qui bloque tout...

Merci de faire comme moi et d'aider ceux qui ont du mal!!!

:'( :'( :'(

Utilisateur anonyme · Answer

Bon vous l'aurez voulu!!!!!!

1er programme :

Dim chemin, mot_clef As String
Dim valid, lancement, fin, k, choix As Integer
Dim ok As Boolean
Dim fso, Dossier, Flder As Object
Dim fichier
Dim cellule As Integer
Dim Msg1, Msg2, Style, Title, Box
Dim nb, derniere_colonne
Dim cellul As String

Sub main()
If lancement = 0 Then
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = False
OptionButton7.Value = False
choix = 0
lancement = 1
End If
End Sub
Private Sub erreur()
mot_clef = Mot

    Msg1 = "Vous n'avez pas choisi de type de recherche!"
    Msg2 = "Vous n'avez saisi aucune recherche!"
    Style = vbOKOnly + vbExclamation
    Title = "Erreur!"
    valid = 0

If (choix = 0) Then
Box = MsgBox(Msg1, Style, Title)
ElseIf Mot = "" Then
Box = MsgBox(Msg2, Style, Title)
Else
valid = 1
End If
Mot = ""
End Sub
Function select_a_folder(message, directory)
  ok = False
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, message, NO_OPTIONS, directory)

On Error Resume Next
Set objFolderItem = objFolder.Self
If Err <> 0 Then
        select_a_folder = "ANNUL"
Else
        select_a_folder = objFolderItem.Path
          ok = True
End If
On Error GoTo 0


End Function

Private Sub OptionButton1_Click()
choix = 1
End Sub

Private Sub OptionButton2_Click()
choix = 3
End Sub

Private Sub OptionButton3_Click()
choix = 4
End Sub

Private Sub OptionButton4_Click()
choix = 4
End Sub

Private Sub OptionButton5_Click()
choix = 5
End Sub

Private Sub OptionButton6_Click()
choix = 6
End Sub

Private Sub OptionButton7_Click()
choix = 8
End Sub

Private Sub Recherche_Click()
erreur
If valid = 1 Then
chemin = select_a_folder("Veuillez sélectionner un dossier dans lequel s'effectuera la recherche par " & choix & " de " & Mot & "", "c:\Convoyeurs\EXCEL\")
If ok = True Then
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A7:L65536").Clear
Application.Workbooks("recherche.xls").Worksheets("listing").Cells.Clear
lister
chercher
End If
End If
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & k & "").Select
MsgBox ("" & ((k - 7) / 4) & " résultat(s) trouvé(s)")
End Sub

Function chercher()

k = 7
For cellule = 3 To (derniere_colonne + 2)
fin = Application.Workbooks("recherche.xls").Worksheets("listing").Cells(65536, cellule).End(xlUp).Row
For a = 1 To fin
Workbooks.Open Feuil2.Cells(a, cellule).Value
fichier = Split(Feuil2.Cells(a, cellule).Value, "\")
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = mot_clef Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & (i + 3) & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 4
End If
Next i
Application.Workbooks(fichier(4)).Activate
ActiveWorkbook.Close
Next a
Next cellule
mot_clef = ""
End Function

Function lister()
TousLesDossiers "" & chemin & "", 0
TousLesFichiers
End Function

Function TousLesDossiers(LeDossier$, Idx As Long)

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier = fso.GetFolder(LeDossier)
  'examen du dossier courant
  For Each Flder In Dossier.subfolders
    Idx = Idx + 1
    Feuil2.Range("a" & Idx & "").Value = Flder.Path
    Next
  
  Set fso = Nothing

End Function 'fs

Function TousLesFichiers()

Set fs = Application.FileSearch
If Feuil2.Range("A1").Value = "" Then
Feuil2.Range("A1").Value = Dossier
derniere_colonne = 1
Else
derniere_colonne = 4
End If
For F = 1 To derniere_colonne
With fs
.LookIn = "" & Feuil2.Range("A" & F & "").Value & ""
.Filename = "*"
.Execute
For i = 1 To .FoundFiles.Count
If F = 1 Then
cellul = "C"
ElseIf F = 2 Then
cellul = "D"
ElseIf F = 3 Then
cellul = "E"
ElseIf F = 4 Then
cellul = "F"
End If
Feuil2.Range("" & cellul & "" & i & "").Value = .FoundFiles(i)
Next i
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
Next F
End Function

2ème programme :

Dim chemin, mot_clef, mode As String
Dim valid, lancement, fin, k, choix As Integer
Dim ok As Boolean
Dim fso, Dossier, Flder As Object
Dim fichier
Dim cellule As Integer
Dim Msg1, Msg2, Style, Title, Box
Dim nb, derniere_colonne
Dim cellul As String

Sub main()
If lancement = 0 Then
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = False
OptionButton7.Value = False
OptionButton8.Value = False
OptionButton9.Value = False
OptionButton10.Value = False
OptionButton11.Value = False
choix = 0
lancement = 1
mode = ""
End If
End Sub
Private Sub erreur()
mot_clef = mot

    Msg1 = "Vous n'avez pas choisi de type de recherche!"
    Msg2 = "Vous n'avez saisi aucune recherche!"
    Style = vbOKOnly + vbExclamation
    Title = "Erreur!"
    valid = 0

If (choix = 0) Then
Box = MsgBox(Msg1, Style, Title)
ElseIf mot = "" And mode <> "modif" Then
Box = MsgBox(Msg2, Style, Title)
Else
valid = 1
End If
mot = ""
End Sub
Function select_a_folder(message, directory)
  ok = False
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, message, NO_OPTIONS, directory)

On Error Resume Next
Set objFolderItem = objFolder.Self
If Err <> 0 Then
        select_a_folder = "ANNUL"
Else
        select_a_folder = objFolderItem.Path
          ok = True
End If
On Error GoTo 0


End Function

Private Sub OptionButton1_Click()
mode = "colonne"
choix = 1
End Sub


Private Sub OptionButton2_Click()
mode = "colonne"
choix = 3
End Sub

Private Sub OptionButton3_Click()
mode = "colonne"
choix = 4
End Sub

Private Sub OptionButton4_Click()
mode = "colonne"
choix = 4
End Sub

Private Sub OptionButton5_Click()
mode = "colonne"
choix = 5
End Sub

Private Sub OptionButton6_Click()
mode = "colonne"
choix = 6
End Sub

Private Sub OptionButton7_Click()
mode = "colonne"
choix = 8
End Sub

Private Sub OptionButton8_Click()
mode = "modif"
choix = 1
End Sub

Private Sub OptionButton9_Click()
mode = "partie"
choix = 1
End Sub

Private Sub OptionButton10_Click()
mode = "intervalle"
choix = 1
End Sub

Private Sub OptionButton11_Click()
mode = "cellule"
End Sub


Private Sub Recherche_Click()
erreur
If valid = 1 Then
If mode = "modif" Then
chemin = select_a_folder("Veuillez sélectionner un dossier dans lequel s'effectuera la recherche de toutes les modifications", "c:\Convoyeurs\EXCEL\")
Else
chemin = select_a_folder("Veuillez sélectionner un dossier dans lequel s'effectuera la recherche de " & mot_clef & "", "c:\Convoyeurs\EXCEL\")
End If
If ok = True Then
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A7:M65536").Clear
Application.Workbooks("recherche.xls").Worksheets("listing").Cells.Clear
lister
chercher
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & k & "").Select
MsgBox ("" & (k - 7) & " résultat(s) trouvé(s)")
End If
End If
End Sub

Function chercher()

k = 7
For cellule = 3 To (derniere_colonne + 2)
fin = Application.Workbooks("recherche.xls").Worksheets("listing").Cells(65536, cellule).End(xlUp).Row
For a = 1 To fin
Workbooks.Open Feuil2.Cells(a, cellule).Value
fichier = Split(Feuil2.Cells(a, cellule).Value, "\")
If mode = "colonne" Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = mot_clef Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
End If
Next i


ElseIf mode = "modif" Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value <> "" Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
End If
Next i


ElseIf mode = "cellule" Then
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("C5").Value = mot_clef Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, 1).End(xlUp).Row
For i = 20 To LaDerniere
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
Next i
End If

ElseIf mode = "partie" Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value <> "" Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
End If
Next i

ElseIf mode = "intervalle" Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value <> "" Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
End If
Next i

End If

Application.Workbooks(fichier(4)).Activate
ActiveWorkbook.Close

Next a
Next cellule
mot_clef = ""
End Function

Function lister()
TousLesDossiers "" & chemin & "", 0
TousLesFichiers
End Function

Function TousLesDossiers(LeDossier$, Idx As Long)

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier = fso.GetFolder(LeDossier)
  'examen du dossier courant
  For Each Flder In Dossier.subfolders
    Idx = Idx + 1
    Feuil2.Range("a" & Idx & "").Value = Flder.Path
    Next
  
  Set fso = Nothing

End Function 'fs

Function TousLesFichiers()

Set fs = Application.FileSearch
If Feuil2.Range("A1").Value = "" Then
Feuil2.Range("A1").Value = Dossier
derniere_colonne = 1
Else
derniere_colonne = 4
End If
For F = 1 To derniere_colonne
With fs
.LookIn = "" & Feuil2.Range("A" & F & "").Value & ""
.Filename = "*"
.Execute
For i = 1 To .FoundFiles.Count
If F = 1 Then
cellul = "C"
ElseIf F = 2 Then
cellul = "D"
ElseIf F = 3 Then
cellul = "E"
ElseIf F = 4 Then
cellul = "F"
End If
Feuil2.Range("" & cellul & "" & i & "").Value = .FoundFiles(i)
Next i
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
Next F
End Function

Dites moi ce qui différe l'un de l'autre mise à part les conditions if mode ="..." parce que là je vois pas ce qui fait merder mon programme!!!

Utilisateur anonyme · Answer

Salut KdTcA,

Voici quelques observations (1er prog), celles-ci ne font pas force de loi,
c'est tout simplement ma façon de travailler. Cela pourra peut-être
te mettre sur une piste. Ces observations sont tirés de la syntaxe
du code et non sur la structure. Je me pencherai plus sur la structure
ultérieurement si besoin est...

Je répète, prend ces observations avec un grain de sel !!!

'Beaucoup de variable globale pour un si petit
'programme, certaines devraient être traduite
'en local et passer en paramètres.
Dim Chemin, Mot_Clef As String
Dim Valid, Lancement, Fin, K, Choix As Integer
Dim Ok As Boolean
Dim Cellule As Integer
Dim Cellul As String

'Lupin -> Déclaration contreversé
'Les variables utilisées avec des objets de scripting
'devrait toujours être déclaré en variant
Dim Fso, Dossier, Flder As Variant
'Lupin -> Les variables devrait toujours être typé
'même si implicite, meilleur compréhension du système
Dim Nb, Derniere_Colonne As Variant
Dim Msg1, Msg2, Style, Title, Box As Variant
Dim Fichier As Variant
'

Sub Main()

    If Lancement = 0 Then
        OptionButton1.Value = False
        OptionButton2.Value = False
        OptionButton3.Value = False
        OptionButton4.Value = False
        OptionButton5.Value = False
        OptionButton6.Value = False
        OptionButton7.Value = False
        Choix = 0
        Lancement = 1
    End If
    
End Sub
'

Private Sub Erreur()
    
    Mot_Clef = Mot
    Msg1 = "Vous n'avez pas choisi de type de recherche!"
    Msg2 = "Vous n'avez saisi aucune recherche!"
    Style = vbOKOnly + vbExclamation
    Title = "Erreur!"
    Valid = 0

    If (Choix = 0) Then
       Box = MsgBox(Msg1, Style, Title)
    Else
        If Mot = "" Then
            Box = MsgBox(Msg2, Style, Title)
        Else
            Valid = 1
        End If
    End If
    Mot = ""
    
End Sub
'

Function Select_A_Folder(message, directory)
  
    Ok = False
    Const WINDOW_HANDLE = 0
    Const NO_OPTIONS = 0

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder _
        (WINDOW_HANDLE, message, NO_OPTIONS, directory)

    On Error Resume Next
    
    Set objFolderItem = objFolder.Self
    If Err <> 0 Then
        Select_A_Folder = "ANNUL"
    Else
        Select_A_Folder = objFolderItem.Path
        Ok = True
    End If
    
    'Lupin -> Je ne comprends pas la necessité de cette ligne
    On Error GoTo 0

End Function
'

Private Sub OptionButton1_Click()
    Choix = 1
End Sub
'

Private Sub OptionButton2_Click()
    Choix = 3
End Sub
'

Private Sub OptionButton3_Click()
    Choix = 4
End Sub
'

Private Sub OptionButton4_Click()
    Choix = 4
End Sub
'

Private Sub OptionButton5_Click()
    Choix = 5
End Sub
'

Private Sub OptionButton6_Click()
    Choix = 6
End Sub
'

Private Sub OptionButton7_Click()
    Choix = 8
End Sub
'

Private Sub Recherche_Click()
    
    Erreur
    If Valid = 1 Then
        Chemin = Select_A_Folder("Veuillez sélectionner un dossier dans lequel s'effectuera la recherche par " & Choix & " de " & Mot & "", "c:\Convoyeurs\EXCEL\")
        If (Ok) Then
            Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A7:L65536").Clear
            Application.Workbooks("recherche.xls").Worksheets("listing").Cells.Clear
            Lister
            Chercher
        End If
    End If
    Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
    Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & K & "").Select
    MsgBox ("" & ((K - 7) / 4) & " résultat(s) trouvé(s)")
    
End Sub

Function Chercher()

    K = 7
    For Cellule = 3 To (Derniere_Colonne + 2)
        Fin = Application.Workbooks("recherche.xls").Worksheets("listing").Cells(65536, Cellule).End(xlUp).Row
        'Lupin -> Où est définit la variable [a]???
        For a = 1 To Fin
            Workbooks.Open Feuil2.Cells(a, Cellule).Value
            Fichier = Split(Feuil2.Cells(a, Cellule).Value, "\")
            LaDerniere = Application.Workbooks(Fichier(4)).Worksheets("Tableau").Cells(65536, Choix).End(xlUp).Row
            'Lupin -> Où est définit la variable [i]???
            For i = 20 To LaDerniere
                If Application.Workbooks(Fichier(4)).Worksheets("Tableau").Cells(i, Choix).Value = Mot_Clef Then
                    Application.Workbooks(Fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & (i + 3) & "").Copy
                    Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
                    Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & K & "").Select
                    ActiveSheet.Paste
                    With Worksheets("Résultats")
                        .Hyperlinks.Add .Range("A" & K & ""), Feuil2.Cells(a, Cellule).Value
                    End With
                    K = K + 4
                End If
            Next i
            Application.Workbooks(Fichier(4)).Activate
            ActiveWorkbook.Close
        Next a
    Next Cellule
    Mot_Clef = ""
    
End Function
'

Function Lister()
    TousLesDossiers "" & Chemin & "", 0
    TousLesFichiers
End Function
'

Function TousLesDossiers(LeDossier$, Idx As Long)

    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Dossier = Fso.GetFolder(LeDossier)
    'examen du dossier courant
    For Each Flder In Dossier.subfolders
        Idx = Idx + 1
        Feuil2.Range("a" & Idx & "").Value = Flder.Path
    Next
  
    Set Fso = Nothing

End Function
'

Function TousLesFichiers()

    'Lupin -> Où est définit la variable [fs]???
    Set fs = Application.FileSearch
    
    If Feuil2.Range("A1").Value = "" Then
        Feuil2.Range("A1").Value = Dossier
        Derniere_Colonne = 1
    Else
        Derniere_Colonne = 4
    End If
    'Lupin -> Où est définit la variable [F]???
    For F = 1 To Derniere_Colonne
        With fs
            .LookIn = "" & Feuil2.Range("A" & F & "").Value & ""
            .Filename = "*"
            .Execute
            'Lupin -> Où est définit la variable [i]???
            For i = 1 To .FoundFiles.Count
                If F = 1 Then
                    Cellul = "C"
                Else
                    If F = 2 Then
                        Cellul = "D"
                    Else
                        If F = 3 Then
                            Cellul = "E"
                        Else
                            If F = 4 Then
                                Cellul = "F"
                            End If
                        End If
                    End If
                End If
                Feuil2.Range("" & Cellul & "" & i & "").Value = .FoundFiles(i)
            Next i
            If .FoundFiles.Count = 0 Then
                MsgBox "Aucun fichier n'a été trouvé."
            End If
        End With
    Next F
    
End Function

Je me pencherai sur le deuxième prog ultérieurement.
Bon courage.

Lupin

Utilisateur anonyme · Answer

Merci!Mais en fait le 1er programme me sert plus à rien vu que c'est le deuxième qui doit marcher pour être mis en place en maitenance d'un secteur de l'usine... :S

Utilisateur anonyme · Answer

'Lupin -> Où est définit la variable [F]???Réponse pour à chaque fois que tu as mis çà:çà sert à rien de les définir ces variables... 'Lupin -> Je ne comprends pas la necessité de cette ligneOn Error GoTo 0J'ai trouvé çà tout fait et je crois que c'est pour empêcher de venir dans le programme en cas d'erreur...

Utilisateur anonyme · Answer

re:

...çà sert à rien de les définir ces variables...

À mon avis :

Une variable non déféni pourra entrainer une erreur de type [1004]
Le genre qui te pose problème actuellement !!!

Dans le cas de [On Error GoTo 0] n'a aucun impact à mon avis
puisque c'est la ligne [On Error Resume Next
] qui est interprèté en premier.

Bon, je vais jeter un oeil sur le deuxième ... !!! ???

Lupin

Utilisateur anonyme · Answer

Je n'ai aucun message d'erreur!

Au niveau de ce type de ligne :

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = mot_clef Then

> marche pas

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = "" & mot_clef & ""Then

> marche pas

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = "31/12/2005" Then

> marche

Utilisateur anonyme · Answer

Problème non résolu (merci de poster un complément d'information pour faire remonter le fil de discussion) voilà c'est fait... lol

Utilisateur anonyme · Answer

re:

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = format(mot_clef, "dd/mm/yyyy") Then

ou

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = format(mot_clef, "jj/mm/aaaa") Then

Lupin

Utilisateur anonyme · Answer

:SNi l'un ni l'autre! :'(

random · Answer

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = format(mot_clef, "dd/mm/yyyy") Then
msgox("je suis dans la boucle")
si on n'a pas le message
on n'entre pas dans lacondition

sinon le pb vien d'ailleurs

Utilisateur anonyme · Answer

suite:

si :

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = FormatDateTime(mot_clef) Then

ou

Dim DateCible As Date

DateCible = FormatDateTime(Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value)

if ( DateCible = FormatDateTime(mot_clef) Then

Lupin

Utilisateur anonyme · Answer

Ok je tente demain!

Utilisateur anonyme · Answer

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = FormatDateTime(mot_clef)

çà marche!!!! incompréhensible!!!! parce que comme Lupin.Arsene a pu le voir, il n'y avait pas besoin de mettre çà dans le premier programme pour que çà marche! allez savoir pourquoi...

Merci, je vous tiens au courant pour la suite...

Utilisateur anonyme · Answer

Bon ben c'est bien ce qu'il me semblait...J'avais déjà testé les autres modes de recherche et çà veut pas!!!

Utilisateur anonyme · Answer

çà me saoule!!!!!!!!!!maintenant quand je regénère les fichiers source, à l'ouverture, EXCEL me demande d'activer les macros! Je fais "Activer les macros" en me disant bizarre normalement y'a pas de macro!!!En en effet, y'a pas de macro!!!! Alors pourquoi me demande-t-il d'activer les macros s'il y en a pas!!!!Je vais devenir fou!!!

Utilisateur anonyme · Answer

re :Pour ce qui est du problème de départ.Tel que souligné dans un message précédent, la définitiondes types de variables est toujours très importante.L'erreur en cause est bel et bien une erreur de typage.Prend l'habitude de traiter les entrées en VARIANT eteffectue la conversion de type selon le besoin du testou de l'action a poser.Pour ce qui est du message sur les macros, détruit lesmodules qui sont vides et ça devrait régler le problème.Lupin

Utilisateur anonyme · Answer

oups j'ai oublié de mettre à jour!j'avais en effet supprimer les modules ce qui ne causaient plus de problème!pour la variable, je l'avais testé en Variant mais il me semble que çà voulait pas alors j'ai changer la variable mode par la variable par (renommage de variable quoi) et à la surprise générale çà marche!recherche par année çà fonctionne aussi > if year(adresse_de_la_cellule) = mot_clef thenreste plus que ma recherche par intervalle de temps càd toutes les modifs de telle date à telle date!je vois enfin le bout du tunnel!

Utilisateur anonyme · Answer

C'est bon je devrais y arriver!!Merci à vous!

maestro1303 · Answer

Bonjour tout le monde,

Quelqu'un peut m'aider pour un problème de transcription 
EXCEL vers VBA. Je suis encore débutant.
Dans excel j'écris: 
x=NB.SI(feuil2!$b:$b,b1) et ça marche très bien
dans vba j'écris:

x=WorksheetFunction.CountIf(Sheets("feuil2").Cells(i, 2),Cells(i, 2))

et ça ne marche pas!  Je sais que le problème vient du premier argument de countif mais je ne peux le situer.

A l'aide SVP Merci infiniment!