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
Partager