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

Guest

• 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