Discussion :

[tibam13]

Je tente sans succès d'effectuer l'opération suivante :

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
20
21
22
Sub copie()
 
nombrejours2 = Cells(3, 2).Value
j = 2
k = 3
 
For i = 1 To nombrejours2
If Worksheets("Données").Cells(j, 10).Value = "Férié" Then
Worksheets("Feuil3").Cells(5, k).FormulaR1C1 = CStr(Worksheets("Données").Cells(j, 7).Value) & " " & CStr(Left(Worksheets("Données").Cells(j, 9).Value, 5))
Worksheets("Feuil3").Activate
Worksheets("Feuil3").Range(Cells(6, k), Cells(17, k)).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
       .Color = 65535
       End With
Else
Worksheets("Feuil3").Cells(5, k).FormulaR1C1 = CStr(Worksheets("Données").Cells(j, 7).Value) & " " & CStr(Left(Worksheets("Données").Cells(j, 9).Value, 5))
End If
j = j + 1
k = k + 1
Next
End Sub

cela ne fonctionne que si j'enlève Worksheets("Feuil3").Range(Cells(6, k), Cells(17, k)).Select du code pourtant la syntaxe me parait juste, je ne comprends pas ce qui bloque (erreur 1004)

merci pour votre aide !

p.s. en fait je copie colle des données d'une feuille à l'autre et si je tombe sur un mot clé je veux colorer quelques cellules déterminées

[ARTURO83]

Bonjour,

Il faudrait écrire:

Code :

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

Range(Worksheets("Feuil3").Cells(6, k), Worksheets("Feuil3").Cells(17, k)).Select

Votre code revisité:

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
20
21
22
23
Sub copie()
    Set f1 = Sheets("Données")
    Set f2 = Sheets("Feuil3")
    nombrejours2 = Cells(3, 2).Value
    j = 2
    k = 3
 
    For i = 1 To nombrejours2
        If f1.Cells(j, 10).Value = "Férié" Then
            f2.Cells(5, k).FormulaR1C1 = CStr(f1.Cells(j, 7).Value) & " " & CStr(Left(f1.Cells(j, 9).Value, 5))
            With Range(f2.Cells(6, k), f2.Cells(17, k)).Interior
                .PatternColorIndex = xlAutomatic
                .Color = 65535
            End With
        Else
            f2.Cells(5, k).FormulaR1C1 = CStr(f1.Cells(j, 7).Value) & " " & CStr(Left(f1.Cells(j, 9).Value, 5))
        End If
        j = j + 1
        k = k + 1
    Next
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

[Menhir]

cela ne fonctionne que si j'enlève Worksheets("Feuil3").Range(Cells(6, k), Cells(17, k)).Select du code pourtant la syntaxe me parait juste, je ne comprends pas ce qui bloque (erreur 1004)

Même problème (et même solution) que ce qui est décrit ici : https://www.developpez.net/forums/d2...ligne-couleur/