Discussion :

[Potzo]

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

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

Merci d'avance

[zyhack]

Bonjour

essaye en enlevant le .value

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C.Copy Destination:=Tabelle1.Range("C3:C")

[Potzo]

Ca m'affiche une erreur : Erreur 1004 : La methode range pour l'objet Worksheet est inadaptee ou interdite (tout depend de la traduction, mon word est en allemand)

[zyhack]

re

j'ai ajouté la gestion de la ligne ou écrire

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
Sub Copie()
Dim c As Range
Dim Tabelle1 As Worksheet
Dim Datenbasis As Worksheet
Dim ligne As Integer
Set Datenbasis = Worksheets("Datenbasis IST-Stunden")
Set Tabelle1 = Worksheets("Tabelle1")
ligne = 3
    For Each c In Datenbasis.Range("F2:F" & Datenbasis.Cells(Rows.Count, 6).End(xlUp).Row)
        If c.Interior.Color = 10092543 Then
        c.Copy Destination:=Tabelle1.Cells(ligne, 3)
        ligne = ligne + 1
        End If
    Next
 
Set Datenbasis = Nothing
Set Tabelle1 = Nothing
End Sub

[Potzo]

Merci, ca marche nickel =]