Re : Macro enregistrée mais non utilisable
Bonjour,
Essaie ceci :
Sub Macro3()
Range("G5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:= _
"=if(D5<>"""",Offset(Liste_SOCIETES,Match(D3&""*"",Liste_SOCIETES,0)-1,,sumproduct((Mid(Liste_SOCIETES,1,Len(D5))=Text(D5,""0""))*1)),Liste_SOCIETES)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
End Sub