Si valeur commence par une lettre en contient un tiret ( VBA )

Victor21

XLDnaute Barbatruc

• 1 Mai 2015

• #2

Re : Si valeur commence par une lettre en contient un tiret ( VBA )

Bonjour bibbip35.

Cette fonction est native dans Excel : Données, Validation, autoriser : Personnalisé formule :

=NBCAR(SUBSTITUE(A1;"-";""))=NBCAR(A1)

Cliquez pour agrandir...

message d'alerte : "Attention, valeur A1 KO".
Par contre, pas de message s'il n'y a pas d'erreur, mais vous pouvez prévoir, toujours avec cette fonction, un message d'alerte lorsque A1 est sélectionné : "Pas de tiret chez moi !".

 

Dernière édition: 1 Mai 2015

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 1 Mai 2015

• #3

Re : Si valeur commence par une lettre en contient un tiret ( VBA )

Merci Victor21

Mais j'aurrais besoin de le faire sous VBA
Car c'est pour ensuite bloquer une macro qui réalise des opérations

Merci

Bibbip35

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 1 Mai 2015

• #4

Re : Si valeur commence par une lettre en contient un tiret ( VBA )

Bonjour, bibbip35, Patrick

comme ceci peut-être

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
 rep = IIf(Not IsNumeric(Target), "Attention valeur " & Target.Address & " KO", "Valeur " & Target.Address & " OK")
MsgBox rep
End Sub

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 1 Mai 2015

• #5

Re : Si valeur commence par une lettre en contient un tiret ( VBA )

Bonjour à tous

@ Gilbert_RGI : Où tiens tu compte de cette partie "et contient un tiret" de la demande de bibbip35 dans ta macro ?

Merci.

@ plus

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 1 Mai 2015

• #6

Re : Si valeur commence par une lettre en contient un tiret ( VBA )

Désolé mal lu merci CISCO

alors voilà qui devrait faire la demande

 

Pièces jointes

• msg_valeur_cellule.xlsm

  18.7 KB · Affichages: 30

Dernière édition: 1 Mai 2015

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 1 Mai 2015

• #7

Re : Si valeur commence par une lettre en contient un tiret ( VBA )

Bonjour,
via une fonction personnalisée utilisant une expression rationnelle :

Code:

Function toto(c As String) As Boolean
Dim oRegExp As Object
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.ignorecase = True
oRegExp.Pattern = "^[a-z]{1}.*-.*"
If oRegExp.test(c) Then toto = True
End Function

On peut aussi procéder autrement via les fonctions LEFT et INSTR de VBA.
A+

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 1 Mai 2015

• #8

Re : Si valeur commence par une lettre en contient un tiret ( VBA )

Merci à tous pour vos reponses

Mais j'ai pas bien compris pour utiliser ces codes dans mon cas
je vous rassurre c'est moi... avec l'age

En faite pour être plus clair dans mon besoin final que je souhaitais adapté...

Si A1 = C100
Call C100 ==> C'est une macro de mise en forme

Si A1 = C100-1
Call C100-1

Si A1=1C100
Call 1C100

Si A1 <> C100 & C100-1 & 1C100
EXIT SUB


DESOLER DE NE PAS AVOIR ETE PLUS CLAIR DES LE DEBUT
mais je pensais y arriver sans vous en demander trop...

cdlt

Bibbip35

 

Vote positif 0 Vote négatif