Salut arthur1952 et Hervé
voilà ce que j'ai mis et celà fonctionne
Public Sub sortie()
Dim c As Range
For Each c In Sheets('Feuil1').Range('C54:C60')'nom de la feuille dans E32
If c <> 'STOP PAS DE PIECE EN STOCK-' And c <> '' Then
With Workbooks('stock.xls').Sheets('stock')
.Range(.Columns('B:B').Find(c).Address(0, 0)).Offset(0, 3) = c.Offset(0, 3)
End With
End If
Next c
End Sub
Amicalement
Jean Marie
Message édité par: ChTi160, à: 25/04/2005 18:46
NewEdition
Herve
peux tu m'expliquer cette phrase
.Range(.Columns('B:B').Find(c).Address(0, 0)).Offset(0, 3) = c.Offset(0, 3)
merci d'avance
.range(.columns('B:B') je comprends plage de recherche
.find(c) valeur cherchée
.Address (0,0) ???????
.Offset(0,3) c'est bon
Merci d'avance
Jean Marie
Message édité par: ChTi160, à: 25/04/2005 18:56