[ excel ]mettre en majuscule
Résolu
jharde
Messages postés
98
Statut
Membre
-
jharde Messages postés 98 Statut Membre -
jharde Messages postés 98 Statut Membre -
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+
