bonjour a tous

pasquetp

XLDnaute Occasionnel
Sub tt()
Sheets("sort").Select
endd = Sheets("sort").Range("A65536").End(xlUp).Row

For a = 2 To 6
voila j'ai fait la macro suivante

je tombe sur une erreur format de chaine incorrect sur la ligne: if .......

For b = 2 To endd




If Sheets("favorites").Cells(a, 1) = Sheets("sort").Cells(b, 1).Value Or Sheets("favorites").Cells(a, 1).Value Like "*" & Sheets("sort").Cells(b, 3).Value & "*" Then


Sheets("queue").Cells(a + 6, 6) = Sheets("sort").Cells(b, 3)

End If

Next
Next

End Sub


sur d'autres projets cette macro fonctionne mais pas ce coup ci

pouvez vous m'aider?

Merci
 
C

Compte Supprimé 979

Guest
Bonsoir Pasquetp,

Si ce code fonctionne dans d'autres classeurs, c'est que tu as une de tes feuilles qui ne porte pas les noms indiqués (attention aux espaces avant ou après le nom)

A+
 

Roland_M

XLDnaute Barbatruc
bonsoir,

que signifie ceci ?

Or Sheets("favorites").Cells(a, 1).Value Like "*" & Sheets("sort").Cells(b, 3).Value & "*" Then

pas de = qq chose avant then !?

ou ne serait-ce pas plutôt:
Or Sheets("favorites").Cells(a, 1).Value Like "*" = Sheets("sort").Cells(b, 3).Value & "*" Then
 

pasquetp

XLDnaute Occasionnel
Merci de vos reponses

voici un fichier test.

une partie du code marche mais pas la partie "value like"

sur un autre projet le meme type de code marchait bien mais pas ici: theoriquement des que le mot designe est repere dans une partie d'une autre cellule ca devrait faire tilt mais la ca ne marche pas alors pour dire les choses simplement je suis sur le cul

je me suis acharne dessus toute la soiree en vain. j'ai l'impression de me prendre une grosse claque

encore merci de votre aide vous me sauvez la vie
 

Pièces jointes

  • PROBLEME.xlsm
    31.7 KB · Affichages: 66

Paf

XLDnaute Barbatruc
bonjour à tous,

Désolé, sous XL2003, mon convertisseur ne parvient pas à ouvrir le classeur.

malgré quelques tests, impossible de reproduire l'erreur.

Peut-être qu'avec un classeur au format xls .... ?

A+
 

pasquetp

XLDnaute Occasionnel
excusez moi pour le manque d'explication

comme je suis au travail, j'ai pas eu beaucoup de temps pour repondre

j'ai reussi a corriger la macro

If Sheets("sort").Cells(b, 3) Like "*" & Sheets("favorites").Cells(a, 1).Text & "*" Then
Sheets("queue").Select

sous cette forme ca marche

en gros cela sert a comparer deux listes differentes: si une valeur au sein d'une cellule de la premiere liste est identifie dans une cellule de la seconde liste, alors on le note dans la troisieme page

voila j'ai pu resoudre ce souci

Veuillez m'excuser pour le manque d'explication

Encore merci
 

Discussions similaires

Réponses
17
Affichages
760

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG