bonjour a tous

pasquetp · 6 Juillet 2016

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 · 6 Juillet 2016

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+

Compte Supprimé 979 · 6 Juillet 2016

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 · 6 Juillet 2016

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 · 7 Juillet 2016

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

Paf · 7 Juillet 2016

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+

gosselien · 7 Juillet 2016

Bonjour,

si tu expliquais CLAIREMENT ce que tu as avant et ce que tu veux après, ça aiderait

P.

Roland_M · 7 Juillet 2016

Bonjour,

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

pasquetp · 7 Juillet 2016

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

bonjour a tous

pasquetp

XLDnaute Occasionnel

Paf

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Roland_M

XLDnaute Barbatruc

pasquetp

XLDnaute Occasionnel

Pièces jointes

Paf

XLDnaute Barbatruc

gosselien

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

pasquetp

XLDnaute Occasionnel

Discussions similaires