VBA supprimer contenu cellules

P

phestaca

Guest

• 3 Août 2009

• #2

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

 

Vote positif 0 Vote négatif

A

actaris51

XLDnaute Occasionnel

• 3 Août 2009

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Août 2009

• #4

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

 

Vote positif 0 Vote négatif

P

phestaca

Guest

• 3 Août 2009

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Août 2009

• #6

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

Code:

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

@+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Août 2009

• #7

Re : VBA supprimer contenu cellules

Bonjour,

si #N/A issu de formules :

Code:

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 :

Code:

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

Bonne journée

 

Vote positif 0 Vote négatif