VBA supprimer contenu cellules

[actaris51]

Bonjour,
Dans ma colonne P, j'ai parfois des cellules qui ont la valeur "N/A" (en texte)
Je voudrais créer une macro qui remplace ces celulles par des celulles vides, en gros qui suppriment leur contenu.
Pouvez vous m'aider ?
Merci

 

[phestaca]

Re : VBA supprimer contenu cellules

Bonjour,

avec une boucle for sur ta colonne et un if ca devrait pouvoir se faire ...

Range("P1").select
' ActiveCell.End(xlDown).Row pour avoir ta derniere case remplie (attention ca s'arrete si tu as des blancs dans ta colonne)
For i =i to ActiveCell.End(xlDown).Row
If Range("P"&i).value = ""N/A"" then Range("P"&i).clearcontents
next i

voila simplement ce que j'aurai écris ...

 

[actaris51]

Re : VBA supprimer contenu cellules

A priori ca ne marche pas...
il ne voulait pas des doubles "" au niveau de "N/A", j'en ai donc enlevé un (en fait le etxte c'est N/A.
est tu sur du for i=i to ..?
merci

 

[Pierrot93]

Re : VBA supprimer contenu cellules

Bonjour,

si la variable "i" n'est pas initialisée, renverra 0, donc range("P0") renverra une erreur... ligne 0 n'existe pas...

bonne journée
@+

 

[phestaca]

Re : VBA supprimer contenu cellules

Oui i est a def, ca me paraissait evident like this :
Dim i as Integer

Si tu n'as que du N/A dans tes cases, mets juste "N/A"
Pour ce qui est du for i = 1 to ... comme tu dis, j'en utilise tout le temps !
il faut juste etre sur que ta colonne ne contient aucun vide
si ta colonne est remplie jusqu'a p20 par exemple mais que P15 est vide, mon code n'ira que jusqu'a p15 ...

 

[Pierrot93]

Re : VBA supprimer contenu cellules

Re,

si ton "#N/A" est un type d'erreur renvoyé par une formule, le code ci-dessous fera peut être l'affaire...

Dim i As Integer
For i = 1 To Range("P65536").End(xlUp).Row
    If IsError(Range("P" & i).Value) Then Range("P" & i).ClearContents
Next i

@+

 

[Cousinhub]

Re : VBA supprimer contenu cellules

Bonjour,

si #N/A issu de formules :

Sub erreurs_de_formules()
On Error Resume Next
Columns("P:P").SpecialCells(xlCellTypeFormulas, 16).Value = ""
On Error GoTo 0
End Sub

si c'est du texte :

Sub erreurs_texte()
On Error Resume Next
Columns("P:P").SpecialCells(xlCellTypeConstants, 16).Value = ""
On Error GoTo 0
End Sub

Bonne journée