Discussion :

[chouki60]

Bonjour,

J'ai creé un tableau dans un onglet appellé "feuil1" et ma derniere colonne est une question, si la réponse est oui je souhaite que toute ma ligne se coupe et se copie dans un autre onglet -appellé "oui"-. Cet onglet à le même tableau que le précedent.

Comment puis-je faire?

Merci beaucoup

[CodeFacile]

Bonjour,

Il faut décomposé les choses simplement , voici les étapes :

1)On compte le nombre de ligne de la feuil1
2) On fait une boucle sur chacune de ces lignes.
Pour chacunes des lignes , on teste la colonne condition
-Si la condition est à Oui , on recopie dans le feuillet 'oui' et on incrémente le compteur pour connaitre le nombre de lignes du feuillet 'oui'
Exemple de code ( je n'ai pas testé , il peut y avoir des erreurs de syntaxe):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
nb_lig_feuil1 = range ("A1").currentregion.rows.count
 
ligne_feuil_oui = 2  ' on démarre à la ligne 2
for ligne = 2 to nb_lig_feuil1
  if worksheets ("Feuil1").cells ( ligne , col_condition).value = "oui" then 
     for col = 1 to  col_condition
       worksheets ("oui").cells ( ligne_feuil_oui , col).value = worksheets ("Feuil1").cells ( ligne , col).value 
   next col 
 
ligne_feuil_oui  = ligne_feuil_oui  + 1
 
next ligne

[Fvandermeulen]

Bonjour,
Voici une autre proposition avec une autre méthode pour détecter la dernière ligne (désolé codefacile) mais j'aime pas trop le 'currentregion.rows.count'; en effet imaginons un tableau de 3000 lignes dont les 600 dernières ne sont pas égales à 'oui' on va passer en revue les 600 dernières pour rien...
J'ai aussi ajouter la détection de la dernière colonne puisque c'est celle là qui contient le fameux 'oui' et donc le compte du nombre de ligne sur base sur cette colonne.
Autre précision que j'ai indiqué en commentaire dans le code, Oui est différent de oui, il faut donc gérer la casse pour être certain de bien copier tous les oui...
Et pour finir, j'ai préféré la méthode de Copy au ballayage des colonnes pour affectation (ça me semble plus rapide) que deux boucles imbriquées (mais ton exemple est bon même si j'ai pas testé non plus )

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
Sub CopieOui()
Dim NbCol As Long, NbLig As Long, r As Long, LigCible As Long
 
NbCol = Sheets("Feuil1").Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column 'Récupère le n° de la dernière colonne
NbLig = Sheets("Feuil1").Cells(Columns(NbCol).Cells.Count, NbCol).End(xlUp).Row 'Récupère le N° de la dernière ligne de la dernière colonne
LigCible = 1 'Débute à 1 car incrémentation à la première condition vrai; ceci veut dire qu'on écrase à chaque relance de la macro !!!
 
For r = 2 To NbLig 'de 2 à la dernière ligne de la dernière colonne remplie (de 2 car titre)
    If UCase(Sheets("Feuil1").Cells(r, NbCol)) = "OUI" Then 'Attention à la casse Oui <> oui, donc on passe le contenu de la cellule vérifier en majuscule: Ucase(...)
        LigCible = LigCible + 1 'Incrémentation de la ligne cible pour le collage
        Sheets("Feuil1").Rows(r).Copy Destination:=Sheets("Oui").Cells(LigCible, 1) 'Copie de la ligne entière
    End If
Next r 'Passage à la ligne suivante
 
End Sub

A+

P.S. Comme je l'ai indiqué en commentaire dans le code, le fait de définir la première ligne cible comme étant la N°2 implique qu'à chaque lancement de la macro ça recopiera sur les copie précédentes.