test du contenu d'une colonne

[remady]

Bonjour tout le monde,

j'ai un petit problème que j'explique sur le fichier excel joint, merci à ceux qui pourront m'apporter la solution.

Cdlt

 

[Tibo]

Re : test du contenu d'une colonne

Bonjour,

Un essai en C2 avec cette formule :

=SI(ESTNUM(CHERCHE("dw";$B2));"oui";"non")

à recopier vers le bas

@+

 

[remady]

Re : test du contenu d'une colonne

Bonjour tibo,

Merci pour la rapidité de ta réponse, le fait est que je préfère le réaliser en VBA, puisque je devrais l'intégrer ensuite dans une macro plus compliqué, ceci n'est donc qu'un test, mon utilisation ne se limite pas à ca.

Si t'as une autre proposition, je te remercie, la macro en question est dans le module1.

 

[remady]

Re : test du contenu d'une colonne

Up,

personne pour jeter un coup d'oeil à cette macro

 

[Pierrot93]

Re : test du contenu d'une colonne

Bonjour Remady, Tibo

essaye ainsi :

Sub contient()
Dim j As Long, c As Range
j = Range("B65536").End(xlUp).Row
For Each c In Sheets("DW").Range("B2:B" & j)
    If c.Value Like "*DW*" Then
        c.Offset(0, 1).Value = "OUI"
        Else
        c.Offset(0, 1).Value = "Non"
    End If
Next c
End Sub

bon après midi
@+

 

[Guest]

Re : test du contenu d'une colonne

Bonjour Remady

Tibo

@Remady, pas besoin d'avoir 2 boucles pour parcourir un colonne, une seule suffit:

Sub contient()
Dim i As Long, j As Long, c As Range
j = Range("B65536").End(xlUp).Row
 
    For Each c In Sheets("DW").Range("B2:B" & j)
        If c.Value Like "*DW*" Then
 
           c.Offset(, 1).Value = "OUI"
 
        Else
            c.Offset(, 1) = "Non"
        End If
    Next
End Sub

[Edit] hello Pierrot

A+

 

[Habitude]

Re : test du contenu d'une colonne

tu peux aussi simplifier comme ceci

Sub contient()
    Dim c As Range
    For Each c In Sheets("DW").Range("B2:B" & Range("B65536").End(xlUp).Row)
        c.Offset(, 1) = c Like "*DW*"
    Next
End Sub

Ou si tu tiens a avoir oui et non

Sub contient()
    Dim c As Range
    For Each c In Sheets("DW").Range("B2:B" & Range("B65536").End(xlUp).Row)
        c.Offset(, 1) = IIf(c Like "*DW*", "Oui", "Non")
    Next
End Sub

 

[remady]

Re : test du contenu d'une colonne

Re,

Merci à vous tous, et dire que pour une fois j'ai cru que j'allais pas trouver de solution dans ce forum

merci encore une fois .

cdlt

 

[Pierrot93]

Re : test du contenu d'une colonne

Re,

le mieux eut été de préciser que tu recherchais une solution vba, et de décrire le problème directement sur le post... A mon avis tu aurais sans doute eut une réponse plus rapidement....