Discussion :

[oscar.cesar]

bonjour
voila un truc encore je coince.

dans une feuil , jai des series de chiffre (1 chiffre par cellule)et 1 serie de chiffre par ligne

la longueur de chaque serie (donc le nb de colonne)est variable.
le nb de serie (donc le nb de lignes) est variable.

comme connaitre pour chaque serie la derniere colonne non vide afin d'exploiter dans le code cells(ligne, dercolonne)

merci

[scully2501]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Function chn() As String
'Fonction qui permet de retrouver la dernière cellule occupée
    Dim DerCell As Range
    Dim derLi, derCol
 
    On Error GoTo fin
    derLi = Cells.Find("*", [A1], , , 1, 2).row
    derCol = Cells.Find("*", [A1], , , 2, 2).Column
    Set DerCell = Cells(derLi, derCol)
 
    chn = DerCell.Address
 
    Exit Function
fin:
    Set DerCell = Cells(1, 1)
    chn = DerCell.Address
End Function

IL existe d'autre code plus simple mais j'ai que celui la en tête

[Pierre Fauconnier]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("a1").End(xlToRight)

renvoie la cellule qui précéde la première cellule vide de la ligne 1,en partant de A1, vers la droite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
range("iv1").end(xltoleft)

renvoie la dernière cellule non vide de la ligne 1

Ces codes sont à rapprocher de l'utilisation de Ctrl+flèche de direction

Ok?

[oscar.cesar]

bonjour
merci
juste une precision .
le code vba m'interesse plus.
je recherche bien la derniere cellule, mais surtout son Numero de colonne .

je regarde le code


merci encore

[ouskel'n'or]

Regarde dans la FAQ, tu as les différentes syntaxes utilisables et quelques explications http://excel.developpez.com/faq/inde...reLigneNonVide, Chapitre "Comment retrouver les numéros des dernières lignes et dernières colonnes renseignées dans une feuille ?"

[oscar.cesar]

bonsoir
merci ouskel'n'or
j'ai regardé tout cela.

mais ma chaine =$H$45
je fais val(replace(chn,"$","")
je devrais obtenir 45 or j'ai 0 ???????

[Pierre Fauconnier]

bonjour
merci
juste une precision .
le code vba m'interesse plus.
je recherche bien la derniere cellule, mais surtout son Numero de colonne .

je regarde le code


merci encore

Une fois que tu as la cellule, tu as sa colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cellule.column

N'oublie pas que Celllule est un objet, donc tu peux utiliser toutes ses propriétés...

[ouskel'n'or]

Mais la question est : C'était la colonne ou la ligne que tu voulais obtenir ?

mais ma chaine =$H$45
je fais val(replace(chn,"$","")
je devrais obtenir 45 or j'ai 0 ???????

Maintenant, si c'est la colonne, tu pouvais aussi regarder là http://www.developpez.net/forums/sho...57&postcount=4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set LeRange = Range("T12") 'Range
'ou 
Set LeRange = Cells(12, 20) 'Range
NoCol = Split(LeRange.address,"$")(1) '=> "T"

Mais c'est plus simple et plus rapide de mettre ce qu'a donné Pierre Fauconnier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NoCol = range("iv1").end(xltoleft).column

... et d'utiliser Cells(NoLigne,NoCol) plutôt que Range(Colonne & Noligne)