sélection sur un format

[kinel]

bonjour à tous

j'utilise ce code dans une feuille pour appeler une macro mais je voudrai lui donner plus de précision:
je voudrai limiter, dans la sélection A243:A1967, les cellules contenant un code au format "ABC+123"
(3 lettres, le signe +, 3 chiffres)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect([A243:A1967], Target) Is Nothing Then
Call prendre_ce_code
End If
Cancel = True

End Sub


merci de votre aide

Kinel

 

[Pierrot93]

Re : sélection sur un format

Bonjour,

essaye peut être ceci :

Option Explicit
Option Compare Text
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([A243:A1967], Target) Is Nothing And Target Like "[A-Z][A-Z][A-Z]+###" Then
Cancel = True
Call prendre_ce_code
End If
End Sub

bonne journée
@+

 

[kinel]

Re : sélection sur un format

Bonjour à tous

merci Pierrot93 ça fonctionne à merveille

bonne journée à tous

Kinel