Discussion :

[Mr l'Ashanti]

bjr forum
je m'excerce à longueur de journée pour comprendre la programmation en vba
mon exercice d'aujourd'hui est de supprimer des lignes via une listbox.
voici le code que j'ai pu écrire

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer
'no_ligne = textbox representant le numero de ligne sur la feuille
    For i = ListBox1.ListIndex + 2 To no_ligne ' ici ma listbox ne contient pas d'en-tetes donc listindex +2
 
         If Cells(4, 1) <> "" Then
 
        Sheets("feuil1").Range("a" & i).Delete
        End If
         Next i

lorsque j' essaie de supprimer l'une des 3 premieres lignes erreur debogage mais pour les autres lignes pas d'erreur et la suppression se fait correctement.
je souhaiterais que vous m'expliquer le pourquoi.
svp pas de code ou de lien . juste des explications et au pire des cas un code en relation avec mon code. merci

[patricktoulon]

re
bonjour
il ne faut pas confondre

vide les valeurs de range("A" & i)

Code :

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

Sheets("feuil1").Range("a" & i).clearcontents

vide les valeurs et supprime le formatage de range("A" & i)

Code :

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

Sheets("feuil1").Range("a" & i).clear

supprime physiquement la ligne entiere de range("A" & i)

Code :

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

Sheets("feuil1").Range("a" & i).entirerow.delete

[Mr l'Ashanti]

Bonjour Patrick, j'espère la grande forme chez vous.
Merci pour l' explication. J'aimerais savoir pourquoi lorsqu''il reste 3lignes dans le tableau, et que je supprime ça supprime la colonne entière ? Je demande si je ne devrais pas sortir de la boucle prématurément

[Mr l'Ashanti]

Au lieu de

Code :

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

for i = listbox+2 to no_ligne

j'ai essayé avec

Code :

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

i=no_ligne

Donc

Code :

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

sheets("feuil1").range("A"&i).entirerow.delete

et ça marche.
J'espère qu'à la longue cela ne sera préjudiciable ?

[patricktoulon]

re
range("A:" & i).delete ça ne se fait pas soit tu

range("A:" & i).clear ->efface les valeurs et format
range("A:" & i).clearcontents ->efface les valeurs
range("A:" & i).entirerow.delete ->suprimme physiquement la ligne de la cellule
range("A:" & i)..EntireColumn.delete ->supprime physiquement la colonne entière de la cellule

[Mr l'Ashanti]

Une dernière question : comment réinitialiser ma listbox car j'ai vu dans un post : initlistbox mais quand je le fais un message me signale variable non définie

[patricktoulon]

initlistbox est certainement une fonction perso ça n'existe pas en vba natif

je ne sais pas comment tu remplie ta listbox
mais si c'est avec une plage ou un tableau structuré
tu la met a jour simplement en la re remplissant

Code :

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

1
2
range("A"&i).entiererow.delete
with malistbox:.clear:.list=range("taplage").value:end with

[Mr l'Ashanti]

Ok. Merci amicalement . J'ai noté beaucoup de choses.
Passe une bonne journée. Je passerai sur une autre leçon , le cas des recherches intuitives car les tutos de boisgontier son géniaux mais trop de variable qui rendent dingue
A plus