Macro avec recherchev !

[Vava869]

Bonjour à tous,

Ayant d'énormes tableaux et peu de temps pour les traiter, je me suis lancé dans la confection d'une macro.

Pour résumer, mes tableaux sont des arborescences qui ressortent avec des cases manquantes identifiées.

J'ai donc fais une boucle qui identifie les erreurs, celle-ci fonctionne.

Je dois utiliser une rechercheV, pour aller chercher les valeurs manquantes dans un autre onglet du même fichier.

j'ai donc parcouru divers forum et topic, pour au final me retrouver coincer. J'ai essayer d'utiliser la fonction VLookUp ou de passer par la voix "traditionnelle" en décomposant chaque étape de la recherchev en sous fonction.

Dim Partnbr, VM, VT as variant

Private Static Sub testd3()

Sheets("FeuilleTest").Select
Range("A8").Select

Partnbr = ActiveCell.Offset(I, 6).Value

ActiveCell.Offset(I, 25).Value = "Error d3 detected"

Call Valeur_VM
ActiveCell.Offset(I, 12).Value = VM

Call Valeur_VT
ActiveCell.Offset(I, 13).Value = VT

ActiveCell.Offset(I, 14) = ActiveCell.Offset(0, 13).Value + ActiveCell.Offset(0, 14).Value

ActiveCell.Offset(0, 15) = ActiveCell.Offset(0, 15).Value * ActiveCell.Offset(0, 12).Value


End Sub

Private Static Sub Valeur_VM()

Partnbr = ActiveCell.Offset(I, 6).Value

Sheets("Ano aout2013").Select
Range("C8").Select

Do While Not ActiveCell.Offset(I, 5).Value = Partnbr

I = I + 1

Loop

VM = ActiveCell.Offset(I, 5).Value

Sheets("FeuilleTest").Select
Range("A8").Select

End Sub

Private Static Sub Valeur_VT()

Partnbr = ActiveCell.Offset(I, 6).Value

Sheets("Ano aout2013").Select
Range("C8").Select

Do While Not ActiveCell.Offset(I, 6).Value = Partnbr

I = I + 1

Loop

VT = ActiveCell.Offset(I, 6).Value

Sheets("FeuilleTest").Select
Range("A8").Select

End Sub


Etant débutant sous VBA, je pense avoir pas mal d'erreur dans ma syntaxe ou dans la façon que j'ai de m'y prendre.

 

[reve24]

Re : Macro avec recherchev !

J ai fait deja unemacro pour recherche V donnes un fichier ou un exemple plutot que ton explication
je te reverrai ma solution

 

[Pierrot93]

Re : Macro avec recherchev !

Bonjour,

plutôt que d'utiliser la fonction d feuille de calcul "recherchev", regarde peut être du coté de la méthode "find", native dans vba...

bonne journée
@+

 

[Vava869]

Re : Macro avec recherchev !

Bonjour reve24,

voilà le fichier allégé sur lequel je travail.

Il faut que je retrouve la valeur des colonnes VM et VT grâce au Partnbr de l'onglet feuilletest dans l'onglet Ano aout2013.

Bonne réception

 

[Vava869]

Re : Macro avec recherchev !

Des pistes messieurs ?