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
 

Paf

XLDnaute Barbatruc
Bonjour pasquetp,

si ce code fonctionne sur d'autres projets, c'est que le souci ne provient pas du code, mais du classeur sur lequel il tourne (?)
un extrait du classeur permettrait peut-être de poser un diagnostic .

A+
 

BrunoM45

XLDnaute Barbatruc
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
 

Fichiers joints

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+
 

Roland_M

XLDnaute Barbatruc
Bonjour,

tout à fais d'accord avec toi gosselien, en plus il ne répond pas aux messages, alors . . .
 

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


Haut Bas