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
anonymousA
Bonjour,
je ne vois pas bien en quoi le problème n'a pas déjà été traité maintes fois sur ce forum. Mais bon,
On Error Resume Next With Cells Lxfin = .Find("*", [A1], xlFormulas, , xlByRows, xlPrevious).Row Cxfin = .Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column End With
if err.number=0 then range(cells(4,1),cells(Lxfin,Cxfin)).select
A+
Bonjour,
je ne vois pas bien en quoi le problème n'a pas déjà été traité
maintes fois sur ce forum. Mais bon,
On Error Resume Next
With Cells
Lxfin = .Find("*", [A1], xlFormulas, , xlByRows, xlPrevious).Row
Cxfin = .Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column
End With
if err.number=0 then range(cells(4,1),cells(Lxfin,Cxfin)).select
je ne vois pas bien en quoi le problème n'a pas déjà été traité maintes fois sur ce forum. Mais bon,
On Error Resume Next With Cells Lxfin = .Find("*", [A1], xlFormulas, , xlByRows, xlPrevious).Row Cxfin = .Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column End With
if err.number=0 then range(cells(4,1),cells(Lxfin,Cxfin)).select
