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