Bonjour,

Étant complètement débutant en VBA, je suis un peu perdu. En cherchant sur différents forums, j'ai réussi à composer quelque chose mais qui n'est pas totalement complet pour arriver à mes fins.

J'ai deux feuilles de calculs (Feuil1 et project) dans un fichier excel. J'ai un bouton dans la Feuil1 qui déclanche une action.

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
Private Sub CommandButton1_Click()
 
For i = 10 to Cells(Rows.Count, 3).End(xlUp).Row
 
        If Cells(i,3).Value = "XXX"
 
                With Sheets("project")
                .Activate
                .Range("A8:L" & .Range("L50").End(xlUp).Row).ClearContents
 
                Sheets("Feuil1").Range("C10:C").Copy Range("A8") ==> Copy/paste C10 de Feuil1 to A8 de project
                Sheets("Feuil1").Range("D10:C").Copy Range("B8") ==> Copy/paste D10 de Feuil1 to B8 de project
                Sheets("Feuil1").Range("G10:C").Copy Range("C8") ==> Copy/paste G10 de Feuil1 to C8 de project
                Sheets("Feuil1").Range("H10:C").Copy Range("D8") ==> Copy/paste H10 de Feuil1 to D8 de project
                Sheets("Feuil1").Range("M10:C").Copy Range("E8") ==> Copy/paste M10 de Feuil1 to E8 de project
                Sheets("Feuil1").Range("N10:C").Copy Range("F8") ==> Copy/paste N10 de Feuil1 to F8 de project
                Sheets("Feuil1").Range("V10:C").Copy Range("G8") ==> Copy/paste V10 de Feuil1 to G8 de project
                Sheets("Feuil1").Range("X10:C").Copy Range("L8") ==> Copy/paste X10 de Feuil1 to L8 de project
 
                End With
 
        End If
 
Next i
 
End Sub
Si la valeur de la cellule C10 = XXX, j'aimerais copier-coller certaines cellules de la même ligne dans d'autres cellules d'une autres feuilles (voir code pour comprendre).

Quelqu'un serait-il en mesure de m'indiquer ce qui ne va pas et ce qui manque ?

Merci d'avance pour votre aide