Suppression de lignes avec Macro

Version imprimable

Bonsoir,

J'ai un problème avec une macro qui fonctionnait parfaitement dans un autre fichier excel.
Ce fichier a été mis à jour pour 2015 mais les données n'ont pas été changées.

La macro est censée recherchée les cellules vides sur une plage puis supprimer les lignes correspondantes; la voici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 If MyString = "Oui" Then Sheets("A SUPP reco").Select Range("B19:F115").Select Selection.Sort Key1:=Range("C19"), Order1:=xlAscending, Key2:=Range("B21" _ ), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom Columns(3).Find("Vide").Select lig_dep = Selection.Row Range(lig_dep & ":120").Select Selection.Delete Shift:=xlUp End If Range("A1").Select End Sub
Sauf que lorsque je la lance j'ai l'erreur suivante : "erreur d'exécution 91"

Pourriez vous m'aider ?

Merci par avance

21/01/2015, 07h48
Invité
Citation:
Envoyé par nitro95

Code:

1 2 3 Columns(3).Find("Vide").Select lig_dep = Selection.Row
Bonjour,

Comment êtes-vous sûr de l'existence du mot "Vide" en colonne C ?

Cordialement.
21/01/2015, 08h34
nitro95

Je n'en suis pas sur, je cherche les cellules vides!
Dans cette colonne, il y a une fonction Si, si elle est fausse les colonnes sont vides.
Le debogeur me dit que l'erreur vient de cet endroit mais je ne comprends pas pourquoi car cela fonctionnait auparavant !
21/01/2015, 08h52
Invité

Citation:

Envoyé par nitro95

Dans cette colonne, il y a une fonction Si, si elle est fausse les colonnes sont vides.
Le debogeur me dit que l'erreur vient de cet endroit mais je ne comprends pas pourquoi car cela fonctionnait auparavant !

S'il n'y a pas de cellule avec le mot "Vide", lig_dep n'est pas trouvée et la sélection échoue. Il vous faut tester la présence du mot "Vide" pour sélectionner et supprimer.

Cordialement.
21/01/2015, 09h16
nitro95

Merci, je suis débutant donc je manque d'idées !

Si je mets un mot "vide" caché en début de sélection, est ce que cela peut fonctionner ?

Une proposition sans trier l'aire B19:F115 et jusqu'à la ligne 115

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub EssaiSuppressionLignes()
 
Dim FeuilleReco As Worksheet
Dim LigneEnCours As Long
Dim ColonneATester As Long
Dim MyString As String
 
    MyString = "Oui"
 
    If MyString = "Oui" Then
        Set FeuilleReco = Sheets("A SUPP reco")
        ColonneATester = 3
        With FeuilleReco
             For LigneEnCours = 115 To 19 Step -1
                 If .Cells(LigneEnCours, ColonneATester) = "Vide" Then .Cells(LigneEnCours, ColonneATester).EntireRow.Delete Shift:=xlUp
             Next LigneEnCours
        End With
        Set FeuilleReco = Nothing
    End If
 
End Sub

Cordialement.

21/01/2015, 09h51
Igloobel

Pour rechercher des cellules vide il est inutile d'écrire le mot "vide" (car du coup c'est plus vide)

donc je te conseille d'utilisé soit : IsEmpty (faire :f1: pour plus de détail), soit :"" (sans rien entre les guillemets)

j'espère que ces 2 pistes t'aideront pour résoudre ton problème

A+

Hello,

Merci pour votre réponse, j'ai réussi à adapter ce que je voulais grâce au code fourni.

Dorénavant, une autre idée me vient à l'esprit mais je ne sais pas comment mettre cela en pratique :

Avant de lancer la macro (en cliquant sur un objet), je veux qu'elle s'assure que toutes les lignes contiennent "oui" ou "non" et non pas "erreur".
Comment faire ?

Voici le code à l'heure actuelle :

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
 
Sub Reco()
Dim lig_dep As Integer
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Souhaitez-vous vraiment établir le rapport ?"    ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Title = "VALIDATION "    ' Définit le titre.
Help = "DEMO.HLP"    ' Définit le fichier d'aide.
Ctxt = 1000    ' Définit le contexte de
                ' la rubrique.
' Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' L'utilisateur a choisi Oui.
    MyString = "Oui"    ' Effectue une action.
Else    ' L'utilisateur a choisi Non.
    MyString = "Non"    ' Effectue une action.
End If
If MyString = "Oui" Then
 
        Set FeuilleReco = Sheets("A SUPP reco")
        ColonneATester = 3
        With FeuilleReco
             For LigneEnCours = 100 To 5 Step -1
                 If .Cells(LigneEnCours, ColonneATester) = "ZOui" Then .Cells(LigneEnCours, ColonneATester).EntireRow.Delete Shift:=xlUp
             Next LigneEnCours
        End With
        Set FeuilleReco = Nothing
    End If
 
End Sub

Merci par avance.

23/01/2015, 12h52
Invité

Citation:

Envoyé par nitro95

Hello,
Avant de lancer la macro (en cliquant sur un objet), je veux qu'elle s'assure que toutes les lignes contiennent "oui" ou "non" et non pas "erreur".
Comment faire ?

Bonjour,

Il faut que le nombre de cellules avec Oui et Non soit égal au nombre total de cellules de l'aire testée. Vous pourriez le faire avec une fonction Nb.SI.

Vous déclenchez la macro s'il y a égalité.

Cordialement.