offset et dernière ligne non vide

[sly99]

kikoo le forum..

une petite question pour vous car je bug.. lol
Voici ue partie de mon code

Cells(13, 1).Select
Do Until ActiveCell.Value = nom_soignant
ActiveCell.Offset(1, 0).Select
Loop
li1 = ActiveCell.Row

le problème que je rencontre est que si le nom_soignant que je choisit avant n'est pas dans la colonne... le offset continu indéfiniement jusqu'a un message d'erreur...
donc comment dans ce code définir la dernière ligne nom vide..;

mici..
++

 

[Pierrot93]

Re : offset et dernière ligne non vide

Bonsoir Sly

essaye peut être le code ci dessous :

Sub test()
Dim x As Range
Set x = Range("A:A").Find(nom_soignant, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then li1 = x.Row
End Sub

te renvoie le numéro de la ligne ou se trouve le contenu de ta variable "nom_soignant"

bonne soirée
@+

 

[Kotov]

Re : offset et dernière ligne non vide

Bonsoir Sly, Bonsoir l'Ami Pierrot !


Comme toujours avec Pierrot, c'est la solution nickel chrome.
Et comme aux "Chiffres et aux Lettres", je dis : "Pas mieux !"

La première idée qui m'est venue c'est de remplacer la ligne :
ActiveCell.Offset(1, 0).Select
par
If ActiveCell.Row < 65536 Then ActiveCell.Offset(1, 0).Select Else: Exit Sub


Mais c'est moins "pro" que l'utilisation de Find.

Bonne soirée
Kotov

 

[JCGL]

Re : offset et dernière ligne non vide

Bonsoir à tous,
Re Pierrot,
Salut Kotov,

Tout comme Kotov : Prête moi ta plume mon ami Pierrot...

Trop fort le bougre... il lit entre les lignes

A+

 

[sly99]

Re : offset et dernière ligne non vide

re coucou

bah comment vous dire... euh...
merci à tous les deux...ca fonctionne très bien..

byzz