Bonjour,
J'ai une colonne dans laquelle je veux recuperer certains elements (qui sont tous en jaune) afin de les copier dans une autre feuille les uns a la suite des autres.
Pour le moment, j'ai ecris cela, mais ca me met une erreur au niveau du c.value.copy
Merci d'avance
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
17
18
19 Sub Copie() Dim c As Range Dim Tabelle1 As Worksheet Dim Datenbasis As Worksheet Set Datenbasis = Worksheets("Datenbasis IST-Stunden") Set Tabelle1 = Worksheets("Tabelle1") For Each c In Datenbasis.Range("F2:F" & Datenbasis.Cells(Rows.Count, 6).End(xlUp).Row) If Trim(UCase(c.Interior.Color)) = 10092543 Then c.Value.Copy Destination:=Tabelle1.Range("C3:C") End If Next Set Datenbasis = Nothing Set Tabelle1 = Nothing End Sub
Partager