Copier coller à la suite VBA
Fermé
Stevou
-
20 oct. 2011 à 12:57
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 20 oct. 2011 à 13:44
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 20 oct. 2011 à 13:44
A voir également:
- Macro copier coller à la suite
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Style d'écriture a copier coller - Guide
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
Modifié par Patrice33740 le 20/10/2011 à 13:25
Modifié par Patrice33740 le 20/10/2011 à 13:25
Range("A65536").Offset(1, 0).End(xlUp).Select
C'est comme
Range("A65537").End(xlUp).Select
c'est une cause d'erreur sur un fichier .xls (mais pas sur un xlsx), il faudrait écrire :
Range("A65536").End(xlUp).Offset(1, 0).Select
et pour un xlsx :
Range("A1048576").End(xlUp).Offset(1, 0).Select
plus universel :
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Je préfère utiliser un objet Range :
Dim rng As Range
Set rng = ActiveSheet.Columns("A").Find("*", , , , , xlPrevious)
If Not rng Is Nothing Then
Set rng = rng.Offset(1, 0)
' ....
End If
Cordialement
Patrice
C'est comme
Range("A65537").End(xlUp).Select
c'est une cause d'erreur sur un fichier .xls (mais pas sur un xlsx), il faudrait écrire :
Range("A65536").End(xlUp).Offset(1, 0).Select
et pour un xlsx :
Range("A1048576").End(xlUp).Offset(1, 0).Select
plus universel :
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Je préfère utiliser un objet Range :
Dim rng As Range
Set rng = ActiveSheet.Columns("A").Find("*", , , , , xlPrevious)
If Not rng Is Nothing Then
Set rng = rng.Offset(1, 0)
' ....
End If
Cordialement
Patrice
20 oct. 2011 à 13:28
la boucle Do Until bla bla semble également inutile...
A supprimer!
20 oct. 2011 à 13:44
Je suis entièrement d'accord avec toi.
Je dirais même qu' il faudrait tout ré-écrire en utilisant des objets pour pour désigner l'origine et la cible sans ambigüité et éviter les Select et Activate inutiles.
20 oct. 2011 à 13:44