Erreur de syntaxe

rif2g Messages postés 35 Date d'inscription   Statut Membre Dernière intervention   -  
NHenry Messages postés 15219 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'essai de faire une macro qui recherche dans une colonne H l'un des mot présent dans la colonne A d'une autre feuille et s'il y a occurrence il copie le contenu de la cellule à droite de la colonne A dans la cellule 3 cellule à droite de la liste 1.

voila le code 
Sub Test()
For Each x In Columns("H")
    For Each y In Worksheets("MC").Columns("A")
    strtext = y
    strtext = x
    If InStr(Start, UCase(x), UCase(y), vbTextCompare) Then
    y(, 1) = x(, 3)
    Next
Next

End Sub


Le problème est qu'une erreur de syntaxe apparait et met en surbrillance le x ici 
 y(, 1) = x(, 3)




Merci d'avance pour vos réponse
Les guerre ne font que se succéder mais l'âme du guerrier reste éternel - TUPAC

1 réponse

Réponse 1 / 1
NHenry Messages postés 15219 Date d'inscription   Statut Modérateur Dernière intervention   365
 
Si le IF et sa réalisation sont sur la même ligne, ça donne : 
IF condition THEN instruction [ELSE instruction]

Si il est multi-ligne : 
IF condition THEN
instruction
[ELSE
instruction]
END IF


Comme écrit dans l'aide.
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse
Code erreur 3000
Laurent -
JM -

5 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse