Bonjour a tous,
 
 
voila je pense qu'il y a deja eu ce probleme auparavant mais je suis débutant en vba et je n'arrive a résoudre un probleme sur lequel je suis depuis un bon bout de temps maintenant!!
 
 
voila en fait j'ai deux feuilles excel.  
La premiere contient des données importées depuis une base de données et lautres contient les mêmes données mais avec quelque difference.
 
En effet la dans la premiere feuille il ya des numero (1350,1351..) et dans la deuxieme feuilles on retrouve parfois les mm numéros sauf qu'il y a une lettre avant (R1350,R1351...).  
 
Ce que j'essaye de faire c'est comparer ces lignes et si on retrouve les mm chiffre alors elle affiche un message (genre "ok" ) dans une troisieme feuille. Mon soucis est de comparer c'est lignes mais en faisant disparaitre cette lettre
 
 
voila j'espere que j'ai était claire je vous remercie d'avance pour votre aide!!!!!
 
 
 
voila un bout de code que j'ai fait pour le moment :
 
Private Sub CommandButton12_Click()
 
 
'Définition des variables
 j As Long
 
'Permet de ne pas afficher le message de fermeture de fichier
Application.DisplayAlerts = False
 
 
 
 
 
 
 j = 2
While Sheets("Export ANO_ITEM_LIV" ).Cells(j, 1) <> ""
 
 
      If Mid(Sheets("BL Interne" ).Cells(j, 4), 2) <> Sheets("Export ANO_ITEM_LIV" ).Cells(j, 2) Then
       
      Sheets("Feuil1" ).Cells(j, 1) = "yes"
     
     
       
       
     
      End If
j = j + 1
Wend
 
 
 
 
 
End Sub
 
 
 

" If Mid(Sheets("BL Interne" ).Cells(j, 4), 2) = Sheets("Export ANO_ITEM_LIV" ).Cells(j, 2) Then "
 
Désolé je rectifie cette faute de frappe!!

Bonjour,
qu'est ce qui ne fonctionne pas
ca m'a l'air correct

Merci 86vomito33 d'avoir pris le temps de lire mon message!!
 
le probleme c'est que rien ne saffiche sur la troisieme feuille ("feuil1" ) alors que c'est censé m'afficher "yes" !!

et si tu remplaces ton <> (différent) par un =

oui en fait je mettais tromper c'est pour sa j'ai rectifier mais sa ne marche toujours pas au contraire quand je met "<>" sa m'affiche le message et quand je met "="  sa ne fait rien alors que sa devrait etre l'inverse. Déeolé de t'importuner!!!

ca doit etre lié au fait que tu compares du texte et un nombre
 
essai str(Sheets("Export ANO_ITEM_LIV" ).Cells(j, 2))

Sa ne marche pas cela m'affiche une erreur de "compilation" sur le "str"!! pour info c'est la feuille "BL Interne" qui contient les "R1300,...." et c'est Export ANO_ITEM_LIV qui contien parfois les mêmes chiffre mais sans les lettres.

cells(j,2).value
 
mets une version allegee de ton fichier excel sur cjoint et donne nous le lien
 
la je vois pas

comment fait on pour vous transferez un fichier?? desolé...

http://cjoint.com/

à l'inverse essai if val(Mid(Sheets("BL Interne" ).Cells(j, 4), 2))= Sheets("Export ANO_ITEM_LIV" ).Cells(j, 2) Then

voila!! http://cjoint.com/?BBdraXwCBGP

La premiere feuille correspond au "BL Interne" et la deuxieme a "Export ANO_ITEM_LIV".

au fait c dim j as integer

du coup ca marche
 
et n'oubli pas de remettre Application.DisplayAlerts = True avant end sub

en fait je viens d'essayer ce que tu m'as dit et s'a maffiche le message a la ligne 42 de la feuille export ano_item_liv! et dans cette ligne il n'y a pas de numéros!! je sais pas pourquoi cela fait sa !!!

 
Salut,
 
Es-tu obligé d'utiliser vba dans ton travail ? Ce qui t'est demandé semble faisable avec les fonctions standard, simplement en tirant une formule dans la troisième feuille
 
Ce serait une formule du style =SI(EXACT(a!A2;STXT(b!A2;2;NBCAR(b!A2)-1));"OK";"KO", où les 2 premieres feuilles ont pour nom a et b.
 
Encore plus sympa, tu peux te passer de la troisieme feuille et faire un coloriage sur les 2 premieres en utilisant la mise en forme conditionnelle.

Salut alcaa,
 
merci de ton aide et ou en effet je suis obligé d'utiliser vba !! j'avais penser a faire ta technique mais c'est vrai je n'ai jamais essayé!! je m'y met de suite merci pour ton aide !!

je suis obliger de le faire en vba. et je bloque toujours!! pouvez vous m'aider ?? desolé de vous importuner!!

je suis pas sur d'avoir compris ce que tu souhaite faire
 
peux tu mettre sur une feuille excel ce a quoi ressemblerait ta feuil1 si tout marchait parfaitement
 
parce que si c'est simplement des yes je vois pas comment tu l'exploiteras

en fait ce n'est pas s'implement des "yes" il faudrait aussi que si il n'y a pas concordance qu'au lieu d'afficher "yes" il m'affiche le contenu de la cellule "Nom" du BL Interne ou sa bloque.
 
voila un exemple http://cjoint.com/?BBdsfgxFNWg

ya rien dans feuil3

Après avoir vu le fichier, je comprends que tes Feuil1 et Feuil2 ne correspondent pas du tout ligne à ligne.
Il faut donc pour chaque ligne faire une recherche de "R" + 1xxxxx dans la colonne D de la feuille 1.
Ca peut se faire en utilisant

(code approximatif)

Désolé j'ai pas pu repondre ce week end et je viens de me rendre compte qu'en effet je n'avais pas partager le bon fichier!! desolé 86vomito33 le voici!  
http://cjoint.com/?BBgjOZV7WUM
 
merci pour ton aide alcaa je vais tester ta proposition!! merci encore

la fonction concatenate ne marche pas, sa me fait une erreur, je pense que c'est sur la bonne voie...quelqu'un aurait une idée??

je te renvois le fichier modifier
 
http://cjoint.com/?BBgtOVTI4VB
 
sur la feuille 2 colonne E tu peux voir la fonction recherche v. modifie la pour récupére la bonne colonne.
 
je pense qu'il faudrait faire un tri croissant de ta BdD par rapport au bug ID pour éviter les erreurs

merci 86vomito33 pour ta proposition mais finalement jai gardé la premiere idée que tu m'avais suggéré au début et sa marche parfaitement merci pour ton aide!!!!