Macro If ... Then ... ?

Bonjour,

Je n'arrive pas à faire une macro qui pourrait paraître simple (ou je ne suis pas très réveillée) donc je demande votre aide.

Je voudrais dire en gros : tu prends toute la colonne 27, si les cellules sont égales à "oui" alors tu laisses "oui" sinon tu mets vide, soit "".

J'ai un truc de ce genre mais pas terrible à la base :

            If objSuivi.Cells(lRow, 27).Value = "oui" Then
            objSuivi.Cells(lRow, 27).Value = "oui"
            Else
            objSuivi.Cells(lRow, 27).Value = ""
            End If

Merci.

Bonjour,

Essaye cette macro :

Sub LaisseOUI()
'Macro par Dan le 26/09/07
Dim cel As Range
For Each cel In Range("AA1", Range("AA65536").End(xlUp))
With Sheets("objSuivi")
If cel.Value <> "oui" Then cel.Value = ""
End With
Next cel
End Sub

J'ai supposé que le nom de ta feuille est --> objSuivi

La colonne contenant les OUI étant la colonne AA

A te lire

Dan

Merci Nad-Dan !!!

Ma feuille se nomme Suivi Dossiers et la colonne visée est la colonne X ... mais à ma sauce cela ne marche pas donc qu'ai-je de faux :

Sub LaisseOUI() 
'Macro par Dan le 26/09/07 
Dim cel As Range 
For Each cel In Range("X1", Range("XA65536").End(xlUp)) 
With Sheets("Suivi Dossiers") 
If cel.Value <> "oui" Then cel.Value = "" 
End With 
Next cel 
End Sub

Merci.

re,

Supprime le A dans cette instruction --> For Each cel In Range("X1", Range("XA65536").End(xlUp))

Amicalement

Dan

Suis-je bête ...

Merci ... je te tiens au courant !