Bonjour,

Après des heures de recherches et d'essais vains, j'ai trouvé ce site que je trouve super intéressant et j'en profite donc, pour vous exposer mon problème.
J'ai dans un classeur deux onglets (A, B).
Je souhaite que le premier onglet (A) soit un listing de certaines informations.
Ces informations (colonne A à H) seront copiées sur l'onglet B pour chaque ligne du 1er onglet qui a dans sa colonne I noté "oui".
Pour moi, la difficulté est de coller certaines cellules et non toute la ligne...
Un grand merci par avance à ceux qui voudront bien m'aider... Si vous en avez besoin, je peux apporter d'autres précisions. Encore merci.

Voilà ce que j'ai fait... mais qui me copie la ligne entière...
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
24
Sub Filtre()
 
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("B").Activate ' feuille de destination
 
  Col = "I"                 ' colonne de la donnée non vide à tester
  NumLig = 1
  With Sheets("A")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 2 To NbrLig
    If .Cells(Lig, Col).Value = "oui" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With
 
End Sub