VBA et End(xlDown).Row

bonjour

Je fais un logiciel permettant de gerer une liste de matériel

Je peu en rajouter et en supprimer
Lorsque je supprime une ligne dans un tableau, elle se retrouve donc vide, puis lorsque je rajoute un outil elle vient remplacer la ligne vide.

Cependant parfois... cela ne fonctionne pas et se met sur une ligne vide suivante?

Voici ma procédure

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 39 40 41 42 43 44 45 46 47

Sub enregistrerprev(g1 As String, g2 As String, g3 As String, g4 As Date, g5 As String, g6 As String, g7 As String, g8 As String, g9 As Date, g10 As String, g11 As String, g12 As String, g13 As String, g14 As Date, g15 As String, g16 As String, g17 As String, g18 As String, g19 As Date, g20 As String, g21 As String, g22 As String, g23 As String, g24 As Date, g25 As String, g26 As String, g27 As String, g28 As String, g29 As Date, g30 As String)   Worksheets(3).Activate   Ligne = Worksheets(3).Range("a1").End(xlDown).Row If Not Ligne = 1 Then Ligne = Ligne + 1       Cells(Ligne, 1).Value = 1   Cells(Ligne, 9).Value = compteura   Cells(Ligne, 10).Value = g1 Cells(Ligne, 11).Value = g2 Cells(Ligne, 12).Value = g3 Cells(Ligne, 13).Value = g4 Cells(Ligne, 14).Value = g5 Cells(Ligne, 15).Value = g6 Cells(Ligne, 16).Value = g7 Cells(Ligne, 17).Value = g8 Cells(Ligne, 18).Value = g9 Cells(Ligne, 19).Value = g10 Cells(Ligne, 20).Value = g11 Cells(Ligne, 21).Value = g12 Cells(Ligne, 22).Value = g13 Cells(Ligne, 23).Value = g14 Cells(Ligne, 24).Value = g15 Cells(Ligne, 25).Value = g16 Cells(Ligne, 26).Value = g17 Cells(Ligne, 27).Value = g18 Cells(Ligne, 28).Value = g19 Cells(Ligne, 29).Value = g20 Cells(Ligne, 30).Value = g21 Cells(Ligne, 31).Value = g22 Cells(Ligne, 32).Value = g23 Cells(Ligne, 33).Value = g24 Cells(Ligne, 34).Value = g25 Cells(Ligne, 35).Value = g26 Cells(Ligne, 36).Value = g27 Cells(Ligne, 37).Value = g28 Cells(Ligne, 38).Value = g29 Cells(Ligne, 39).Value = g30   Worksheets(1).Activate   End Sub

---

Bonjour,

Citation:

---

Lorsque je supprime une ligne dans un tableau, elle se retrouve donc vide, puis lorsque je rajoute un outil elle vient remplacer la ligne vide.

---

Personnellement, a moins d'avoir un réel pré-requis, il me semble plus simple de supprimer la ligne et de toujours créer la nouvelle en dernier.

Quel est ton code de "suppression" de ligne ?
Car la ligne ci-dessous me semble correct si la cellule est bien vide.

Code:

---

Ligne = Worksheets(3).Range("a1").End(xlDown).Row

---

Une autre méthode pour retourner la première cellule vide d'une colonne

Code:

---

Range("A:A").SpecialCells(xlCellTypeBlanks).Row

---

Merci pour la réponse

Mon code de supression c tous simplement de remplacer les cellules par ""

Je viens de tester ton code, cela ne change rien il décale d'une ligne...
Elle est pourtant bien vide

Bonjour,

Citation:

---

Elle est pourtant bien vide

---

Sur ton tableau qui pose problème, si tu fais [CTRL] + [Fléche du bas], tu tombe bien sur la cellule juste avant la ligne vide ?

Si je fais control + flèche du bas , sa m'envoye vers la ligne 6000, la fin de mon tableau, pas à ma première cellule vide

Plutôt que de mettre à vide par "" utilises l'instruction ClearContents

Code:

---

Range("A19:D19").ClearContents

---

j'ai remplacé par clearcontents,
Pour l'instant sa marche mais je pense que sa va refaire le même problème plus tard, un bon d'un moment sa va être décallé

Esce que je dois faire un remise à 0 de end(Xldown).row?

Si tu utilises Clearcontents couplé à SpecialCells(xlCellTypeBlanks) je ne pense pas que le problème se renouvelle.

Citation:

---

Esce que je dois faire un remise à 0 de end(Xldown).row?

---

Je ne comprend ce que tu veux dire

merci jfontaine!, j'ai fais pas mal de test Supprime/ajout et tous est correcte
Sa devais venir de ("")

J'ai lu quelque part que Xldown garder en mémoire la dernière ligne enregistrer et donc passer à la ligne vide en dessous ?