Bonjour à tous, et excusez moi de réveiller un sujet resté longtemps inactif. Mais j'ai un problème que je n'arrive pas à regler facilement.
J'ai deux feuilles "feuil13 ET "feuil2".
feuil2 est composéde 4 colonnes:
nom, code, date et prix
de même la feuil1 est composée de 4 colonnes nom, code, date et prix.
Si un correspondant du code dans feuil2 est trouvé dans feuil1 alors la colonne 5 de feuil1 est mise à jour par le prix correspondant de feuil2. Sinon une ligne est rajoutée à la fin de la feuil1 avec les les informations de la feuil2 disposées d'une certaine manière.
Sur un autre forum on m'a aidé par le code suivant qui fait presque tout sauf la partie où le résultat du "SI" est positif.
Dim wksProj As Worksheet 'Feuille ¨projet
Dim wksCde As Worksheet 'Feuille Commande
Dim strNom As String 'Valeur à chercher
Dim rDest As Range ' Plage de recherche
Dim rSource As Range
Dim val As Variant
Dim c As Range
Dim cName As Range
Set wksProj = Sheets("feuil1" )
Set wksCde = Sheets("feuil2" )
Set rSource = Range(wksCde.Cells(1, 2), wksCde.Cells(65535, 2).End(xlUp))
wksProj.Select ' pour parcourir les codes à chercher
For Each cName In rSource
strNom = cName.Value 'Récupere la valeur à chercher
Set rDest = wksProj.Range("B:B" )
Set c = rDest.Find(strNom)
If c Is Nothing Then
wksProj.Cells(65535, 2).End(xlUp).Offset(1, -1) = cName.Cells(1, 0)
wksProj.Cells(65535, 2).End(xlUp).Offset(1, 0) = cName.Cells(1, 1)
wksProj.Cells(65535, 2).End(xlUp).Offset(0, 2) = 100
wksProj.Cells(65535, 2).End(xlUp).Offset(0, 3) = cName.Cells(1, 3)
Else
cName.Offset(0, 2).Copy c.Offset(0, 3)
End If
Next cName
la ligne cName.Offset(0, 2).Copy c.Offset(0, 3) ne fait pas ce que j'ne attends. Quelqu'un peut m'aider à dire où se trouve le bug? Merci.
la feuil2 est parcouru et pour chaque code de feuil2, une recherche est faite dans feuil1.
Si le code corrsepondant est trouvé dans feuil2 alors