Macro : suppression contenu cellule si #valeur!

[Tex]

Bonjour,

Je souhaite avoir une macro qui me permettrait de supprimer sur la colonne A le contenu de la première cellule ayant comme résultat : #valeur! et seulement la première.

Dans le fichier ci-joint cette première cellule est celle située en A9.


Merci
Cdlt
Tex

 

[Matheop]

Re : Macro : suppression contenu cellule si #valeur!

Salut Tex.

Essaie ceci pour voir ...

Sub Test()

Application.ScreenUpdating = False
Sheets(1).Range("A1").Select

For x = 1 To ActiveSheet.UsedRange.Rows.Count
    If Range("A" & x).Text = "#VALEUR!" Then
        Range("A" & x).Delete
        Exit Sub
    End If
Next x

End Sub

Bonne continuation.

 

[Tex]

Re : Macro : suppression contenu cellule si #valeur!

Merci pour ton aide.

Malheureusement cette macro supprime le contenu de la dernière cellule présente sur la colonne A et non la première (A9 dans le fichier).
Mais nous sommes sur le bon chemin, j'espère 🙂

 

[Matheop]

Re : Macro : suppression contenu cellule si #valeur!

T'es sûr? Bizarre parce que chez moi ça marche plutôt bien..
Quand je relis ma macro ça me paraît 'logique': on part de 1 jusqu'à la dernière ligne non vide de ta feuille et dès qu'on trouve une cellule avec le contenu #VALEUR! on supprime la cellule et on quitte la macro afin d'éviter de supprimer les éventuelles autres cellules qui auraient le même contenu.

Ceci dit, quand une cellule est supprimée les lignes suivantes sont remontées automatiquement d'où ton impression - peut être - que c'est la dernière cellule qui soit supprimée?

 

[Tex]

Re : Macro : suppression contenu cellule si #valeur!

En effet la macro fait correctement son travail.
Seulement je voudrais que la cellule ciblée reste à sa place tout en étant vide...

 

[Matheop]

Re : Macro : suppression contenu cellule si #valeur!

Mea culpa.
Suffit de remplacer le Delete par ClearContents ce qui je pense devrait aller mieux. 😎

 

[Tex]

Re : Macro : suppression contenu cellule si #valeur!

Merci ça fonctionne très bien 🙂

 

[Tex]

Re : Macro : suppression contenu cellule si #valeur!

Bonjour,

Je viens de modifier la macro pour qu'elle fonctionne sur n'importe quel onglet :

Sub Test()

Application.ScreenUpdating = False

For x = 1 To ActiveSheet.UsedRange.Rows.Count
If Range("A" & x).Text = "#VALEUR!" Then
Range("A" & x).ClearContents
Exit Sub
End If
Next x
End Sub

a+