Erreur de compilation
Résolu/Fermé
A voir également:
- Erreur de compilation
- Erreur 0x80070643 - Guide
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Guide
- Erreur 1001 outlook - Guide
- Erreur 10016 epson - Forum Imprimante
- Erreur g030 - Forum Bbox Bouygues
2 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
13 mai 2015 à 05:23
13 mai 2015 à 05:23
Bonjour
Remplacez
Like "*Sheets("Italy").Cells(i, 5).Value*" Then
par
Like Sheets("Italy").Cells(i, 5).Value Then
Cdlt
Remplacez
Like "*Sheets("Italy").Cells(i, 5).Value*" Then
par
Like Sheets("Italy").Cells(i, 5).Value Then
Cdlt
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 306
13 mai 2015 à 08:36
13 mai 2015 à 08:36
Bonjour à tous
Pour ma part ,j'aurais plutôt écris
si tu veux comparer sans souci de la casse (différence entre majuscule et minuscule)
écrit avant la macro
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 macro
option.compare text
sub mamacro()