nass92ig
Messages postés1Date d'inscriptionjeudi 29 décembre 2016StatutMembreDernière intervention29 décembre 2016
-
Modifié par NHenry le 29/12/2016 à 11:47
Bonjour,
je n'arrive pas a compiler mes 2 macros pouvez m'aidez svp?
les 2 macros fonctionnent bien lorsque je les exécute indépendamment, mais lorsque je les combines elle plante même avec call. La première macro créer insert une colonne et regroupe 2 valeur. A partir de ces valeurs la deuxième macros doit faire une recherchev avec une condition.
Sub recherchv()
Columns(5).Insert
Intersect(Columns(5), ActiveSheet.UsedRange).FormulaR1C1 = _
"=RC" & WorksheetFunction.Match("Code ", Rows(1), 0) & _
"&RC" & WorksheetFunction.Match("Product Code", Rows(1), 0)
[E1].Value = "code PRODUIT"
Dim Plg As Range
Set Plg = ActiveSheet.UsedRange
Set Plg = Plg.Rows(2).Resize(Plg.Rows.Count - 1)
With Plg.Columns("H")
.FormulaR1C1 = "=IFERROR(VLOOKUP(RC5,'VR avec param'!C3:C8,6,FALSE),VLOOKUP(RC4,'VR par défaut'!C1:C8,7,FALSE))"
.Value = .Value: End With
End Sub
EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI