Copier/coller des cellules sous condition - VB/VBA/VBS - Programmation
MarshPosté 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
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