Pb vba xl

Natoush -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Nouvelle en vba, je cherche une petite programmation pour le boulot.
Je cherche à copier une feuille xl vers une nouvelle feuille.
(pour ça, ok)
ensuite dans cette feuille, je veux cacher (voir supprimer) toutes les lignes contenant "td" en colonne D.
Je pense être bien partie dans mon codage, mais impossible de faire tourner correctement la macro.
Quelqu'un pourrait-il me débugger ce code?
Merci!



Sub thomas()
Dim x As Integer
x = 4
Dim y As Integer
y = 2
If Sheets(1).Cells(x, y).Value = "td" Then
Cells(x, y).EntireRow.Hidden = True
End If

Do
x = 4
y = y + 1

If Sheets(1).Cells(x, y).Value = "td" Then
Cells(x, y).EntireRow.Hidden = True
End If
Loop Until y = 6


End Sub

1 réponse

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

Oui si tu nous où ça bug !!! Ainsi que la ligne et le message d'erreur s'il y en a un.

Merci

;o)
0