Discussion :

[Invité]

Bonjour.
Je suis actuellement au travail et je me trouve en difficulté devant un problème.
Je dois extraire d'une base de donnée excel certaines lignes qui contiennent le terme ZODIAC.
Pour ce faire je me suis servi de If
Je trouve la donnée, copie la ligne. Je selectionne ensuite la 2nd feuille et demande de coller en rajoutant une ligne à chaque fois mais la fonction paste refuse de fonctionner :/
Il doit y avoir une autre méthode.

Voici mon code :

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
16
17
18
19
Sub Macro2()
 
Sheets("sheet1").Select
ligne = 64
 
 
    Do Until ligne = 3062
        If Range("F" & ligne) = "0800ZODISOLI" Or Range("F" & ligne) = "0800ZODIACSOLIM" Then
            Rows(ligne).Copy
            Sheets("Feuille1").Select
            ligne_tableau = ligne - 63
            ActiveWorkbook.ActiveSheet.Range("A" & ligne_tableau).Select
            ActiveWorkbook.ActiveSheet.Paste
Sheets("Sheet1").select
        End If
        ligne = ligne + 1
    Loop
 
End Sub

Bon ben cela fonctionne sauf que mon tableau possède désormais d'ici espace. Je pense rajouter une bouche avec if is empty etc