Discussion :

[Didpa]

Bonjour

Voila suite à un code, j'aimerais sélectionner une ligne afin de supprimer le contenu.
Cette ligne contient deux variable, et je n'arrive pas à le traduire en code

Worksheets("Didier").Cells(i + 7, 1: i + 7, 22).clearcontents
Merci d'avance.

Voici le code

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
24
25
26
27
28
29
30
31
Sub Valide_DidierTest()

'------------------------------------Rempli la feuil Recap------------------------------------------------
Sheets("Recap").Select
With Sheets("Recap")
 For i = 1 To 20
            
            Set c = .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row)(2)
    If Worksheets("Didier").Cells(i + 7, 1) = "" Then Exit For
      If Worksheets("Didier").Cells(i + 7, 16) = "OUI" Then
            c(1, 1) = Worksheets("Didier").Cells(1, 1) 'jour
            c(1, 2) = Worksheets("Didier").Cells(i + 7, 6) 'agent
            c(1, 3) = Worksheets("Didier").Cells(3, 7) 'e1
            c(1, 4) = Worksheets("Didier").Cells(3, 12) 'e2
            c(1, 5) = Worksheets("Didier").Cells(i + 7, 1) 'demandeur
            c(1, 6) = Worksheets("Didier").Cells(i + 7, 9) 'Tâche
            c(1, 7) = Worksheets("Didier").Cells(i + 7, 11) 'reference
            c(1, 8) = Worksheets("Didier").Cells(i + 7, 14) 'hd
            c(1, 9) = Worksheets("Didier").Cells(i + 7, 15) 'hf
            c(1, 10) = Worksheets("Didier").Cells(i + 7, 22) 'ht
     
Worksheets("Didier").Cells(i + 7, 1 : i + 7, 22).clearcontents
     
Else
     Worksheets("Didier").Cells(i + 7, 23) = Worksheets("Didier").Cells(1, 1)
     
         
            End If
        Next i
    End With
End Sub

[anasecu]

Bonjour

je n'arrive pas à le traduire en code

Comme ceci cela devrait le faire

Code :

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

Worksheets("Didier").Cells(i + 7, 1).resize(1, 22).clearcontents

[Didpa]

Merci Anasecu
Cela fonctionne.