Tester une cellule

Jul74ien74 · 10 Octobre 2014

Bonjour,

si je souhaite tester si une cellule de la colonne K, avec trois extensions qui renvoie chacun des actions différentes, le code donne quoi car je cherche mais je bloque.
En gros si dans la cellule j'ai l'extension .dwg ca fait ca, l'extension.xls ca fait ci...
Je sais pas si vous m'avez compris

djidji59430 · 10 Octobre 2014

Re : Tester une cellule

=si(droite(a1;3)=dwg;"ça";si(droite(a1;3)=xls;"ci"; etc..........))

camarchepas · 10 Octobre 2014

Re : Tester une cellule

Bonjour,

Pour K1 par exemple

si focntion evenementielle , mettre Target.value à la place de Range("K1")

Code:

Sub choix()

Select Case Range("K1")

Case ".xls"
  'Action 1
Case ".doc"
  'Action 2
Case ".dbg"
   'Action 3
End Select
End Sub

Staple1600 · 13 Octobre 2014

Re : Tester une cellule

Bonjour à tous

Une autre façon de faire:
(Copier tout le code VBA ci-dessous dans un module standard, sans oublier les macros: Macro1,..,Macro5)
Pour tester, lancer la macro tests
Code VB:
Dim y As String
Sub tests()
Range("A1") = "toto.dgw": a
Range("A1") = "toto.xls": a
Range("A1") = "toto.pdf": a
Range("A1") = "toto.ppt": a
End Sub
Private Sub a()
Dim strEXT$
strEXT = "XLSDOCDGWPDFPPT"
y = UCase(Mid(Range("A1").Text, InStrRev(Range("A1").Text, ".") + 1, 3))
Application.Run "Macro" & Int(1 + InStr(1, strEXT, y) / 3)
End Sub

[TABLE="width: 550"]
[TR]
[TD]Sub Macro1()
MsgBox "MACRO1", vbInformation, "Extension: " & y
End Sub
[/TD]
[TD]Sub Macro4()
MsgBox "MACRO4", vbInformation, "Extension: " & y
End Sub
[/TD]
[/TR]
[TR]
[TD]Sub Macro2()
MsgBox "MACRO2", vbInformation, "Extension: " & y
End Sub
[/TD]
[TD]Sub Macro5()
MsgBox "MACRO5", vbInformation, "Extension: " & y
End Sub
[/TD]
[/TR]
[TR]
[TD]Sub Macro3()
MsgBox "MACRO3", vbInformation, "Extension: " & y
End Sub
[/TD]
[TD][/TD]
[/TR]
[/TABLE]

Tester une cellule

Jul74ien74

Guest

djidji59430

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

Tester une cellule

Jul74ien74

Guest

djidji59430

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency