Plusieurs choix Résolu/Fermé

Question

Bonjour, 

Voilà, j'ai fais cette petite macro. Pouvez vous me dire comment faire la ligne à plusieurs choix. 
'choix pour date de naissance
    Sheets("Préparation").Select
    If Range("B4") = "P1" Or "P2" Or "P3" Then 'Vous l'avez devinez c'est ici que je suis nul !!
    Sheets("Identitépotentielle").Select
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=Daterecherchée"
    End If
    If Range("B4") = "S1" Or "S2" Or "S3" Then
    Sheets("Identitépotentielle").Select
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=Datesecondaire"
    End If

Merci d'avance pour votre aide. Et je sais de quoi vous êtes capable car vous m'avez déjà énormément dépanné !! Vous êtes des dieux pour celui qui découvre et débute dans dans Excel

gbinforme · Answer

Bonjour, 

Une façon simple de le faire que l'on n'utilise pas assez :
'choix pour date de naissance    Select Case Sheets("Préparation").Range("B4")        Case "P1", "P2", "P3"            Sheets("Identitépotentielle").Range("C2").FormulaR1C1 = "=Daterecherchée"        Case "S1", "S2", "S3"            Sheets("Identitépotentielle").Range("C2").FormulaR1C1 = "=Datesecondaire"    End SelectEnd Sub

Plusieurs choix

1 réponse

Discussions similaires