Quand Excel 12 va arriver, toutes les macros utilisant un truc du genre:
Set Plage = Range("A1", Range("A65536").End(xlUp))
vont ignorer les lignes après 65536.
Je préfère utiliser:
Set Plage = Range("A1", Cells(Rows.Count, "A").End(xlUp))
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour, '------ Sub zz_Select() Lx = Cells.Find("*", [A1], 1, , 1, 2).Row Cx = Cells.Find("*", [A1], 1, , 2, 2).Column End Sub '------ [zz] tout le monde connaît cette signature Av a déjà prévu ;o) @+ JJ
"Ardus Petus" a écrit dans le message de news:
Quand Excel 12 va arriver, toutes les macros utilisant un truc du genre: Set Plage = Range("A1", Range("A65536").End(xlUp)) vont ignorer les lignes après 65536.
Je préfère utiliser: Set Plage = Range("A1", Cells(Rows.Count, "A").End(xlUp))
(J'ai trouvé ça sur d'autres forums)
Cordialement, -- AP
Bonjour,
'------
Sub zz_Select()
Lx = Cells.Find("*", [A1], 1, , 1, 2).Row
Cx = Cells.Find("*", [A1], 1, , 2, 2).Column
End Sub
'------
[zz] tout le monde connaît cette signature
Av a déjà prévu ;o)
@+
JJ
"Ardus Petus" <ardus.petus@laposte.net> a écrit dans le message de news:
uqD5fzQQGHA.3272@tk2msftngp13.phx.gbl...
Quand Excel 12 va arriver, toutes les macros utilisant un truc du genre:
Set Plage = Range("A1", Range("A65536").End(xlUp))
vont ignorer les lignes après 65536.
Je préfère utiliser:
Set Plage = Range("A1", Cells(Rows.Count, "A").End(xlUp))
Bonjour, '------ Sub zz_Select() Lx = Cells.Find("*", [A1], 1, , 1, 2).Row Cx = Cells.Find("*", [A1], 1, , 2, 2).Column End Sub '------ [zz] tout le monde connaît cette signature Av a déjà prévu ;o) @+ JJ
"Ardus Petus" a écrit dans le message de news:
Quand Excel 12 va arriver, toutes les macros utilisant un truc du genre: Set Plage = Range("A1", Range("A65536").End(xlUp)) vont ignorer les lignes après 65536.
Je préfère utiliser: Set Plage = Range("A1", Cells(Rows.Count, "A").End(xlUp))