test du contenu d'une colonne

remady

XLDnaute Nouveau
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
 

Pièces jointes

  • test.xls
    29.5 KB · Affichages: 71
  • test.xls
    29.5 KB · Affichages: 71
  • test.xls
    29.5 KB · Affichages: 73

remady

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

Pierrot93

XLDnaute Barbatruc
Re : test du contenu d'une colonne

Bonjour Remady, Tibo:)

essaye ainsi :

Code:
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
@+
 
G

Guest

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:

Code:
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+
 
Dernière modification par un modérateur:

Habitude

XLDnaute Accro
Re : test du contenu d'une colonne

tu peux aussi simplifier comme ceci

Code:
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

Code:
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
 

Discussions similaires

Réponses
5
Affichages
501
Réponses
18
Affichages
651

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki