Bonjour a tous.
J ai la macro suivante donnee par Pierre Jean, que je remercie d ailleur)
Sub cherche()
'balayage de la colonne A de la feuille 1 de la ligne 2 a la derniere non vide
For n = 2 To Sheets("Simple Invoice").Range("B65536").Range("B11").Row
'recherche de la valeur dans la colonne 1 de la feuille 2 Set c = Sheets("stock").Columns(1).Find(Sheets("Simple Invoice").Range("B11" & n).Value, LookIn:=xlValues, lookat:=xlWhole)
'Si touvé
If Not c Is Nothing Then
'copie de la zone B :E meme ligne que trouvée dans la feuille 1 colonne B 'Sheets("Sheet1").Range("C" & n) = c.Offset(0, 2)
Sheets("stock").Range("B" & c.Row & ":EB" & c.Row).Copy Destination:=Sheets("Simple Invoice").Range("B" & n)
End If
Next n
End Sub
J aimerais que la phrase ecrite en rouge soit transformer pour que cela ne fasse plus qu un balayage sur une cellule, feuille "Simple Invoice", range ("B11")
J espere que mon probleme vient de la...
J espere aussi avoir ete claire!
Je vous remerci de vos reponses..
Bonne journee
J ai la macro suivante donnee par Pierre Jean, que je remercie d ailleur)
Sub cherche()
'balayage de la colonne A de la feuille 1 de la ligne 2 a la derniere non vide
For n = 2 To Sheets("Simple Invoice").Range("B65536").Range("B11").Row
'recherche de la valeur dans la colonne 1 de la feuille 2 Set c = Sheets("stock").Columns(1).Find(Sheets("Simple Invoice").Range("B11" & n).Value, LookIn:=xlValues, lookat:=xlWhole)
'Si touvé
If Not c Is Nothing Then
'copie de la zone B :E meme ligne que trouvée dans la feuille 1 colonne B 'Sheets("Sheet1").Range("C" & n) = c.Offset(0, 2)
Sheets("stock").Range("B" & c.Row & ":EB" & c.Row).Copy Destination:=Sheets("Simple Invoice").Range("B" & n)
End If
Next n
End Sub
J aimerais que la phrase ecrite en rouge soit transformer pour que cela ne fasse plus qu un balayage sur une cellule, feuille "Simple Invoice", range ("B11")
J espere que mon probleme vient de la...
J espere aussi avoir ete claire!
Je vous remerci de vos reponses..
Bonne journee