Macro VBA

C

Compte Supprimé 979

Guest

• 31 Janvier 2008

• #2

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à 🙄

 

Vote positif 0 Vote négatif

A

alexistak

XLDnaute Occasionnel

• 31 Janvier 2008

• #3

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

 

Dernière édition: 31 Janvier 2008

Vote positif 0 Vote négatif

A

alexistak

XLDnaute Occasionnel

• 31 Janvier 2008

• #4

Re : Macro VBA

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

 

Pièces jointes

• GCCtest.xls

  41 KB · Affichages: 47

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 31 Janvier 2008

• #5

Re : Macro VBA

alexistak à dit:

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

Cliquez pour agrandir...

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

Code:

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+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 31 Janvier 2008

• #6

Re : Macro VBA

Re,

Je pense avoir trouvé !?

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

Code:

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

Code:

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+

 

Vote positif 0 Vote négatif

A

alexistak

XLDnaute Occasionnel

• 31 Janvier 2008

• #7

Re : Macro VBA

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

 

Vote positif 0 Vote négatif

A

alexistak

XLDnaute Occasionnel

• 1 Février 2008

• #8

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

 

Vote positif 0 Vote négatif