[XL-2000] MACRO copie cellules avec condition si [Résolu]

[Killie]

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

[jfontaine]

Bonjour,

Si je comprend bien ton besoin,

pour copier uniquement de A à H

Code :

1
2
If .Cells(Lig, Col).Value = "oui" Then
   .Range("A" & Lig & ":H" & Lig).Copy

[Killie]

Merci.

J'ai un message qui m'indique : "erreur de compilation : erreur de synthaxe"

Est ce qu'il faut que j'ajoute le nom de l'onglet de destination à ce niveau ou bien l'erreur n'a-t-elle rien à voir ?

[ZebreLoup]

Il faut enlever le dernier guillemet dans la proposition de Jérome

[Killie]

Mille mercis !!!

Vous êtes trop forts !!!

Je vais abuser...

Encore une petite question...

Code :

If .Cells(Lig, Col).Value = "oui" Then...

Je souhaiterais ajouter : si la valeur = oui ou NC

J'ai essayé

Code :

If .Cells(Lig, Col).Value = "oui" or "NC" Then...

mais ça ne va pas....

Merci

[ZebreLoup]

n'oublie pas d'utiliser les balises de code :

Code :

If .Cells(Lig, Col).Value = "oui" or .Cells(Lig, Col).Value = "NC" Then

[Killie]

J'avais trouvé entre temps... mais merci quand même...