Problème pour copier des lignes ExcelRésolu/Fermé

Question

Bonjour,  

J'ai 2 feuilles excel 1 et 2 :  
Je veux utiliser une fonction qui permet de chercher le mot "DEPASSEMENT" dans une colonne de la feuille2 et s'il existe je veux copier toutes les lignes qui contiennent ce mot dans la feuille1.  
Prière si quelqu'un peut m'aider à résoudre ce problème.  



Configuration: Windows XP / Internet Explorer 7.0

tibouuh · Answer

Salut,

j'ai 2 solutions à te proposer.
j'espère qu'au moins une des 2 te conviendra...?!

en supposant que la colonne dans laquelle le mot "DEPASSEMENT" se trouve est la colonne A de Feuil2.

la méthode sans macro :
dans la cellule A1 de Feuil1, tape la formule suivante :
=SI(Feuil2!$A1="DEPASSEMENT";SI(Feuil2!A1<>"";Feuil2!A1;"");"")
tire la cellule sur le nombre de colonnes nécessaires
puis tire la ligne ainsi obtenue sur le nombre de lignes nécessaires.

la méthode avec macro :
Sub copie()

Application.ScreenUpdating = False

Dim cellule As Range
Dim ligne As String

For Each cellule In Worksheets("Feuil2").Range("A1:A65536")
    Worksheets("Feuil2").Activate
    If cellule.Value = "DEPASSEMENT" Then
        If IsEmpty(Worksheets("Feuil1").Range("A65536").End(xlUp)) Then
            Rows(cellule.Row).Copy
            Worksheets("Feuil1").Activate
            Worksheets("Feuil1").Range("A65536").End(xlUp).Select
            ActiveSheet.Paste
            Else
                Rows(cellule.Row).Copy
                Worksheets("Feuil1").Activate
                ligne = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
                Range("A" & ligne + 1).Select
                ActiveSheet.Paste
        End If
    End If
Next cellule
Application.CutCopyMode = False
Worksheets("Feuil1").Activate

End Sub

avec la macro tu n'as que des lignes remplies en Feuil1.
tu peux l'avoir sans macro simplement en faisant un tri sans cellule vide.

tibouuh · Answer

re,

comme je te l'avais précisé (petite erreur de vocabulaire de ma part dans le message précédent tout de même, désolé), tu peux les masquer en utilisant un filtre.
il suffit alors de décocher la case "Vides".

tibouuh · Answer

de rien ^^
si ton problème est réglé, pense à changer le statut de la discussion en "résolu".
ciao

Problème pour copier des lignes Excel

3 réponses

Newsletters