Fin de fichier

Voila j'ai un problème avec ma fin de fichier. Mon code marche super bien, mais dans mon fichier, quelqu'un a rajouter une colonne a formule plus bas que la ou je voudrais qui est la cellule ou est écrit "ne pas supprimer ces lignes".
Pour l'instant mon code descend jusqu'a la dernière ligne occupé du fichier ce qui la me gene un peu. J'ai tenté une modification avec une boucle while mais VBA m'envoit pété il me met une autre ligne en erreur alors qu'elle marche bien.

Voici mon code, je suis toujours preneuse d'idée:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub Bouton11950_QuandClic()   'Déclaration des variables' Dim NumCol, derniereligneupit, ColonneRepere, DerLigne As Integer Dim sh As Worksheet DerLigne = derniereligneupit derniereligneupit = 17 ColonneRepere = 28   'Désactivation des filtres' Set sh = Workbooks("Synthese_type_01.xls").Worksheets("Feuille principale") If sh.FilterMode Then sh.ShowAllData   'Arreter la boucle infinie' While Workbooks("Synthese_type_01.xls").Worksheets("Feuille principale").Cells(derniereligneupit, ColonneRepere) <> "Veuillez ne pas supprimer ces lignes " derniereligneupit = derniereligneupit + 1 If derniereligneupit > 1000 Then MsgBox ("Arrêt du traitement: boucle infinie") Exit Sub End If Wend   'Définir la spécialité de la celulle, et jusqu'a quelle celulle il doit prendre le modèle' derniereligne = Range("IF567").SpecialCells(xlCellTypeLastCell).Row   'De la colonne 36 à la 256' For NumCol = 36 To 256   'Test si = dans cellule, sinon rien ' If Left(Cells(20, NumCol).Formula, 1) = "=" Then   'Balaie chaque cellule de la ligne 20 pour chaque colonne' Range(Cells(20, NumCol), Cells(derniereligne, NumCol)).FillDown End If Next NumCol   End Sub

---

Et donc je voudrais lui dire d'aller jusqu'a veuillez ne pas supprimer ces lignes, mais comme je disais quand j'ai tenté une boucle while il m'a mise en erreur sir la ligne

Code:

---

Range(Cells(20, NumCol), Cells(derniereligne, NumCol)).FillDown

---

Un peu de lexture, Là. Il y a la solution à ton pb. Tu dois connaître la "dernière ligne absolue de la colonne" qui t'intéresse et limiter ta boucle sur cette dernière ligne. ;)
A+

salut mélodyy
et pourquoi ne pas
rechercher la derniere ligne avant de parametrer ta boucle ( genre end(xldown))
ou
rechercher "la phrase ne pas effacer", determiner sa ligne et donc savoir ou arreter ta boucle

Code:

---

1 2 3

find "nananinanere" deligne = naninanere -1 for i = 17 ti naninanere

---

d'ailleur tu le fais là, alors, j'ai du mal a comprendre

Citation:

---

derniereligne = Range("IF567").SpecialCells(xlCellTypeLastCell).Row

---

Citation:

---

derniereligne = Range("IF567").SpecialCells(xlCellTypeLastCell).Row

---

Donne la dernière ligne renseignée de la feuille.

Pour avoir la dernière ligne de la colonne qui l'intéresse, c'est

Code:

---

DerniereLigne = Range("A65535").End(xlUp).Row

---

Tu remplaces "A" par la bonne colonne ;)
A+

ça ne marchera pas dans son cas, si j'ai bien compris quelqu'un(:furieux: mais mélodie est trop polie pour ça) quelqu'un donc a écris une ligne en dessous de "ne pas effacer ces ligne

Oui, c'est bien ça, c'est idiot ! Faut supprimer cette phrase dans une cellule et la placer dans une zone de texte... ou peindre les lignes à ne pas effacer d'une autre couleur. Si je ne l'avais pas dit, je l'avais pensé, t'aurais dû le deviner :aie:

mais j'avais parfaitement deviné, et j'ai comme toi:D l'impression qu'en fait la macro se déroule jusqu'a cette fameuse ligne du dessous au lieu de s'arreter a "ne pas effacer cette ligne"
peut etre que dans ce cas, si on fait un xlup, on pourrais remonter jusque "ne pas effacer non? a condition qu'il n'y ait qu'une seule ligne rajoutée par ce (:evilred: :furax: :furieux: :mur: :scarymov: )

Je traduit :
On fait d'abord

Code:

---

derniereligne = Range("IF567").SpecialCells(xlCellTypeLastCell).Row -1

---

qui est en principe une ligne vide pour la colonne concernée, puis on fait

Code:

---

DerniereLigne = Range("LaBonneColonne" & derniereligne).End(xlUp).Row

