Erreur de compilation
Résolu
Bonjour,
je début sur VBA et j'ai une erreur de compilation sur la ligne de code:
If Workbooks("Registros.xls").Sheets("Titulares_terceros").Cells(j, 5) Like "*Sheets("Italy").Cells(i, 5).Value*" Then
Au passage je tentes de faire une macro qui recherche si dans le contenu d'une cellule, Cells(j, 5), se trouve la valeur d'une autre cellule,Cells(i, 5). Pensez vous que ma méthode est bone sinon comment je peux mis prendre?
Merci de votre aide.
je début sur VBA et j'ai une erreur de compilation sur la ligne de code:
If Workbooks("Registros.xls").Sheets("Titulares_terceros").Cells(j, 5) Like "*Sheets("Italy").Cells(i, 5).Value*" Then
Au passage je tentes de faire une macro qui recherche si dans le contenu d'une cellule, Cells(j, 5), se trouve la valeur d'une autre cellule,Cells(i, 5). Pensez vous que ma méthode est bone sinon comment je peux mis prendre?
Merci de votre aide.
2 réponses
-
ContributeurBonjour à tous
Pour ma part ,j'aurais plutôt écris
modele=Sheets("Italy").Cells(i, 5)
If Workbooks("Registros.xls").Sheets("Titulares_terceros").Cells(j, 5) Like "*" & modele & "*" then...
si tu veux comparer sans souci de la casse (différence entre majuscule et minuscule)
écrit avant la macrooption.compare text
sub mamacro() -
Bonjour
Remplacez
Like "*Sheets("Italy").Cells(i, 5).Value*" Then
par
Like Sheets("Italy").Cells(i, 5).Value Then
Cdlt
