Bonjour,
Je travail sur un fichier que je voudrais automatiser.
Le code qui suit est sensé copier/coller de la feuille "polyvalence uap multi" vers la feuille "liste opérateurs" les nom/prénoms des opérateurs lorsque la cellule de la colonne sélectionnée est soit L soit U.
Ca marche, à part que j'ai un décallage d'une colonne à chaque fois, je ne comprends pas pourquoi... quelqu'un peut m'aider?

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
Dim WsC As Worksheet
Dim Derlig As Long, i As Long
Dim Cel As Range, CelInit As Range
Dim c As Long
Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
c = ActiveCell.Column
    Set WsC = ThisWorkbook.Worksheets("Liste opérateurs")
    Set CelInit = WsC.Range("B8")
    FeuilleOpérateurs
    With Worksheets("Polyvalence uap Multi")
        Derlig = .Range("A" & Rows.Count).End(xlUp).Row
        For Each Cel In .Range("A6:A" & Derlig)
            If Cel.Offset(0, c) = "U" Or Cel.Offset(0, c) = "L" Then
                Cel.Copy CelInit.Offset(i, 0)
                i = i + 1
            End If
        Next Cel
    End With
end sub
Merci
Bastien