XL 2013 Copier/coller sur une autres feuille avec condition

[tit32600]

Bonjour à tous,

Je souhaiterais coller les valeur de la colonne "C" de ma feuille "Stock", dans la colonne "B" de ma feuille "Armoire A" , si la valeur dans ma colonne "W" de ma feuille "Stock" est égale à "A".

Dans le fichier joint, j'ai créé une procédure VBA, mais je suis bloqué dans son fonctionnement

Merci encore de votre aide

tit32600

 

[cp4]

Bonsoir,

à tester, affecter la valeur est plus rapide que le copier/coller

Sub Bouton1_Cliquer()

   With Sheets("stock")
      Set plage = .Range("W3:W" & .Range("W65000").End(xlUp).Row)
      For Each c In plage
         If c.Value = "A" Then
            X = Sheets("Armoire A").Range("B65000").End(xlUp).Row + 1
            Sheets("Armoire A").Cells(X, 2) = c.Offset(0, -20).Value
         End If
      Next
   End With
End Sub

Bonne soirée

 

[tit32600]

Salut cp4,

Cool merci encore, cela me convient tout à fait.

Passe de bonnes fetes

tit32600