macro erreur compilation attendu fin d'instruction

limagerit

XLDnaute Occasionnel
Bonjour à tous ,

j'ai dans la macro ci dessous une erreur de compilation : fin d'instruction attendu


Le problème se situe dans la ligne :
Range("j2").FormulaLocal = "=SI(STXT(F4;1;1)="C";VRAI;FAUX)"


Je lui demande de déployer dans la colonne J la formule ci dessous qui teste si dans la cellule F4 commence par un C

avez vous une idée que quel paramètre de fin il attends , je testes avec des ( ) mais rien n'y fait

Merci de votre aide

Sub txt()
'
' filtre Macro
'

'

'MAJ du calcul colonne j
Range("j2").FormulaLocal = "=SI(STXT(F4;1;1)="C";VRAI;FAUX)"
DerLig = Range("A2").End(xlDown).Row
Range("j2").Select
Selection.AutoFill Destination:=Range("j2:j" & DerLig)
'ajout du filtre et selection des faux
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$5").AutoFilter Field:=10, Criteria1:="true"
'suppression du contenu cellule F selon filtre dessus
Columns("f:f").Select
Selection.ClearContents
'ajout text
Range("f1").Select
ActiveCell.FormulaR1C1 = "composant x-1"
'suppression du filtre
Rows("1:1").Select
Selection.AutoFilter
End Sub
 

Discussions similaires

Réponses
7
Affichages
318
Réponses
3
Affichages
573

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16