VBA - limites ligne & colonne
Résolu
Tehani_t
Messages postés
245
Statut
Membre
-
Tehani_t Messages postés 245 Statut Membre -
Tehani_t Messages postés 245 Statut Membre -
Bonjour,
Dans Excel il y a un certain nombre de ligne et de colonne.
En VBA, comment peut on traduire ce qui suit :
Do
....
loop until "on a atteint la limite en ligne"
ET
Do
....
loop until "on a atteint la limite en colonne"
Merci par avance !
Dans Excel il y a un certain nombre de ligne et de colonne.
En VBA, comment peut on traduire ce qui suit :
Do
....
loop until "on a atteint la limite en ligne"
ET
Do
....
loop until "on a atteint la limite en colonne"
Merci par avance !
7 réponses
-
le nombre de lignes d'une feuille est de 65536 et le nombre de colonnes de 256
on peut récupérer ces valeurs (pour la feuille 1) avec
nbli = Worksheets(1).Rows.Count
nbco = Worksheets(1).Columns.Count
on peut denombrer de même le nombre de lignes et de colonnes d'une plage
je ne sais pas si ça répond à la question -
Merci !!
est ce différent de Sheets("mafeuil").Usedrange.rows.count ? -
oui
UsedRange définit la plage utilisée dans la feuille de calcul -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Y a til une autre fonction plus sure que celles citées précédemment. Quand je trace un tableau, la boucle parcours tout le tableau même si les lignes ne sont pas renseignées ??
-
- je suppose que ton tableau est une plage de la feuille de calcul
- parcourir une plage (ou un tableau) fait obligatoirement passer par toutes les cellules de la plage, on peut éventuellement en tester le contenu pour déclencher une action
- j'ai besoin de quelques explications supplémentaires pour aller plus loin (comment se présente la feuille, que veux tu faire faire à VB et peut être la partie du code qui pose problème) -
Bonjour,
Un petit essai...
Sub LesDer() Dim DerCel As Range Dim DerCol As Long, DerLig As Long DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row DerCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column Set DerCel = Cells(DerLig, DerCol) MsgBox "La dernière ligne utilisé est la ligne : " & DerLig MsgBox "La dernière colonne utilisée est la colonne : " & DerCol MsgBox DerCel.Address End Sub
Bonne journée