chinel
XLDnaute Impliqué
Bonjour, j'ai un souci avec ma macro voici le code:
Le problème c'est que j'ai un doublon et je n'arrive pas à le supprimer et aussi je désire qu'on copie seulement les valeurs; Merci
Sub test()
Dim c As Variant
Dim F1, F2 As Worksheet
Set F1 = Worksheets("Feuil1")
Set F2 = Worksheets("Feuil3")
Application.ScreenUpdating = False
For Each c In F1.Range("D7:AH7")
If c <> "" Then
F2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = c.Offset(-1, 0)
c.Copy Destination:=F2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next c
Application.ScreenUpdating = True
End Sub
Le problème c'est que j'ai un doublon et je n'arrive pas à le supprimer et aussi je désire qu'on copie seulement les valeurs; Merci
Sub test()
Dim c As Variant
Dim F1, F2 As Worksheet
Set F1 = Worksheets("Feuil1")
Set F2 = Worksheets("Feuil3")
Application.ScreenUpdating = False
For Each c In F1.Range("D7:AH7")
If c <> "" Then
F2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = c.Offset(-1, 0)
c.Copy Destination:=F2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next c
Application.ScreenUpdating = True
End Sub