Discussion :

[nitro95]

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 :

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

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

[Invité]

Code :

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

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.

[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 !

[Invité]

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.

[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 ?

[Invité]

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

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
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.

[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 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+

[nitro95]

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 :

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
 
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.

[Invité]

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.