OVH Cloud OVH Cloud

parcourir une colonne

2 réponses
Avatar
arkangel
Bonjour,
j'ai une feuille excel dont je ne connai pas sa longueur.
Comment faire pour savoir quelle est la derniere colonne
ecrite.
Ex si ma derniere colonne est a200 qu'il me le dise
les données peuvent être du texte ou des chiffre en aucun cas
une cellule vide
Merci

2 réponses

Avatar
michdenis
Bonjour arkangel,


On Error Resume Next
'Dernière colonne de la feuille2
DerCol = Worksheets("Feuil2").UsedRange.Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
On Error GoTo 0
'Dernière ligne de la feuille2
DerLig = Worksheets("Feuil2").UsedRange.Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
On Error GoTo 0


Salutations!


"arkangel" a écrit dans le message de
news:
Bonjour,
j'ai une feuille excel dont je ne connai pas sa longueur.
Comment faire pour savoir quelle est la derniere colonne
ecrite.
Ex si ma derniere colonne est a200 qu'il me le dise
les données peuvent être du texte ou des chiffre en aucun cas
une cellule vide
Merci
Avatar
arkangel
"michdenis" écrivait
news::
Salut Michdenis
Merci c'est ce que chercher


Bonjour arkangel,


On Error Resume Next
'Dernière colonne de la feuille2
DerCol = Worksheets("Feuil2").UsedRange.Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
On Error GoTo 0
'Dernière ligne de la feuille2
DerLig = Worksheets("Feuil2").UsedRange.Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
On Error GoTo 0


Salutations!


"arkangel" a écrit dans le message
de

news:
Bonjour,
j'ai une feuille excel dont je ne connai pas sa longueur.
Comment faire pour savoir quelle est la derniere colonne
ecrite.
Ex si ma derniere colonne est a200 qu'il me le dise
les données peuvent être du texte ou des chiffre en aucun
cas

une cellule vide
Merci