Discussion :

[pdossantos]

Bonjour
Je suis débutant en VBA et Je rencontre un problème, je souhaite exécuter du code lors du basculement vers une autre feuille, mais impossible de quitter la feuille "Filtre_RFC" pour laquelle j'ai crée l'évènement suivant, où est mon erreur ?
Merci d'avance

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
Private Sub Worksheet_Deactivate()
    If erreur = "1" Then
        MsgBox "Anomalie dans la feuille Filtre_RFC !", , "Attention"
        Me.Select
    Else
        Me.Select
        Range("A2").Select
        For i = 1 To 19
        If ActiveCell = "" And ActiveCell.Offset(0, 1) = "" Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(1, 0).Select
        Next
    End If
End Sub

[Docmarti]

Bonjour.

Me représente la feuille.

La commande
Me.Select
signifie Réactive-moi.

[pdossantos]

Merci pour votre réponse mais si j'enlève l'instruction Me.select j'obtiens une erreur "1004" !



Comment faire pour exécuter ce code si je ne suis plus dans la feuille active ?

[Docmarti]

Comme ceci:

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
Private Sub Worksheet_Deactivate()
If erreur = "1" Then
MsgBox "Anomalie dans la feuille Filtre_RFC !", , "Attention"
Me.Select
Else
 
Set r = Me.Range("A2")
For i = 19 To 1 Step -1
Set c = r.Offset(i)
If c = "" And c.Offset(0, 1) = "" Then
c.EntireRow.Delete
End If
 
Next
End If
End Sub

[pdossantos]

Merci Docmarti, cela fonctionne mais j'ai pas bien compris à quoi corresponde les variables "c" et "r"
A bientôt

[Docmarti]

Code :

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

Set r = Me.Range("A2")

C'est que je suis paresseux. Plutôt que de taper et retaper Me.Range("A2") dans le code, je crée l'objet r qui réfère à l'objet Me.Range("A2"). Je peux donc remplacer Me.Range("A2") par r partout dans le code. C'est plus rapide de taper r que de taper Me.Range("A2") et le code est plus facile à lire.

Mais tu peux écrire le code comme ceci si tu préfères :

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
Private Sub Worksheet_Deactivate()
If erreur = "1" Then
MsgBox "Anomalie dans la feuille Filtre_RFC !", , "Attention"
Me.Select
Else
 
For i = 19 To 1 Step -1
 
If Me.Range("A2").Offset(i) = "" And Me.Range("A2").Offset(i).Offset(0, 1) = "" Then
Me.Range("A2").Offset(i).EntireRow.Delete
End If
 
Next
End If
End Sub

En passant, tu pourrais remplacer

Code :

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

Me.Range("A2").Offset(i).Offset(0, 1)

par

Code :

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

Me.Range("A2").Offset(i,1)

Les deux sont équivalents.