Changement text column

[F2T]

Bonjour,

j'aimerais ecrire une ligne de code me permettant de modifier le contenu d'une cellule sous conditions.
L'idée du code est celle ci:

If Column G text = "#ref" then Text="".

Si quelqu'un sait synthaxer cela correctement. Cela me serait d'une grande utilité.

Vous en remerciant d'avance.



ps : si une des cellules contient #ref alors le transformer en "".

 

[Pierrot93]

Re : Changement text column

Bonsoir,

essaye peut être le code ci-dessous :

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("G1:G" & Range("G65536").End(xlUp).Row)
    If UCase(c.Text) = "#REF" Then c = ""
Next c
End Sub

bonne soirée
@+

 

[LaX]

Re : Changement text column

Bonjour,

dim cel as range
dim rnge as range

Set rnge = Sheets("Feuil1").Range("G1:G" & Sheets("Feuil1").Range("G65000").end(xlup).row)

For each cel in rnge
if cel.value = "#ref" then cel.clearcontents
next cel

LaX

edit: Arf Pierrot plus rapide que moi ^^

 

[Guest]

Re : Changement text column

Bonjour tous,

Ou pour ne parcourir que les cellules contenant une formule avec erreur:

Sub TransErreurRef()
    Dim c As Range
    Dim plage As Range
     On Error Resume Next
     Set plage = ActiveSheet.Range("G:G").SpecialCells(xlCellTypeFormulas, xlErrors)
     If Err <> 0 Then GoTo FIN
     If Not plage Is Nothing Then
        For Each c In plage
         If c = CVErr(xlErrRef) Then c.ClearContents
        Next
     End If
FIN:
End Sub

J'ai mis 'c.ClearContents' qui vide la cellule plutôt que c = "" parceque "" est une valeur mais tu fais comme tu veux.

A+

 

[Pierrot93]

Re : Changement text column

Re, bonsoir Lax, Hasco

Bien vu Hasco, bonne combinaison du "SpecialCells" et du "CVErr"... bravo....