Bonjour
J'aurais besoin d'un coup de main
En effet je cherche a copier une celle d'une manière conditionnelle
d'un classeur A vers la 1ere celle vide d'un Classeur B
Merci d'avance . Voici un code que j'ai bricolé mais ca veut pas avancer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Copier()
Set Wb = thiworkbook
Set Wb2 = ThisWorkbook.Open(Filename:=ThisWorkbook.Path & "\Test.xlsm")
Set Sh = Wb2.Worksheet(1)
Wb.Activate
Dim i As Integer
For i = 5 To 10
If Range("F" & i).Value = "Non-Conforme M" Then
Range("F" & i).Copy
Wb2.Sh.Activate
Sh.Range("A5").End(xlDown).Offset(1).Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
End If
Next i
End Sub