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
Partager