Probleme avec Select Case
Résolu
simkmil
Messages postés
481
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Probleme avec Select Case
- Aller à la ligne dans une case excel - Guide
- Please select boot device - Forum Windows
- Excel case choix multiple - Guide
- Raccourci clavier case à cocher ✓ - Forum Excel
- Case à cocher open office - Forum LibreOffice / OpenOffice
2 réponses
Bonjour,
1- une formule suffirait largement :
2- Cette formule, en VBA :
Macro à inscrire dans le module de la feuille concernée (depuis la feuille, clic droit sur l'onglet / visualiser le code / Copier-coller).
3- Un exemple de Select Case adapté à ta demande :
1- une formule suffirait largement :
=MAJUSCULE(GAUCHE(B3;3))
2- Cette formule, en VBA :
Macro à inscrire dans le module de la feuille concernée (depuis la feuille, clic droit sur l'onglet / visualiser le code / Copier-coller).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Len(Target.Value) > 2 Then
Range("H10") = UCase(Left$(Target.Value, 3))
End If
End If
End Sub
3- Un exemple de Select Case adapté à ta demande :
Sub EssaiSelectCase()
Select Case Worksheets("Feuil1").Range("B3").Value
Case "Aywaille"
Worksheets("Feuil1").Range("H10").Value = "AYW"
Case "Machin"
Worksheets("Feuil1").Range("H10").Value = "MAC"
Case "Truc"
Worksheets("Feuil1").Range("H10").Value = "TRU"
Case "Bidule"
Worksheets("Feuil1").Range("H10").Value = "BID"
Case Else
Worksheets("Feuil1").Range("H10").Value = "ERREUR FATALE"
End Select
End Sub
Merci beaucoup, je vais essayer cela cet après midi.
Après avoir envoyé ma demande j'avais en effet pense à la formule.mais le problème est que ces trois lettres doivent précéder une numérotation ( AYW-123) et avec incrément action.
Avec la formule, ça ne marchait pas.
Merci de ton aide.
Après avoir envoyé ma demande j'avais en effet pense à la formule.mais le problème est que ces trois lettres doivent précéder une numérotation ( AYW-123) et avec incrément action.
Avec la formule, ça ne marchait pas.
Merci de ton aide.
