Condition If

Bonjour est-il possible d'utiliser la condition If de la manière suivante?

If ComboBPI1.Value = "Feuil2" Then Sheets("feuil2").Activate

    Range("F7").Select
    ActiveCell = TextPI13.Value
    Range("F8").Select
    ActiveCell = TextPI4.Value

    Sheets("Resultat").Activate
    Range("D30").Select
    ActiveCell.FormulaR1C1 = "='feuil4'!R[-11]C[2]"

    If ComboBPI1.Value = "feuil3" Then Sheets("feuil3").Activate

    Range("F7").Select
    ActiveCell = TextPI13.Value
    Range("F8").Select
    ActiveCell = TextPI4.Value

    Sheets("Resultat").Activate
    Range("D30").Select
    ActiveCell.FormulaR1C1 = "='feuil4''!R[-11]C[2]"

bonjour,

c'est possible, mais pas sûr que cela donne le résultat que tu attends.

je pense que ceci correspond plus à ce que tu attends.

 If ComboBPI1.Value = "Feuil2" Then
        Sheets("feuil2").Range("F7") = TextPI13.Value
        Sheets("feuil2").Range("F8") = TextPI4.Value
        Sheets("Resultat").Range("D30").FormulaR1C1 = "='feuil4'!R[-11]C[2]"
    ElseIf ComboBPI1.Value = "feuil3" Then
        Sheets("feuil3").Range("F7") = TextPI13.Value
        Sheets("feuil3").Range("F8") = TextPI4.Value
        Sheets("Resultat").Range("D30").FormulaR1C1 = "='feuil4'!R[-11]C[2]"
    End If

Bonjour,

merci beaucoup vous m'avez bien aidé