Bonjour à tous.
voilà je voudrais mettre les deux lettre quelle quel soit en majuscules si joint le MSG
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CelluleVise As Range
Dim Reponse As Variant
Dim Question As String
Dim Titre As String
Set CelluleVise = Application.Intersect(Target, Range('B7:B51'))
If CelluleVise Is Nothing Then
'MsgBox 'La cellule n'est pas dans l'intersection'
DoEvents
Else
'MsgBox 'La cellule est dans l'intersection'
DoEvents
If (ActiveCell.FormulaR1C1 = 'Chèque') Then
Question = 'Entrer un numéro de chèque s.v.p.'
Titre = 'Saisie du numéro de chèque'
Reponse = InputBox(Question, Titre, ('1000000 AB')
ActiveCell.Offset(0, 1).Value = Reponse
End If
End If
('1000000 AB ')
les lettres soulignés peuvent etre toutes lettres de l'aphabétique
je vous remerci par avance.
A+
voilà je voudrais mettre les deux lettre quelle quel soit en majuscules si joint le MSG
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CelluleVise As Range
Dim Reponse As Variant
Dim Question As String
Dim Titre As String
Set CelluleVise = Application.Intersect(Target, Range('B7:B51'))
If CelluleVise Is Nothing Then
'MsgBox 'La cellule n'est pas dans l'intersection'
DoEvents
Else
'MsgBox 'La cellule est dans l'intersection'
DoEvents
If (ActiveCell.FormulaR1C1 = 'Chèque') Then
Question = 'Entrer un numéro de chèque s.v.p.'
Titre = 'Saisie du numéro de chèque'
Reponse = InputBox(Question, Titre, ('1000000 AB')
ActiveCell.Offset(0, 1).Value = Reponse
End If
End If
('1000000 AB ')
les lettres soulignés peuvent etre toutes lettres de l'aphabétique
je vous remerci par avance.
A+
