Bonjour à vous tous,

J'aurai besoin de votre aide concernant une macro:

L'idée est de pouvoir lorsqu'une cellule de la colonne E comprend un caractère "x" , copier la cellule correspondant à la colonne B, C et D dans une autre feuille.

et boucler dessus après.

Voilà le bout de langage

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub cop_col()
On Error Resume Next
 
Dim l As Long
Dim derl As Long
 
derl = Worksheets("BILAN").Range("C" & Rows.Count).End(xlUp).Row
 
For l = 10 To derl
If Cells(l, 5) = "*x*" Then
Sheets("BILAN").Range("B" & ":D").Copy Sheets("commentaires pointage liasse").Range("B" & ":D").End(xlUp)(2)
End If
Next l
End Sub
En fait le problème c'est que ça ne fonctionne pas , ça me lance aucune erreur mais ça ne fonctionne pas