Discussion :

[bastienb1]

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

[jfontaine]

Bonjour,

à part que j'ai un décallage d'une colonne à chaque fois

Dans la copie le décalage? ou ailleurs?

[bastienb1]

En gros, j'ai ma cellule active, et il copie la cellule qui est à côté.

C'est bon, j'ai essayé de mettre

Code :

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

1
2
3
If Cel.Offset(0, c-1) = "U" Or Cel.Offset(0, c-1) = "L" Then
au lieu de
 If Cel.Offset(0, c) = "U" Or Cel.Offset(0, c) = "L" Then

et ça a l'air d'aller. J'ai pas compris pourquoi mais bon c'est pas grave

[nibledispo]

bonjour,

c'est tout simplement que l'offcet ne sert à rien puisque l'instruction for fait elle même l'incrémentation de "cel".

cordialement.