Macro - Excel Office 2007

Résolu
nackerma Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
nackerma Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerais réaliser une simple macro qui me permettrait de supprimer les lignes contenant des Zéros pour différentes colonnes.

Pour cela, j'ai écris les lignes de code suivantes:

Sub supprime_ligne_0()
While ActiveCell <> "Fin"
If (ActiveCell.Offset(0, -7).Range("A1").Select = 0 Or ActiveCell.Offset(0, -6).Range("A1").Select) Then
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(0, 7).Range("A1").Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
End Sub


Le code marche bien pour une colonne contenant des Zéros, mais lorsque j'ajoute "Or ActiveCell.Offset(0, -6).Range("A1").Select" dans la fonction "If" pour 2 colonnes à la fois, j'obtient l'erreur suivante:

"Erreur d'exécution '1004': erreur définie par l'application ou par l'objet".

C'est ma première macro, je débute donc...

Merci à celui ou celle qui pourra m'aider.

Nicolas
A voir également:

2 réponses

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour

Remplace select par value pour que cela fonctionne.
0
Réponse 2 / 2
nackerma Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup!

C'est tout bon!


Nicolas
0