suppression ligne

[bret]

Bonjour à tous,

Voilà, dans un USF j'ai une commande supprimer ligne, avec ce code:

With Sheets("BDD")
.Rows(NomLBindex).Delete
End With

le probleme c'est que dans une colonne j'ai le numéro de la ligne ainsi lorsque je supprime les numéros suivant ne changent pas.

exemple:

1 blabla
2 blabla
3 blabla

si je supprime la 2
j'ai

1 blabla
3 blabla


comment faire pour que le 3 devienne 2 ? ou bien y a t il plus simple ?
(exemple utilisé les chiffres des cellules)

oh la la j'espere que vous avez compris c'est le matin pasz vbien reveille encore !!!!!!


merci

 

[Arnaud]

salut.
essaye un truc comme ça :

Range(NomLBindex & "1").Select
Selection.EntireRow.Delete

 

[bret]

fonctionne pas !

il dit que la methode range global truc bidule ...

c'est quoi ce "1" ??


la suppression se fait pas un usf + précisement par un listbox

en fait grace au listbox je navigue dans les fiches puis je peux soit la modifier soit l' effacer !

la colonne "B" (celle qui contient la suite de numéros) me sert à inscrire
en titre du USF le numéro de la fiche

ex: UserForm1.Caption = "FICHE N° " & L

L va chercher dans la colonne "B"

voilà merci

 

[Arnaud]

me suis tromper

si bien compri NomLBindex coorespond au numéro de ligne que tu ve supprimé ??. si oui, ça ça marche chez moi :

Range("a" & NomLBindex).Select
Selection.EntireRow.Delete

 

[bret]

fonctionne tjrs pas ! du moins ça ne mets pas à jour la colonne B

j'ai mis un exemple pour que visualisiez mon probléme !


merci par avance

 

[Michel_M]

Bonjour Bret, Arnaud et le forum

Excusez moi de m'insérer dans votre fil.

Bret, dans ta colonne B, tu pourrais marquer la formule:

B2=B1+1
B3=B2+1

etc.

Si cette colonne B est une saisie, bien sûr.

Michel

 

[Arnaud]

forcement la d'un coup c plus clair
ça te va ça ??

 

[bret]

Merci !!!! c TOP au poil !


seulement quand je supprim la N°1 tout remonte sur la ligne 1 ????!!!

dois-je ajouter un +1 qque part ?

 

[Michel_M]

Re,

Excusez moi, j'avais dit une sacrée c.... dans mon post
A+
Michel

 

[bret]

c pas grave ! le principal c de participer !!


bon résultat de la soluce d' Arnaud c que ça fonctionne mais en essayant
de mettre un +1 partout ça fait monter la ligne en 1

donc c penible comme soluce je vais essayer de broder un truc à partir de ça !


en tout cas merci !!

 

[Arnaud]

je ne vois pas trop ce que tu veux dire par tout remonte sur la ligne 1.
cela fais quoi exactement que cela ne devrai pas faire ??

 

[bret]

Si tu reprends ton exemple tu remarques que le N°1 de la colonne B
se trouve sur la ligne 1

donc voilà ce que tu dois faire pour retrouver l'erreur que je trouve

B1 = "N°"

B2 = 1
B3 = 2
etc...


ensuite lance le USF

et supprime la fiche 1

tu verras que le chiffre 1 remonte sur la ligne B1 au lieu de rester sur B2

....

 

[bret]

ca y est tu bloques !!!!!????

 

[Arnaud]

non g juste du boulot

 

[bret]

merci je vais essayer ca !!! @ plus tard !