Discussion :

[beebe]

Bonjour,

Moi j'ai un peu le même problème si j'ai bien compris : je voudrais copier une partie de ligne déterminée après recherche par boucle dans une colone.

Mon problème pour le copier coller c'est la syntaxte pour déterminer cette plage : la cellule qui défini la ligne est appelée par Range ("C" & i) et je voudrais copier de la colone D à H...

Voilà mon code, avec la ligne en rouge qui pose problème:

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
Sub recherche_service()

    Sheets("Liste projets").Select
    Sheets("Liste projets").Range("A65535").End(xlUp).Select
        If ActiveCell.Offset(0, 4).Value = "Conseil Général" Then
        Département = ActiveCell.Offset(0, 3).Value
        End If
     
    Sheets("Liste des organismes").Select
        For i = 7 To 34
            If Range("C" & i).Value = Département Then
            ActiveCell.Range("C" & i).Select
            Range("D & i : H & i").Copy
            Sheets("Liste projets").Select
            ActiveSheet.Paste Destination:=Worksheets("Liste projets").Range("A10")
            End If
        Next i
      
    Sheets("Liste projets").Select
    
    
    
End Sub

si quelqu'un peut nous aider...

BIBI

[Le Pierre]

bonjour

modifie ton code ainsi :

Code :

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

1
2
'ActiveCell.Range("C" & i).Select
Range("D" & i & ":H" & i).Copy

à plus