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.