Macro copier tableau avec plusieurs critères

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro copier tableau avec plusieurs critères

sotto16

Bonjour à tous,

Je vous explique mon problème :
J'ai un tableau dans un onglet "Questions". J'aimerais copier, à partir d'une macro, automatiquement, ce tableau dans un onglet "Questionnaire" en fonction de plusieurs critères :
- colonne B = Principal / Detailed
- Colonne C = Key / Others
- Colonne M = Y / N

J'arrive à copier mon tableau lorsqu'il n'y a qu'un seul critère (fichier ci-joint), mais je n'arrive pas à adapter mon code lorsque j'ai besoin de prendre en compte plusieurs critères.

fichier : https://www.dropbox.com/s/46sdza1qd [...] e.xls?dl=0

Merci beaucoup pour votre aide !

Publicité

Marc L

Bonjour,

utiliser les filtres ou un filtre avancé …

sotto16

Le but est de ne pas avoir à intervenir sur le tableau par les filtres et de le recopier automatiquement, avec les bons critères

Marc L

Comme les filtres simplifient le code, sont redoutables d'efficacité et désactivables, dommage de s'en passer !
Sinon c'est l'usine à gaz classique : boucle pour parcourir les lignes, tests conditionnels puis copie …

Conformément aux règles de ce forum, merci de poster le code entrepris via l'icône dédiée pour le baliser.

sotto16

Voici pour l'instant mon code, qui ne me permet que de prendre en compte un seul critère :

Code :

Sub Bouton1064_Cliquer()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("First" ).Activate 'feuille de destination
Col = "M" ' colonne données non vides à tester'
NumLig = 6 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("Questions" ) ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 6 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Value <> "N" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("First" ).Cells(NumLig, 1).Insert Shift:=xlDown
'ici pour insérer ou .Paste pour coller'
End If
Next
End With
End Sub

J'aimerais juste savoir comment intégrer plusieurs critères, ou conditions, à ce code s'il vous plait ?

Marc L

Soit avec une cascade de lignes de code If … Then

soit en combinant au sein de la ligne If … Then les conditions avec les opérateurs And / Or (cf aide VBA) …

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro copier tableau avec plusieurs critères

Sujets relatifs
VBA sélectionner contenus de plusieurs fichiers excel	Liste utilisateur AD fonction de plusieurs criteres
Ajout de variables dans un tableau	tableau outofBound
macro pour copier coller lignes	[résolu] Modification valeur tableau bidimentionnel
Formulaire de devis en PHP sur plusieurs pages web ?
Plus de sujets relatifs à : Macro copier tableau avec plusieurs critères

Page générée en 0.037 secondes