Test apparition variable dans une chaîne de caractères Résolu/Fermé

Question

Bonjour, 
j'aurais une question toute simple que je ne parviens néanmoins pas à résoudre. Tout d'abord, dans la feuille Feuil1, je stocke une chaîne de caractère (un mot) dans ma variable MC1 (premier mot-clé). Ensuite je voudrais savoir si ce mot-clé apparait dans le titre d'un document. Mes titres de documents sont listés dans les cellules de ma feuille nommée Liste.
J'avais pensé faire comme ceci mais ça ne fonctionne pas (Erreur de compilation : Erreur de synthaxe).

For j = 1 To i 'j va parcourir la liste de tout les fichiers référencés précédemment
        'MOTS-CLES
        If Range("A" & k).Value Like * & MC1 & * Then
            k = 18 + j
            Range("A" & k, "B" & k).Merge 'Fusionne les cellules Ak et Bk du Nom
            Range("C" & k, "D" & k).Merge 'Fusionne les cellules Ck et Dk du Type
            Sheets("Liste").Range("A" & j & ":E" & j).Copy Sheets("Feuil1").Range("A" & k & ":G" & k) 'Remplit la k-ième ligne du tableau de résultat


Merci d'avance pour les réponses que vous pourrez m'apporter

Configuration: Windows 7 / Chrome 49.0.2623.87

ThauTheme · Answer

Bonjour N, bonjour le forum,

Peut-être avec la fonction InStr  qui donnerait :

If InStr(1, Range("A" & k).Value, "MC1", vbTextCompare) <> 0 Then

ThauTheme · Answer

Re,

Oui VBA et les cellules fusionnées ne font pas bon ménage... Essaie comme ça :

If InStr(1, Range("A" & k)(1).Value, "MC1", vbTextCompare) <> 0 Then

Cela signifie que la valeur retenue est dans la première cellule de la plage fusionnée...

ThauTheme · Answer

Re,

C'est difficile de t'aider sans le code complet... 
Tu utilises la variable k mais on ne sait ni où elle est déclarée ni où elle est initialisée/définie. Si elle est nulle, il est clair que Range("A0") va forcément planter...

N · Answer

PS : cette version correspond à la version "non-défusionnée" de mo classeur excel...

ThauTheme · Answer

Et... ?!

N · Answer

C'est bon, j'ai fini par résoudre ce problème. Merci quand même pour les tuyaux, ça aidera d'autres jeunes programmeurs !

ThauTheme · Answer

Re, 

Ce qui pourrait  surtout aider les autres serait que tu nous donnes la solution que tu as trouvée... C'est un forum d'entraide ne l'oublies pas !

Test apparition variable dans une chaîne de caractères

7 réponses

Discussions similaires