besoin aide sur formule

[poussy67]

Bonjour le forum

J'ai 2 feuilles dans un classeur, dans une des feuilles (Controle des tt), je voudrais placer dans la colonne G et I automatiquement si il y a une valeur dans colonne A deux formules qui sont

dans colonne G:=SI(ESTNA(RECHERCHEV($F2;BD!$A$1:$D$200;3;FAUX));"";RECHERCHEV($F2;BD!$A$1:$D$200;3;FAUX))

dans colonne I: =SI(ESTNA(RECHERCHEV($H2;BD!$A$1:$D$200;3;FAUX));"";RECHERCHEV($H2;BD!$A$1:$D$200;3;FAUX))

J'ai essayer dans ce style de VBA dans la feuille

Private Sub Worksheet_Activate()
For n = 2 To Range("A65536").End(xlUp).Row
Range("G" & n).FormulaLocal = "=IF(ISNA(VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE)),"""",VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE))"
Next n
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Range("g" & Target.Row).FormulaLocal = "=IF(ISNA(VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE)),"""",VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE))"
End If
End Sub

et cela plante et popurquoi je ne sais pas

en remerciant d'avance pour votre aide

cdt poussy

ci joint un exemple:

 

[Dull]

Re : besoin aide sur formule

Salut poussy67, le Forum

remplace la partie en Gras

Private Sub Worksheet_Activate()
For n = 2 To Range("A65536").End(xlUp).Row
   Range("G" & n).[B]FormulaLocal [/B]= "=IF(ISNA(VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE)),"""  ",VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE))"
Next n
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Range("g" & Target.Row).FormulaLocal = "=IF(ISNA(VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE)),""" ",VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE))"
End If
End Sub

par

[B]FormulaR1C1 [/B]

FormulaLocal te permet de mettre ta Formule en Français soit:

=SI(ESTNA(RECHERCHEV($F2;BD!$A$1:$D$200;3;FAUX));"";RECHERCHEV($F2;BD!$A$1:$D$200;3;FAUX))

au lieu de

"=IF(ISNA(VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE)),""" ",VLOOKUP(RC6,BD!R1C1:R200C4,3,FALSE))"

Bonne Journée

 

[poussy67]

Re : besoin aide sur formule

Impec
merci beaucoup pour ton coup de main

Cdt poussy