Imbriqué des Conditions Excel code

Tu m'as demandé du VBA, la réponse est du VBa...

tu peux inclure le code dans une fonction personnalisée par exemple

en lisant ton message, tu sembles me dire que je n'ai pas compris ce que tu veux de plus tu ajoutes ligne 6 "réalisé" quèsaco ?

dsl, j'ai rajouté un autre truc (réalisé) sans que je me rend compte, mais je m'aperçoit que c'est un peu plus compliquer de plus que je ne suis pas un pro de VBA (je sais faire des trucs basiques),

sinon, l'action serait:

un check de chaque ligne de la colone A et appliquer la condition* dans la colone D de la meme ligne.

condition* :

Si A=SUP et C=Planifié alors D=C+2

Si A=COL alors D="NO MEMO"

Si A=EXT ou CRE....etc Alors D=C+1

ton CASE me semble bien fait, mais je ne sais pas comment l'integrer dans la Macro, les macros que je réalise c'est en utilisant l'enregistrement et puis je decouvre le code qui est géneré derierre en ouvrant VB dans l'onglet developpeur, merci pour ton aide si possible de me dire comment resoudre ce pb,

fallait le dire que tu connaissais pas VBA quand je te l'ai proposé! c'est pas un crime
mais tu peux résoudre ton pb par formule

fonction personnalisée à mettre dans un module

Function valoriser_ss_cond(cellule As Range) As Variant
Dim Lig As Integer

Lig = cellule.Row
Select Case cellule
     Case "SUP"
          If Cells(Lig, "C") = "Planifié" Then
               valoriser_ss_cond = Cells(Lig, "D") + 10
          Else
               valoriser_ss_cond = "ERROR"
          End If
     Case "MIG", "CRE"
          valoriser_ss_cond = Cells(Lig, "B") + 10
     Case "COL"
          valoriser_ss_cond = "NO MEMO"
     Case "EXT"
         valoriser_ss_cond = Cells(Lig, 2) + 1
     Case Else
          valoriser_ss_cond = "ERROR"
End Select
End Function

merci pour ce retour, j'ai essayé de mettre dans un module (Module 1) mais ça ne marche pas, si tu peux m'éclairer stp, merci

Sub Macro2()
Function valoriser_ss_cond(cellule As Range) As Variant
Dim Lig As Integer

Lig = cellule.Row
Select Case cellule
Case "SUP"
If Cells(Lig, "C") = "Planifié" Then
valoriser_ss_cond = Cells(Lig, "D") + 10
Else
valoriser_ss_cond = "ERROR"
End If
Case "MIG", "CRE"
valoriser_ss_cond = Cells(Lig, "B") + 10
Case "COL"
valoriser_ss_cond = "NO MEMO"
Case "EXT"
valoriser_ss_cond = Cells(Lig, 2) + 1
Case Else
valoriser_ss_cond = "ERROR"
End Select
End Function

End Sub

Tu n'as besoin d'encadrer la fonction par une Sub !!!
on écrit soit une fonction soit une sub...
alors tu vires sub macro2() et End sub

Ta prochaine réponse c'est début Février ?