MACRO copie cellules avec condition si
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:
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 |
