Discussion :

[kedas]

à tous

j'essaie depuis peu de rechercher une valeur dans mon classeur et de la supprimer.
La valeur est le nom d'une feuille et le contenu d'une cellule.
La cellule recherché se trouve sur la feuille "Liste", colonne B.
La feuille recherché se trouve dans le classeur.
La recherche et suppression est faite via un combobox de l'userform et peut se retrouver sur n'importe quelle feuille du classeur.
Pour la suppression de la feuille, j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
...
 
If Valeur = ComboBox1.Text Then
   Sheets(ComboBox1.Text).Activate
End If
MsgBox " Êtes-vous sûr de vouloir supprimer " & ComboBox1 & " ?"
 If vbYes Then
 Application.DisplayAlerts = False
 Sheets(ComboBox1.Text).Delete
 Application.DisplayAlerts = True
 End If
 Unload Me
...

Pour la suppression de la ligne, j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
...
 
Dim J As Long
Dim Plage As Range
Set Plage = Range("B7", Range("B65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(J).Value = ComboBox1 Then
        Plage.Cells(J).EntireRow.Delete
    End If
Next
 
...

Ces bouts de code testés distinctement fonctionnent très bien.
j'essaye de les mettre ensemble mais j'obtient juste la suppression
de la feuille et non de la ligne de la cellule correspondante en feuille "Liste".

Merci de bien vouloir m'aider

[Lou Pitchoun]

Salut,

Tu mets bien le code de suppression de la ligne avant celui de la feuille ?

[NEC14]

Bonjour,

Moi j'aurai mis :

Code :

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

1
2
3
Dim Vrep as Integer
etc...
Vrep=VbYes then etc...

mais bon je n'y connais pas grand chose

[kedas]

salut Lou Pitchoun

Tu mets bien le code de suppression de la ligne avant celui de la feuille ?

J'ai essayé comme suit mais là Erreur 91 : Variable objet ou variable bloc WITH non- definie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
MsgBox " Êtes-vous sûr de vouloir supprimer l'article " & ComboBox1 & " ?"
 If vbYes Then
 Dim J As Long
Dim Plage As Range
Set Plage = Sheets("Liste articles").Range("B7", Range("B65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(J).Value = ComboBox1 Then
        Plage.Cells(J).EntireRow.Delete
End If
 Application.DisplayAlerts = False
 Sheets(ComboBox1.Text).Delete
 Application.DisplayAlerts = True
 
 Unload Me

A bientôt

[le petit nicolas]

c'est à quelle ligne qu'ca coince ?
et il ne manquerait pas un Next après End If ?

[Lou Pitchoun]

c'est à quelle ligne qu'ca coince ?
et il ne manquerait pas un Next après End If ?

Il manque effectivement un next

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim J As Long
Dim Plage As Range
 
MsgBox " Êtes-vous sûr de vouloir supprimer l'article " & ComboBox1 & " ?"
If vbYes Then
 
Set Plage = Sheets("Liste articles").Range("B7", Range("B65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(J).Value = ComboBox1 Then
        Plage.Cells(J).EntireRow.Delete
    End If
Next
Application.DisplayAlerts = False
Sheets(ComboBox1.Text).Delete
Application.DisplayAlerts = True
 
Unload Me

[kedas]

salut Lou Pitchoun

Citation:
Envoyé par le petit nicolas Voir le message
c'est à quelle ligne qu'ca coince ?
et il ne manquerait pas un Next après End If ?
Il manque effectivement un next

je crois que j'ai péché depuis de toujours envoyer des extrais de mon code.
Voila le code entier que j'essaie d'exécuter en vain :

Code :

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

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
 
Private Sub Supprimer_Click()
On Error GoTo Gerreur
If ComboBox1 = "" Then
MsgBox "Saisissez un article !", vbExclamation
ComboBox1.SetFocus
Exit Sub
End If
 
If Valeur = ComboBox1.Text Then
   Sheets(ComboBox1.Text).Activate
End If
 
MsgBox " Êtes-vous sûr de vouloir supprimer " & ComboBox1 & " ?", vbCritical + vbYesNoCancel + 256, "Attention"
 If vbYes Then
Dim J As Long
Dim Plage As Range
Set Plage = Sheets("Liste articles").Range("B7", Range("B65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(J).Value = ComboBox1 Then
        Plage.Cells(J).EntireRow.Delete
End If
 Application.DisplayAlerts = False
 Sheets(ComboBox1.Text).Delete
 Application.DisplayAlerts = True
 Unload Me
 If vbCancel Then
 ComboBox1.SetFocus
 ElseIf vbNo Then
 Unload Me
 End If
Exit Sub
Gerreur:
If Err.Number = 9 Then
Beep
                MsgBox "" & ComboBox1.Text & " n'existe pas!"
                ComboBox1.SetFocus
End If
Next
End If
End Sub

J'espère avoir donné plus d'information

Le code coince à la ligne : If Plage.Cells(J).Value = ComboBox1 Then

A bientôt

[kedas]

salut a tout le forum

Voilà ce que j'ai de nouveau essayé :

Code :

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

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
 
Private Sub Supprimer_Click()
On Error GoTo Gerreur
If ComboBox1 = "" Then
MsgBox "Saisissez un article !", vbExclamation
ComboBox1.SetFocus
Exit Sub
End If
MsgBox " Êtes-vous sûr de vouloir supprimer l'article " & ComboBox1 & " ?", vbCritical + vbYesNoCancel + 256, "Attention"
 If vbYes Then
Application.DisplayAlerts = False
 Sheets(ComboBox1.Text).Delete
 Application.DisplayAlerts = True
 End If
 If vbNo Then
 Unload Me
 Else
 ComboBox1.SetFocus
 End If
Dim J As Long
Dim Plage As Range
Set Plage = Range("B7", Range("B65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(J).Value = ComboBox1 Then
        Plage.Cells(J).EntireRow.Delete
    End If
    Next
 
Exit Sub
Gerreur:
If Err.Number = 9 Then
Beep
                MsgBox "L'article " & ComboBox1.Text & " n'existe pas!"
                ComboBox1.SetFocus
End If
End Sub

ici le code fonctionne à merveille car la plage dans la quelle la ligne doit être supprimer n'est pas sur une autre feuille.

Comment l'adapter maintenant si la plage Range("B7", Range("B65536") est sur une autre feuille du classeur.

A bientôt

[AlainTech]

Une partie de cette réponse devrait pouvoir te donner des pistes.
Principalement l'instanciation des feuilles et de ranges dans ces feuilles.