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 :
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
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
Partager