Macro copier tableau avec plusieurs critères

Marsh Posté le 25-06-2015 à 14:13:11

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 !

Reply

Marsh Posté le 25-06-2015 à 14:13:11

Reply

Marsh Posté le 25-06-2015 à 14:50:42

Bonjour,

utiliser les filtres ou un filtre avancé …

Reply

Marsh Posté le 25-06-2015 à 15:00:03

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

Reply

Marsh Posté le 25-06-2015 à 15:17:39

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.

Reply

Marsh Posté le 25-06-2015 à 15:54:25

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 ?

Reply

Marsh Posté le 25-06-2015 à 17:28:07

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) …

Reply

Macro copier tableau avec plusieurs critères

Sujets relatifs:

Leave a Replay