J
julie
Guest
bonjour a tous
que dois-je rajouter a ce code pour augmenter le nombre d'hypotheses. je m'explique ce code retire toute ligne qui contient le chiffre '500' pour les coller sur une autre feuille. je voudrais qu'il retire aussi les lignes avec le chiffre '800' et '1000'
pouvez vous me dire comment ca s'ecrit
merci
Option Explicit
Dim X, Y, Z As Integer
Sub SelectionCopier()
Application.ScreenUpdating = False
For X = 1 To 65536
If Worksheets('Feuil5').Cells(X, 1) = '500' Then
Z = Worksheets('Feuil1').Range('A65536').End(xlUp).Row + 1
For Y = 1 To 6
Worksheets('Feuil1').Cells(Z, Y) = Worksheets('Feuil5').Cells(X, Y)
Next
End If
Next
Application.ScreenUpdating = True
End sub
que dois-je rajouter a ce code pour augmenter le nombre d'hypotheses. je m'explique ce code retire toute ligne qui contient le chiffre '500' pour les coller sur une autre feuille. je voudrais qu'il retire aussi les lignes avec le chiffre '800' et '1000'
pouvez vous me dire comment ca s'ecrit
merci
Option Explicit
Dim X, Y, Z As Integer
Sub SelectionCopier()
Application.ScreenUpdating = False
For X = 1 To 65536
If Worksheets('Feuil5').Cells(X, 1) = '500' Then
Z = Worksheets('Feuil1').Range('A65536').End(xlUp).Row + 1
For Y = 1 To 6
Worksheets('Feuil1').Cells(Z, Y) = Worksheets('Feuil5').Cells(X, Y)
Next
End If
Next
Application.ScreenUpdating = True
End sub