Suppression ligne en fonction de la 1ère colonne

[ifi77]

Bonjour @ tous,

J'aurais besoin d'un petit coup de main, j'ai une listbox qui contient les noms de personnes.
J'aimerais en fonction des noms contenus et après validation par bouton supprimer dans une liste d'une feuille xl supprimer la ligne compléte (prénom, adresse....).

je ne vous mets pas toute l'application car elle est lourde, voila le code que j'essaye:

For i = 0 To Me.ListBox1.ListCount - 1
With Workbooks(Classeur2).Sheets(ListBox1.List(i)) ' dl1 = .Range(Col1 & "65536").End(xlUp).Row + 1 '
.Range(Col1 & dl1) = TextBox1
.Range(Col1 & dl1).Offset(0, 1) = TextBox2
If Nbcol = 3 Then
.Range(Col1 & dl1).Offset(0, 2) = TextBox3
End If
End With
La 1ère boucle fonctionne, c'est celle qui suit que je n'arrive pas à créer:

If ComboBox1 = "intitulé1" Then
For j = Range("A65536").End(xlUp).Row To 1 Step -1
With Sheets("mdf")
If Range("A" & j) = i Then Range("A" & j).EntireRow.Delete
End With
Next j
End If
Next i ' au suivant
Rep = MsgBox("Enregistrement effectué", vbOKOnly, "Enregistrement")

POur résumer la 1ère boucle inscrit l'action effectuée dans une feuille au nom de la personne, la 2ème boucle doit supprimer son nom et les détails contenu dans la ligne d'une liste sur le feuille "mdf" afin de savoir qui n'a pas encore fait la formation.

Merci en espérant avoir été suffisamment clair

@+

 

[Pierrot93]

Re : Suppression ligne en fonction de la 1ère colonne

Bonjour,

si les instructions concernent bien la feuille "mdf" décrite par le bloc "with", il faut mettre des points devant les objets "range" :

For j = Range("A65536").End(xlUp).Row To 1 Step -1
With Sheets("mdf")
If .Range("A" & j) = i Then .Range("A" & j).EntireRow.Delete
End With
Next j

bon après midi
@+

 

[ifi77]

Re : Suppression ligne en fonction de la 1ère colonne

Bonjour pierot et merci
J'ai écrit cela mais la ligne ne se supprime pas ????

Je ne vois pas

For i = 0 To Me.ListBox1.ListCount - 1
With Workbooks(Classeur2).Sheets(ListBox1.List(i))
dl1 = .Range(Col1 & "65536").End(xlUp).Row + 1
.Range(Col1 & dl1) = TextBox1
.Range(Col1 & dl1).Offset(0, 1) = TextBox2
If Nbcol = 3 Then
.Range(Col1 & dl1).Offset(0, 2) = TextBox3
End If
End With

For j = Range("A65536").End(xlUp).Row To 1 Step -1
If ComboBox1 = "instruction1" Then
With Sheets("mdf")
If .Range("A" & j) = i Then .Range("A" & j).EntireRow.Delete
End With
End If
Next j

Next i ' au suivant
Rep = MsgBox("Enregistrement effectué", vbOKOnly, "Enregistrement")

End Sub

Je ne vois vraiment pas comment faire pour articuler les 2 boucles et que cela fonctionne.

merci

@+

 

[Pierrot93]

Re : Suppression ligne en fonction de la 1ère colonne

Re,

A priori tu compares avec ton compteur..;

If .Range("A" & j) = i

tes cellules contiennent ces valeurs et c'est cela que tu veux comparer ???

sans un tout petit fichier représentant bien le problème posé, cela ne va pas être facile de t'aider....

 

[ifi77]

Re : Suppression ligne en fonction de la 1ère colonne

re pierot,

je te mets un fichier allegé de l'application, j'ai mis en ' toute la première boucle car elle s'adresse à un classeur annexe.

Tu peux voir la feuille mdf avec les noms, le but étant de suprimer les lignes contenant les noms de la listbox de l'userfor formationspecifique

Merci

@+

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Pierrot93]

Re : Suppression ligne en fonction de la 1ère colonne

Re,

peux pas accéder à ce site, problèmede proxy...

 

[ifi77]

Re : Suppression ligne en fonction de la 1ère colonne

j'ai réessayé ici

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[ifi77]

Re : Suppression ligne en fonction de la 1ère colonne

Le premier lien à l'air de fonctionner mais le site à des problemes car le 2ème ne fonctionne pas toujours.

 

[Pierrot93]

Re : Suppression ligne en fonction de la 1ère colonne

Re,

un tout petit fichier déposé directement sur le forum et représentant uniquement le problème posé devrait suffire....

bonne soirée
@+

 

[ifi77]

Re : Suppression ligne en fonction de la 1ère colonne

Voila j'ai refait un fichier simplifié pouvant tenir sur le forum

Merci

@+