Copier/coller des cellules sous condition

Copier/coller des cellules sous condition - VB/VBA/VBS - Programmation

Marsh Posté le 08-05-2010 à 13:48:26    

Bonjour à tous,  
J'ai besoin de mettre en place une macro qui permet de recopier les données de la colonne u du classeur B vers le classeur A (à la colonne Ap), à chaque fois qu'il retrouvera la ref du classeur A ds le classeur B.  Je bloque au niveau du code. quelqu'un pourrait il m'aider?
Voici le code que j'ai essayé de mettre en place.  
Sub contrepartie()
Dim i As Integer
Dim j As Integer
i = 2
Worksheets("rappro det" ).Activate
 
    For i = 2 To 100
         If ThisWorkbook.Worksheets("rappro det" ).Cells(i, 5).Value = ThisWorkbook.Worksheets("test" ).Cells(i, 5).Value Then
           Worksheets("test" ).Range("e" & i).Copy
           Worksheets("rappro det" ).Select
           Worksheets("rappro det" ).Cells(j, 42).Select
           ActiveSheet.Paste
           j = j + 1
        End If
    Next i
End Sub
 
Merci d'avance pour votre aide.....
 
Édité par Elmoricq : les titres tout en majuscules sont prohibés (cf. règles)


Message édité par Elmoricq le 08-05-2010 à 13:52:09
Reply

Marsh Posté le 08-05-2010 à 13:48:26   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed