Bonjour,
J'ai écrit cette boucle :
Après certaines copies (une feuille avec des images et une cellule fusionnée), PremiereFeuille.UsedRange.Rows.Count ne retourne pas la bonne valeur. Avez-vous rencontré ce problème ?
Par avance, je vous remercie de vos réponses.
A bientôt
Guy Marty
PS : pour contourner ce problème j'ai remplacé "UsedRange.Rows.Count" par "UsedRange.SpecialCells(xlCellTypeLastCell).Row"
J'ai écrit cette boucle :
VB:
For Each Feuille In ActiveWorkbook.Worksheets 'Parcourt toutes les feuilles
If Feuille.Name <> PremiereFeuille.Name Then 'copie le contenu de chaque feuille sauf la première
Feuille.UsedRange.Copy
PremiereFeuille.Paste Destination:=PremiereFeuille.Range("A" & PremiereFeuille.UsedRange.Rows.Count + 1)
End If
Next
Après certaines copies (une feuille avec des images et une cellule fusionnée), PremiereFeuille.UsedRange.Rows.Count ne retourne pas la bonne valeur. Avez-vous rencontré ce problème ?
Par avance, je vous remercie de vos réponses.
A bientôt
Guy Marty
PS : pour contourner ce problème j'ai remplacé "UsedRange.Rows.Count" par "UsedRange.SpecialCells(xlCellTypeLastCell).Row"