---

C'est ce que tu veux dire ? Alors ça me paraître être la bonne idée une fois :mouarf:

pourtant si on utilise

Code:

---

1 2 3 4

Sub derniere() MsgBox Range("a1").End(xlDown) MsgBox Range("a1").End(xlDown).Address End Sub

---

dans une colonne ou il y a un trou, on arrive bien dans la derniere cellule avant le trou, where is ze probleme?

Citation:

---

where is ze probleme?

---

Le trou "avant" dans la colonne. Faut toujours envisager d'avoir à gérer un trou :mouarf:

En fait c'est une colonne qu'elle a rajouté, mais qui va plus bas que "veuillez ne pas supprimer ces lignes". Comme mon code dit de descendre les formules jusqu'a la dernière ligne, et ben en fait il prend la colonne la plus basse, et il égalise partout...

Hors moi j'aimerais que ça s'arrete à "veuillez ne pas supprimez ces ligne" qui je le précise n'est jamais à la même ligne...

alors si c'est une colonne, fait ta recherche de derniere ligne dans une colonne ou tu es sure que ça ne descendra pas plus bas que tu ne le souhaite

On t'a donné trois solutions : La zone de texte pour remplacer la cellule et la recherche de la dernière ligne sur la colonne qui t'intéresse, la solution d'alsimbad, si tu n'as pas de trou dans la colonne qui t'intéresse, et la dernière consistant à trouver l'avant dernièreligne de la feuille, pour remonter à la dernière ligne de la colonne qui t'intéresse.
On pourrait te donner d'autres solutions mais elles ne seront pas mieux que celles-là.
C'est donc à toi de lire nos réponses et de te décider. De toutes façon, un jour il faudra que tu le fasses ;)

et je peux pas lui dre:

Tant que tu trouves pas "veuillez ne pas supprimer ces lignes" tu continues ?

ça revient au même non ?

mais euh....ça fait une boucle avec while ça ok, mais pour trouver je peux pas utiliser la méthode find alors je met quoi ?

je sais je me complique la vie

Juste une question : tu as résolu le pb tu as posté ici ?

pas encore, j'aurais du le résoudre ce matin, mais y'a eu cette histoire de colonne rajoutée dans un autre fichier et du coup ça a décalé ;) mais t'en fais pas je te dirais :)

euh par contre la pour ce problème, j'ai testé ça:

Code:

---

1 2 3

derniereligne = Range("IF567").SpecialCells(xlCellTypeLastCell).Row - 1 Dernièreligne = Range("AB" & derniereligne).End(xlUp).Row

---

et ça fait la même chose que ce que moi j'avais.

Moi je voudrais que lorsqu'il trouve "veuillez ne pas supprimer ces lignes" il s'arrete sachant que la ligne diffère...je vais essayer l'autre solution, avec la méthode find

J'en reviens donc à ta question

Citation:

---

et je peux pas lui dre:
Tant que tu trouves pas "veuillez ne pas supprimer ces lignes" tu continues ?
ça revient au même non ?

---

Si, tu peux faire ça... mais ça s'appelle un "bricollage". Mais bon, je ne suis pas celui qui passera derrière toi ;)
Et rien ne t'empêche de le faire.

Citation:

---

et je peux pas lui dre:

Tant que tu trouves pas "veuillez ne pas supprimer ces lignes" tu continues ?

ça revient au même non ?

---

c'est ce que tu fais si je ne m'abuse

Citation:

---

While Workbooks("Synthese_type_01.xls").Worksheets("Feuille principale").Cells(derniereligneupit, ColonneRepere) <> "Veuillez ne pas supprimer ces lignes "

---

je pense que ton probleme viens de la

Code:

---

1 2	'Définir la spécialité de la celulle, et jusqu'a quelle celulle il doit prendre le modèle' derniereligne = Range("IF567").SpecialCells(xlCellTypeLastCell).Row

---

qui te donne la ligne la plus basse de ta feuille même s'il y a des trous, et qui n'a pas de sens puisque il te donnera la derniere ligne même si elle n'est pas sous IF567 alors que si tu écris

Code:

---

derniereligne = Range("a1").End(xlDown).Row

---

tu aura réelement la derniereligne de la colone A
essaye ça si tu veux etre convaincue, tu ecris des donees en a1 a2 a3 a4 et b7

Code:

---

1 2 3 4 5 6

Sub der() 'avec ce message, il te renverra 7 MsgBox Range("IF567").SpecialCells(xlCellTypeLastCell).Row 'avec ce message, il te renverra 4 MsgBox Range("a1").End(xlDown).Row End Sub

---

vi mais si tu veux la même si je met a1 il descend trop bas...et ça m'arrange pas...