bonjour,
En stage, je suis actuellement en train de développer une macro.
J'ai un petit problème avec la fonction Autofilter
Je filtre des données dans un fichier A pour les coller dans un fichier B.
Mon problème est le suivant :
Quand il n'y a pas de données dans ma selection filtré la suite de ma macro ne fonctionne pas, je voudrais donc créer un boucle permettant de la stopper ou de copier les données si il y en a.
J'ai écris le code suivant :
Set rngSelect = ActiveSheet.Range("A2:Z" & Range("A" & Rows.Count).End(xlUp).Row)
NumRowsFiltre = rngSelect.SpecialCells(xlVisible).Count - 1
If rngSelect.SpecialCells(xlVisible).Count - 1 = "=" Then
MsgBox "Pas de données à traiter"
Else
rngSelect.Copy
End If
Ce code ne fonctionne pas convenablement car il me copie toujours la première ligne qui est la ligne titre.
Quelqu'un a-t-il une idée pour vérifier la présence de données à partir de la ligne 2.
merci
En stage, je suis actuellement en train de développer une macro.
J'ai un petit problème avec la fonction Autofilter
Je filtre des données dans un fichier A pour les coller dans un fichier B.
Mon problème est le suivant :
Quand il n'y a pas de données dans ma selection filtré la suite de ma macro ne fonctionne pas, je voudrais donc créer un boucle permettant de la stopper ou de copier les données si il y en a.
J'ai écris le code suivant :
Set rngSelect = ActiveSheet.Range("A2:Z" & Range("A" & Rows.Count).End(xlUp).Row)
NumRowsFiltre = rngSelect.SpecialCells(xlVisible).Count - 1
If rngSelect.SpecialCells(xlVisible).Count - 1 = "=" Then
MsgBox "Pas de données à traiter"
Else
rngSelect.Copy
End If
Ce code ne fonctionne pas convenablement car il me copie toujours la première ligne qui est la ligne titre.
Quelqu'un a-t-il une idée pour vérifier la présence de données à partir de la ligne 2.
merci