Bonjour,
Impossible de me sortir de ce problème récurrent avec les formules longues qui ne veulent pas passer dans les codes VBA.
Formule souhaitée au final :
J'ai essayé ceci pour contourner le problème :
Impossible de remplacer le "XX" par un "=" pour que le contenu de la cellule devienne une formule à part entière.
Des suggestions ? Merci.
dieu08
Impossible de me sortir de ce problème récurrent avec les formules longues qui ne veulent pas passer dans les codes VBA.
Formule souhaitée au final :
=SI(ET(C2=C3;OU(L2="RFI Activité (Financement sur fonds Etat)";L2="RFI socle (financement sur fonds Conseil Général");OU(L3="RFI socle (financement sur fonds Conseil Général";L3="RFI Activité (Financement sur fonds Etat)"));"comb1";SI(ET(C2=C3;OU(L2="RFI Socle majoré(financement sur Conseil Général)";L2="RFI Activité majoré (Financement sur fonds Etat)");OU(L3="RFI Socle majoré(financement sur Conseil Général)";L3="RFI Activité majoré (Financement sur fonds Etat)"));"comb2";""))
J'ai essayé ceci pour contourner le problème :
Sub Macro1()
Worksheets("test").Activate
Cells(1, 1).Value = "XX" & "dum01" & "dum02" & "dum03" & "dum04" & "dum05" & "dum06" & "dum07" & "dum08" & "dum09" & "dum10" & "dum11" & "dum12" & "dum13" & "dum14" & "dum15" & "dum16" & "dum17" & "dum18" & "dum19"
dum01 = "SI(ET(C2=C3;OU(L2="
dum02 = """RFI Activité (Financement sur fonds Etat)"""
dum03 = ";L2=" & """RFI socle (financement sur fonds Conseil Général"""
dum04 = ");OU(L3="
dum05 = """RFI socle (financement sur fonds Conseil Général"""
dum06 = ";L3=" & """RFI Activité (Financement sur fonds Etat)"""
dum07 = "));"
dum08 = """comb1"""
dum09 = ";SI(ET(C2=C3;OU(L2="
dum10 = """RFI Socle majoré(financement sur Conseil Général)"""
dum11 = ";L2="
dum12 = """RFI Activité majoré (Financement sur fonds Etat)"""
dum13 = ");OU(L3="
dum14 = """RFI Socle majoré(financement sur Conseil Général)"""
dum15 = ";L3="
dum16 = """RFI Activité majoré (Financement sur fonds Etat)"""
dum17 = "));"
dum18 = """comb2"""
dum19 = ";""""))"
Cells.Replace What:="dum01", Replacement:=dum01, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum02", Replacement:=dum02, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum03", Replacement:=dum03, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum04", Replacement:=dum04, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum05", Replacement:=dum05, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum06", Replacement:=dum06, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum07", Replacement:=dum07, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum08", Replacement:=dum08, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum09", Replacement:=dum09, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum10", Replacement:=dum10, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum11", Replacement:=dum11, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum12", Replacement:=dum12, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum13", Replacement:=dum13, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum14", Replacement:=dum14, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum15", Replacement:=dum15, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum16", Replacement:=dum16, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum17", Replacement:=dum17, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum18", Replacement:=dum18, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="dum19", Replacement:=dum19, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="XX", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Impossible de remplacer le "XX" par un "=" pour que le contenu de la cellule devienne une formule à part entière.
Des suggestions ? Merci.
dieu08