macro avec condition en fonction d'une partie de la valeur d'une cellule

JNP

XLDnaute Barbatruc

• 21 Avril 2009

• #2

Re : macro avec condition en fonction d'une partie de la valeur d'une cellule

Bonjour Esstin ,
Avec ceci peut-être

Code:

If Cells(1, 1) Like "*B*" Then MsgBox "OK"

Bonne soirée

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 21 Avril 2009

• #3

Re : macro avec condition en fonction d'une partie de la valeur d'une cellule

Bonjour


Une proposition

Code:

Sub test()
If Cells(1, "C") Like "*B*" Then
Cells(20, "C") = Cells(1, "C")
End If
If Cells(1, "C") Like "*M*" Then
Cells(20, "D") = Cells(1, "C")
End If
End Sub

EDITION: houps désolé pour la collision JNP

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Avril 2009

• #4

Re : macro avec condition en fonction d'une partie de la valeur d'une cellule

Bonsoir à tous

pour une succession de tests sur la même cellule j'utiliserais "elseif" ,

Code:

If Range("A1").Value Like "*B*" Then
    Range("A1").Copy Range("C20")
    ElseIf Range("A1").Value Like "*M*" Then Range("A1").Copy Range("D20")
End If

s'arretera dès lors qu'une condition sera "vrai", possibilité également d'utiliser un "select case"...

bonne soirée
@+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 21 Avril 2009

• #5

Re : macro avec condition en fonction d'une partie de la valeur d'une cellule

Re, bonsoir Pierrot93

Une variante (pour le fun)

Code:

Sub test2()
Dim Quoi As Range
Set Quoi = Cells(1, "C")
Range(Switch(Quoi Like "*B*", "C20", Quoi Like "*M*", "D20")) = Quoi
End Sub

 

Vote positif 0 Vote négatif

E

esstin

XLDnaute Nouveau

• 21 Avril 2009

• #6

Re : macro avec condition en fonction d'une partie de la valeur d'une cellule

Merci beaucoup pour vos réponses qui m'ont grandement aidées.
Je ne connaissait pas la fonction Value Like
Bonne soirée à tous

 

Vote positif 0 Vote négatif