VBA pour supprimer cellule

Version imprimable

18/12/2023, 16h58
sophang

2 pièce(s) jointe(s)

VBA pour supprimer cellule

Bonjour,

J'ai mon fichier Macros qui me permet d'exécuter une macro pour supprimer dans mon fichier Banque de la colonne B les codes BANQUES BNP458 et POUY985.
Le code ne s'exécute pas correctement. Pourriez-vous me venir en aide ?

Voici mon code :

Sub Suppr()

Dim i As Integer
With ThisWorkbook.Sheets("BASE")

For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1

If .Range("B" & i).Value = "BNP458" Then .Rows(i).Delete
If .Range("B" & i).Value = "POUY985" Then .Rows(i).Delete

End If
Next i
End With
End Sub

En vous remerciant beaucoup de votre aide.
18/12/2023, 17h48
mat955

Bonjour,

Je me permets quelques petites indications en préambule , en toute bienveillance :) :

1. La plupart des utilisateurs n'ouvre pas les pièces jointes par soucis de sécurité.
2. Utilise les balises de code # pour afficher du code, ce qui rendra le code plus lisible, tu recevras donc plus facilement de l'aide.
3. "Le code ne s'exécute pas correctement" -> Cela revient à aller voir un médecin en disant "je suis malade". Il faut nous expliquer quels sont tes "symptômes", qu'est-ce qui ne fonctionne pas ou fonctionne mal ? As-tu un message d'erreur ? Etc.

Cela étant dit, pour faire ce que tu souhaites faire, plutôt que de passer par une boucle, moi je ferai un filtre sur les valeurs que tu souhaites supprimer, et je supprimerais les lignes affichées par le filtre. Et si cela est possible pour ton jeu de données, je ferai même au préalable un tri sur la colonne B, ce qui rendrait le code beaucoup plus rapide si tu as beaucoup de lignes.

Bonsoir Matt955,

Je ne peux pas vraiment faire de filtre puis supprimer les lignes, car dans mon fichier j'aurais plusieurs code Banque à supprimer.
Le code erreur qui s'affiche est le suivant : "Erreur de compilation, End If sans bloc if".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Suppr() Dim i As Integer With ThisWorkbook.Sheets("BASE") For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1 If .Range("B" & i).Value = "BNP458" Then .Rows(i).Delete If .Range("B" & i).Value = "POUY985" Then .Rows(i).Delete End If Next i End With End Sub

Salut, comme ceci:

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
Sub SupprimeCodes()
 
Dim ws As Worksheet
Dim lastrow As Long
Dim i As Long
 
'Définition feuille de travail
Set ws = ThisWorkbook.Worksheets("BASE")
'Dernière cellule colonne B
lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
 
Application.ScreenUpdating = False
 
'Parcours de la colonne B, de bas en haut
For i = lastrow To 2 Step -1
    ' Si code trouvé alors suppression de la ligne
    If Range("B" & i).Value = "BNP458" Or Range("B" & i).Value = "POUY985" Then
        Range("B" & i).EntireRow.Delete
    End If
Next i
 
Application.ScreenUpdating = True
 
MsgBox "Traitement terminé!", vbInformation
 
 
End Sub

En relisant ton code, je vois que tu as 2 lignes if then, c'est ok, puis juste en dessous tu as un end if qui ne sert à rien.

Bonsoir Franc,

Merci beaucoup pour ta proposition de réponse.
La macro s'exécute depuis le fichier Macros. Est-ce que je peux inclure ce code au début de cette façon ? :

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
 
Sub SupprimeCodes()
 
Workbooks.Open filename:="C:\chemin du fichier\Banque.xlsx"
 
 
Dim ws As Worksheet
Dim lastrow As Long
Dim i As Long
 
'Définition feuille de travail
Set ws = ThisWorkbook.Worksheets("BASE")
'Dernière cellule colonne B
lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
 
Application.ScreenUpdating = False
 
'Parcours de la colonne B, de bas en haut
For i = lastrow To 2 Step -1
    ' Si code trouvé alors suppression de la ligne
    If Range("B" & i).Value = "BNP458" Or Range("B" & i).Value = "POUY985" Then
        Range("B" & i).EntireRow.Delete
    End If
Next i
 
Application.ScreenUpdating = True
 
MsgBox "Traitement terminé!", vbInformation
 
 
End Sub

Ha, je n'avais pas compris que tu lançais la macro depuis un autre classeur. Je l'ai modifiée pour en tenir compte.
Intègre la macro dans un module standard et lance-la manuellement ou tu peux l'affecter à un bouton.

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
Sub SupprimeCodes()
 
    'Ouvrir le classeur
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:="C:\chemin du fichier\Banque.xlsx")
 
    Dim ws As Worksheet
    Dim lastrow As Long
    Dim i As Long
 
    'Définition feuille de travail
    Set ws = wb.Worksheets("BASE")
    'Dernière cellule colonne B
    lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
 
    Application.ScreenUpdating = False
 
    'Parcours de la colonne B, de bas en haut
    For i = lastrow To 2 Step -1
        ' Si code trouvé alors suppression de la ligne
        If ws.Range("B" & i).Value = "BNP458" Or ws.Range("B" & i).Value = "POUY985" Then
            ws.Range("B" & i).EntireRow.Delete
        End If
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "Traitement terminé!", vbInformation
 
    'Fermer le classeur et sauvegarder les modifications
    wb.Close SaveChanges:=True
 
End Sub

Bonjour Franc,

La macro ci-dessous fonctionne quand le fichier banque est fermé :

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
Sub SupprimeCodes()
 
    'Ouvrir le classeur
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:="C:\chemin du fichier\Banque.xlsx")
 
    Dim ws As Worksheet
    Dim lastrow As Long
    Dim i As Long
 
    'Définition feuille de travail
    Set ws = wb.Worksheets("BASE")
    'Dernière cellule colonne B
    lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
 
    Application.ScreenUpdating = False
 
    'Parcours de la colonne B, de bas en haut
    For i = lastrow To 2 Step -1
        ' Si code trouvé alors suppression de la ligne
        If ws.Range("B" & i).Value = "BNP458" Or ws.Range("B" & i).Value = "POUY985" Then
            ws.Range("B" & i).EntireRow.Delete
        End If
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "Traitement terminé!", vbInformation
 
    'Fermer le classeur et sauvegarder les modifications
    wb.Close SaveChanges:=True
 
End Sub

Cependant, quand je teste cette macro ci-dessous quand le fichier est déjà ouvert, j'ai le message d'erreur "Erreur d'exécution '9' : L'indice n'appartient pas à la sélection". Je ne comprends pas pourquoi.

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
Sub SupprimeCodes()
 
Dim ws As Worksheet
Dim lastrow As Long
Dim i As Long
 
'Définition feuille de travail
Set ws = ThisWorkbook.Worksheets("BASE")
'Dernière cellule colonne B
lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
 
Application.ScreenUpdating = False
 
'Parcours de la colonne B, de bas en haut
For i = lastrow To 2 Step -1
    ' Si code trouvé alors suppression de la ligne
    If Range("B" & i).Value = "BNP458" Or Range("B" & i).Value = "POUY985" Then
        Range("B" & i).EntireRow.Delete
    End If
Next i
 
Application.ScreenUpdating = True
 
MsgBox "Traitement terminé!", vbInformation
 
 
End Sub

Ok, on vérifie alors si le classeur est ouvert avant traitement, comme ceci:

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
Sub SupprimeCodes()
 
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lastrow As Long
    Dim i As Long
 
    'Vérifier si le classeur est déjà ouvert
    On Error Resume Next
    Set wb = Workbooks("Banque.xlsx")
    On Error GoTo 0
 
    'Si le classeur n'est pas ouvert, l'ouvrir
    If wb Is Nothing Then
        Set wb = Workbooks.Open(Filename:="C:\chemin du fichier\Banque.xlsx")
    End If
 
    'Définition feuille de travail
    Set ws = wb.Worksheets("BASE")
    'Dernière cellule colonne B
    lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
 
    Application.ScreenUpdating = False
 
    'Parcours de la colonne B, de bas en haut
    For i = lastrow To 2 Step -1
        ' Si code trouvé alors suppression de la ligne
        If ws.Range("B" & i).Value = "BNP458" Or ws.Range("B" & i).Value = "POUY985" Then
            ws.Range("B" & i).EntireRow.Delete
        End If
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "Traitement terminé!", vbInformation
 
    'Fermer le classeur et le sauvegarder
    wb.Close SaveChanges:=True
 
End Sub

19/12/2023, 14h45
sophang

Franc,

Merci beaucoup pour tes propositions de réponses. La macro fonctionne parfaitement sur le fichier test, qu'il soit ouvert ou non.

Cependant, je rencontre le problème suivant lorsque je veux l'adapter à mon fichier.
J'ai le code code "Erreur d'exécution 13 : Incompatibilité de type". Qu'est ce que celà peut signifier ?
19/12/2023, 15h01
Franc

Je ne peux pas te donner de réponse précise sans savoir le type de données traitées. Exécute le code pas à pas et lorsqu'une ligne provoque cette erreur, vérifie que la variable qui reçoit la donnée est du même type.
19/12/2023, 16h39
sophang

Bon, je crois que j'ai trouvé d'où vient le problème. C'est qu'à la fin de la colonne B, j'ai des lignes #N/A#. En les supprimant, le code fonctionne.

Une dernière question, je ne veux pas que le fichier se ferme après le lancement de la macro . J'ai mis ce code, mais çà ne fonctionne pas :

Code:

Application.ScreenUpdating = False

.
19/12/2023, 17h02
Tête de chat
Bonjour

Code:

Application.ScreenUpdating = False

rien à voir, ça c'est pour figer l'affichage pour gagner du temps à l'execution. Refais un

Code:

Application.ScreenUpdating = True

Sinon tu risques de voir (ou ne pas voir, justement) des choses bizarres.

La modif à faire est vers :
Code:

1 2 'Fermer le classeur et le sauvegarder wb.Close SaveChanges:=True
à remplacer par exemple par
Code:

1 2 'Sauvegarder le classeur sans le fermer wb.Save
21/12/2023, 15h01
sophang

Bonjour Franc,

Merci beaucoup pour ces précieux points.