[XL-2003] problème d'exécution d'une macro

problème d'exécution d'une macro

Bonjour à tous en ce début de semaine,

J'ai un petit soucie avec ma macro, je voudrais la faire exécuter par un bouton sauf que je ne peux pas mettre la macro dans la page sinon elle ne s'exécute pas donc j'ai mon bouton dans ma page :"FeuilleErreur" et ma macro dans mon module n°4
Est-il possible de l'appeler ? si oui, merci de répondre la seconde question
comment puis-je l'appeler ?

dans ma feuille erreur pour l'instant j'ai ça :
Code:

1 2 3 Private Sub CommandButton1_Click() module4.RechercheErreur End Sub
qui me renvoie une erreur :
membre de méthode ou de donnée introuvable

j'ai testé Call FeuilleErreur
qui me génère une nouvelle erreur :
Sub ou fonction non définie

Merci d'avance à tous/toutes !

bonjour,

Citation:

...bouton sauf que je ne peux pas mettre la macro dans la page sinon...

il faudrait en savoir un peu plus sinon :
Code:

1 2 3 Private Sub CommandButton1_Click() RechercheErreur End Sub
devrait suffire si ce code est dans un module quelconque

bonne journée

ma première tentative était aussi de mettre seulement le RechercheErreur
mais j'ai le message d'erreur :

Sub ou fonction non définie

Pour l'explication, lorsque je mets ma macros dans ma page avec mon bouton, elle s'exécute mais provoque une erreur en cours... elle ne va pas dans une autre page extraire les données voulu, enfaite elle n'extrait rien...

pour cela que je me suis tournée vers la solution de la laisser dans le module mais je me retrouve avec ce problème.

tu devrais communiquer ta macro sur un post

Voici ma macro
edit : suppression du code

Problème fini !

Il fallait passer la macro en Public alors qu'elle était en Private.

tout de meme,

1er gros oubli => remettre à la fin

Code:

Application.ScreenUpdating = true

maintenant sans avoir analyser ton code, je me suis permis quelques aménagements que tu peux tester sur une copie de préférence, je découpe la première partie du code pour expliquer :
si tu veux vraiment supprimer la feuille et en ajouter une avec le meme nom :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Worksheets("LectureDBUser").Activate
erreurNum = 2
'Recherche de l'existance d'une feuille "erreurs" dans le classeur
'Si oui la supprimer pour la recréer.
For Each Page In ActiveWorkbook.Worksheets
    If Page.Name = "FeuilleErreur" Then
        Page.Delete
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = "FeuilleErreur"
        With Worksheets("FeuilleErreur")
            .Range("A1") = "Recherche d'erreur dans la page LectureDBUser"
            .Range("A2") = "Nom extrait :"
            .Range("B2") = "Adresse colonne A :"
            .Range("C2") = "Nom extrait :"
            .Range("D2") = "Adresse colonne D :"
        End With
        Exit For
    End If
Next

ensuite, à voir c'est du vite fait, plus pour la syntaxe, en supprimant des "activate" :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
'On recherche "PTE_Ref"
motRecherche = "PTE_Ref"
' Recherche de la première cellule contenant PTE_Ref
With Worksheets("LectureDBUser")
    Set laCell = .Columns("D").Find(motRecherche, , xlValues, xlPart)
    If Not laCell Is Nothing Then
        'mémoriser l'adresse de cette première cellule trouvée
        memeAdressePremCell = laCell.Address
        Do
            'extraction du nom du projet de la cellule trouvé par appel à la fonction n°1
            projetColonneD = extraire_partiel_Colonne_D(Range(laCell.Address))
 
            'Permet de se transposer dans la colonne A à la mm ligne précédemment utilisé
            LigneEnRapport = laCell.Row
 
            ' Boucle tant que la cellule est vide, on remonte
            Do While (IsEmpty(.Range("A" & LigneEnRapport)))
            .Range("A" & LigneEnRapport).Offset(-1, 0).Select
            Loop
         numeroDeLigne = .Range("A" & LigneEnRapport).Offset(-1, 0).Row:
 
            'extraction du nom du porjet de la cellule trouvé par appelle à la fonction n°2
            projetColonneA = extraire_partiel_Colonne_A(.Range("A" & numeroDeLigne))
 
            AdresseErreur1 = .Range("A" & numeroDeLigne).Address
            AdresseErreur2 = laCell.Address
        With Worksheets("FeuilleErreur")
            'Boucle de test pour savoir si les deux projets ont le même nom
            If projetColonneA <> projetColonneD Then
            erreurNum = erreurNum + 1
            ' ecrire dans la page erreurs; nom du projet; adresse colonne A,lien vers l'erreur
            ' puis nom du projet; adresse colonne D, lien vers l'erreur
            .Range("A" & erreurNum) = projetColonneA
            .Range("B" & erreurNum).Select
            .Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
                AdresseErreur1, TextToDisplay:="$A$" & numeroDeLigne
            .Range("C" & erreurNum).Value = "" & projetColonneD
            .Range("D" & erreurNum).Select
            .Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
                AdresseErreur2, TextToDisplay:="" & laCell.Address
        End With
    End If
    With Worksheets("LectureDBUser")
        'trouver la cellule suivante contenant le texte recherché
        Set laCell = .Columns("D").FindNext(laCell)
        'boucler jusqu'à que l'on retourne à la première cellule
        Loop Until laCell.Address = memeAdressePremCell
    End With
    End With
End If
 
With Worksheets("FeuilleErreur")
    'Détermine le nombre de ligne de la page
    finDesLignes = .range("a1").SpecialCells(xlCellTypeLastCell).Row
    ' Pour chaque ligne
    For ligne = 2 To finDesLignes
        'Si la ligne de la colonne A est vide alors ne rien faire
        If Not (IsEmpty(.Range("A" & ligne))) Then
            'Si la ligne de la colonne C est vide alors supprimer la ligne et refaire le teste à la ligne - 1
            If (IsEmpty(.Range("C" & ligne))) Then
                .Rows(ligne).EntireRow.Delete Shift:=xlUp
                ligne = ligne - 1
            End If
        End If
    Next
    'Suppression des lignes vide dans la page "erreurs"
    DerniereLigne = .UsedRange.Rows.Count
 
    For numeroDeLigne = DerniereLigne To 1 Step -1
        If Application.CountA(.Rows(numeroDeLigne)) = 0 Then .Rows(numeroDeLigne).Delete
    Next numeroDeLigne
End With
Application.ScreenUpdating = True
'End sert à remettre les variables à l'initiale pour ne rien garder en mémoire.
End
End Sub

Très sympa casefayere,

Pour le Application.ScreenUpdating = True, je ne l'avais pas rajouté pensant que ce n'était pas important après l'exécution de ma macros... désolé c'est même pas un oubli mais une erreur de ma part...

Après pour l'analyse de ma code, la 1ère partie n'est pas exactement ce que je recherche mais pas l'optimisation de la seconde partie m'intéresse ^^

Merci à toi !