Discussion :

[Shara]

Bonjour,

J'ai cherché un peu partout une réponse, mais je ne trouve rien me permettant de faire exactement ce que je désire.

Donc voici mon problème :
J'ai une feuille contenant tout un tas de compte utilisateur où je dois en rajouter. Je cherche donc à trouver la dernière ligne d'un type de compte précis pour ajouter à la suite.

Par exemple j'ai :
[...]
heff1ati9
heff1ati10
heff2ati1
[...]

Je veut rajouter 5 compte de type heff1ati*, donc j'aimerais connaître la valeur de la ligne de heff1ati10 pour insérer des lignes à cet endroit et ajouter mes comptes...

seulement, comment dire, en vba :
Trouve moi la dernière ligne contenant heff1ati* sans devoir faire une boucle for avec des IF interminable ? (j'ai plus de 3000 lignes).

Au début je voulais faire un truc du style :

Code :

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

1
2
Set c = Feuil18.Range("A1:A65536").Find("", LookIn:=xlValues, lookat:=xlWhole) 'trouve première ligne vide
rowmaj = c.row

En modifiant pour trouver non pas la première ligne vide mais le dernier compte de type heff1ati*... seulement comment lui dire ?
Donc là y'aurais Left(x, Len(compte)) où compte est la variable contenant heff1ati (car ça peut changer et pas toujours être de la même longueur).

Ce qui donnerait donc :

Code :

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

Set c = Feuil18.Range("A1:A65536").Find(Left(x, Len(compte)), LookIn:=xlValues, lookat:=xlWhole)

où x doit correspondre à la cellule Ax... mais puisque cette cellule change tout le temps, comment lui dire que x = la cellule où tu es rendu ?

Un grand merci d'avance pour votre aide

[J.Michel]

Juste une idée comme ça....
Pourquoi ne pas ajouter ta ligne en fin de tableau et de faire ensuite un tri du tableau sur la colonne des noms utilisateurs ?

[Shara]

hmmm...

en fait ma liste est plutôt trié selon :
Catégorie d'étude
Section d'étude
comptes

Si je fais un tri sur le tout... j'obtiens :
heff1pba1
heff1pba10
heff1pba11
heff1pba12
heff1pba13
heff1pba14
heff1pba15
heff1pba16
heff1pba17
heff1pba18
heff1pba19
heff1pba2
heff1pba20
heff1pba21

Donc s'il existe une option pour lui faire comprendre qu'il doit mettre le 10 après le 9 et le 20 après le 19 et ainsi de suite, ça pourrait marcher...

Par contre, le fait de trouver la dernière occurrence me permet aussi de savoir quel est le numéro du dernier compte existant et de continuer ma numérotation ainsi...

Mais je suis ouverte à toute solution autre qui peuvent donner les mêmes résultats au final

Edit :
C'est bon j'ai trouvé :

Code :

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

Set c = Feuil1.Range("A1:A65536").Find(compte, LookIn:=xlValues, LookAt:=xlPart) 'trouve première ligne du compte

suffit donc de lui dire LookAt:=xlPart et il trouve tout valeur contenant au minimum 'compte'. Ensuite j'ai plus qu'à faire findnext jusqu'au dernier...

y'a pas une façon de le faire chercher de bas en haut à la place ?

[fring]

Donc s'il existe une option pour lui faire comprendre qu'il doit mettre le 10 après le 9 et le 20 après le 19 et ainsi de suite, ça pourrait marcher...

Il faut numéroter les 9 premiers comme ceci :
01, 02, 03, ..., 09
A ce moment là 10 viendra se placer après le 09

[Shara]

Il faut numéroter les 9 premiers comme ceci :
01, 02, 03, ..., 09
A ce moment là 10 viendra se placer après le 09

Ouais... mais non
Car parfois j'ai jusqu'à 150 comptes d'un même type...
donc 001...

Mais surtout, les comptes actuel ont déjà prêt pour distribution, donc il est trop tard pour changer la numérotation.

Puis bon, le problème du tri ne se pose plus vraiment, puisque j'arrive à trouver ma ligne.

Seulement s'il pouvait commencer à chercher par la cellule A65536 et remontrer plutôt que descendre, ce serait encore plus pratique car il trouverait la dernière occurence directement, alors que là je dois faire un .findnext jusqu'à la dernière ligne concerné puisque commence à chercher à partir de A1

[fring]

Pas testé mais tu peux essayé ceci :

Code :

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

Set c = Feuil1.Range("A:A").Find(What:=compte, LookAt:=xlPart, After:=Feuil1.Range("A65535"), SearchDirection:=xlPrevious)

[Shara]

Pas testé mais tu peux essayé ceci :

Code :

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

Set c = Feuil1.Range("A:A").Find(What:=compte, LookAt:=xlPart, After:=Feuil1.Range("A65535"), SearchDirection:=xlPrevious)

Ca fonctionne nickel !
Grand merci !