Discussion :

[Alaindhu]

Bonjour à tous,

J'ai le code suivant qui me permet de supprimer des lignes dans les deux feuilles du fichier ci-joint.
Le problème est que les données permettant la suppression dans la feuille 1 sont issues d'une formule =Feuil2$B2 par ex.
Comment je peux faire pour qu'Excel comprenne que je veux supprimer une ligne en fonction de ce que contient le résultat d'une formule dans une cellule dans la colonne A par ex?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton1_Cliquer()
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?", "Welcome", "Prenom Nom")
With Worksheets("Feuil2")
    For i = .Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("B" & i).Value = Editeur Then .Rows(i).Delete shift:=xlUp
   Next i
End With
'
With Worksheets("Feuil1")
    For i = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("A" & i).Value FORMULA = Editeur Then .Rows(i & ":" & i + 1).Delete shift:=xlUp
    Next i
End With
End Sub

==> J'ai tenté avec Formula mais ne vois pas comment structurer la ligne de code.

Merci de votre aide!
Alain

[riaolle]

Bonjour,
Pourquoi n'écris-tu pas tout simplement .Range("A" & i).Value = Editeur ?
.Value permet de lire la valeur de la cellule. Même s'il y a une formule, on obtiendra le "résultat" de la formule. Ça ne change rien, le fait qu'il y ait une formule.

[Alaindhu]

Parce que quand je mets

Code :

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

If .Range("A" & i).Value = Editeur Then .Rows(i & ":" & i + 1).Delete shift:=xlUp

J'ai le débogueur qui me dit qu'il y a une erreur dans le code en gras ci-dessus d'une part et que d'autre part, Excel ne supprime pas les lignes dans la feuille 1 comme exemple dans le fichier joint.

C'est pour cela que je me suis orienté vers une formula mais selon toi ça n'est pas la solution?

test.xlsm

[riaolle]

Formula ne me paraît pas être la bonne solution dans ton cas, car cette fonction renvoie la formule qui est écrite dans la cellule et pas la valeur de la cellule : https://msdn.microsoft.com/fr-fr/lib.../ff838835.aspx
Pourrais-tu nous dire quelle est l'erreur que tu obtiens, stp?

Est-ce que la 1ère partie de ton code (avec Feuil2) marche, mais pas la 2ème (avec Feuil1)?

[Alaindhu]

a ok merci pour la précision pour Formula, je comprends mieux.

Pour répondre à ta question:

1/ cette partie du code marche très bien:

Code :

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

1
2
3
4
5
6
7
Sub Bouton1_Cliquer()
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?", "Welcome", "Prenom Nom")
With Worksheets("Feuil2")
    For i = .Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("B" & i).Value = Editeur Then .Rows(i).Delete shift:=xlUp
   Next i
End With

==> Cela supprime la ligne qui contient la valeur conditionnelle de suppression dans la feuille 2

2/With Worksheets("Feuil1")

Code :

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

1
2
3
4
5
    For i = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("A" & i).Value = Editeur Then .Rows(i & ":" & i + 1).Delete shift:=xlUp
    Next i
End With
End Sub

c'est cette partie la qui ne fonctionne pas. Elle devrait supprimer la ligne qui contient la valeur conditionnelle de suppression plus la ligne du dessous (feuille 1).
Mais elle ne fait rien puisque le debogeur s'active et j'ai un #REF qui apparaît dans la cellule qui contenait la valeur conditionnelle.

Merci encore pour ton aide,

[halaster08]

c'est cette partie la qui ne fonctionne pas. Elle devrait supprimer la ligne qui contient la valeur conditionnelle de suppression plus la ligne du dessous (feuille 1).
Mais elle ne fait rien puisque le debogeur s'active et j'ai un #REF qui apparaît dans la cellule qui contenait la valeur conditionnelle.

Je viens de tester le code suivant et je n'ai aucune erreur:

Code :

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

1
2
3
4
5
6
7
8
Sub aa()
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?", "Welcome", "Prenom Nom")
With Worksheets("Sheet1")
For i = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If .Range("A" & i).Value = Editeur Then .Rows(i & ":" & i + 1).Delete shift:=xlUp
Next i
End With
End Sub

As tu essayé le mode pas à pas (touche F8) pour voir quand exactement le #REF apparait?

[halaster08]

Bonjour,

edit: au temps pour moi c'est une variable je ne l'avais pas vu.
Si tu pouvais mettre ton code entre balise (bouton #), ça m'éviterais de dire n'importe quoi ^^