Bonsoir,
Je rameeee!
En fait je débute sur Excel.
Voila mon souci:
Si "TP" en colonne A sur feuilles A et B, alors les lignes concernées sont copiées en feuille C.
Voici un code trouvé sur le net, mais que n'arrive pas a adapter a mon classeur.
Private Sub Worksheet_Activate()
'fait par willy
Sheets("Commande").Range("A7:H6845").ClearContents
li = Sheets("Données").Range("B7").End(xlDown).Row
If Sheets("Données").Range("B7") = "" Then MsgBox "Pas de données saisies!", vbCritical: Exit Sub
If Sheets("Données").Range("B8") = "" Then li = 7
ligne = 7
For i = 7 To li
If UCase(Sheets("Données").Range("A" & i)) = "X" Then
Cells(ligne, 1) = Sheets("Données").Cells(i, 2)
Cells(ligne, 2) = Sheets("Données").Cells(i, 3)
Cells(ligne, 3) = Sheets("Données").Cells(i, 4)
Cells(ligne, 5).FormulaR1C1 = "=RC[-1]*RC[-2]"
ligne = ligne + 1
End If
Next
Range("D7").Select
End Sub
Merci pour votre aide à tous