Macro VBA

[alexistak]

Salut a tous, j'avais une macro VBA qui marchait parfaitement.
Son role est selectionner dans mon tableau uniquement les lignes correspondant a certains interlocuteurs (GCC analyst).
Cette macro ne fonctionne plus elle m effqce toutes les lignes au lieu de garder celles dont j'ai besoin.
Si vous pouvez m aider.

Merci

je vous envoie le fichier par mail car il est trop lourd pour etre uploader.

Probleme Macro VBA - Forum des développeurs
adress ou j'ai pu uploader

 

[Compte Supprimé 979]

Re : Macro VBA

Salut Alexistak,

Dans ton classeur, il la fonction : row_count n'existe pas !
C'est : Function RowCount() As Integer

Tu fait appel à cette fonction dans tes procédures de traitement des infos
Call ColorUPC(4, row_count, 17, 5)
Call SeperateUPC(4, row_count, 17, 5, False)
Call DeleteJust(False, row_count)

Comme cette fonction n'existe pas dans le classeur,
row_count = 0
ColorUPC et SeperateUPC , ne s'éxécutent pas !

DeleteJust s'éxécute sans pouvoir effectuer les tests correctement.

Voilà 🙄

 

[alexistak]

Re : Macro VBA

Il faut que je remplace
row_count n'existe pas !
par Function RowCount() As Integer ?
J ai pas bien compris, je vais te paraitre vraiment naze mais c le cas!
J'ai erreur 400 et l'appli me fait pas ce qu'il faut.

PS : Merci pour ton aide rapide

 

[alexistak]

Re : Macro VBA

Ci joint un fichier Excel c le meme modele que celui qu'on utilise.
Si ca peut t'aider

 

[Compte Supprimé 979]

Re : Macro VBA

Il faut que je remplace
row_count n'existe pas !
par Function RowCount() As Integer ?
J ai pas bien compris, je vais te paraitre vraiment naze mais c le cas!
J'ai erreur 400 et l'appli me fait pas ce qu'il faut.
PS : Merci pour ton aide rapide

Oups, je n'avais pas vu la ligne suivante (en bleue)

MsgBox "Data Import has finished"
Workbooks("GCC Violation Report Filter Macro.xls").Worksheets(2).Activate
[COLOR=blue][B]row_count = RowCount
[/B][/COLOR]

Donc la fonction est bien utilisée après import du fichier 😕

Je ne vois plus ou est le problème 😎

A+

 

[Compte Supprimé 979]

Re : Macro VBA

Re,

Je pense avoir trouvé !?

Dans ta fonction Scan
La valeur de la colonne est mauvaise !

Private Function Scan(SearchValue, row_start As Integer, Optional wb_to_scan As Workbook, Optional row_max As Integer = 500) As Integer
            'Column variable
            Dim j As Integer
            
            'sets column to search
            [COLOR=red][B]'3 means Head for the credit
            j = 3[/B][/COLOR]

Il faut remplacer la valeur 3 par la valeur 4

Private Function Scan(SearchValue, row_start As Integer, Optional wb_to_scan As Workbook, Optional row_max As Integer = 500) As Integer
            'Column variable
            Dim j As Integer
            
            'sets column to search
            '4 means Head for the credit
            j = 4

Essayes ça et tiens nous au courant !

A+

 

[alexistak]

Re : Macro VBA

Ca a l'air de fonctionner au debut mais a la fin le tableau est vide...
Bizarre

 

[alexistak]

Re : Macro VBA

Le probleme c est que il m enleve une colonne "type of violation" (je sais pas pourquoi)
et apres il delete toutes les lignes comme ci elles etaient mauvaises.

Tu vois commment remedier a ce probleme?
J ai change l adresse de la colonne 3 en 4 mais ca ne öarche toujours pas...