Bonjour à tous,

Je souhaite faire apparaître un message de saisie conditionnel sur une celllule.
J'ai commencé ce code via l'enregistreur de maco mais y-a-t-il une autre solution ?
En effet, en utilisant le pas à pas VBA ne reconnaît pas le code à partir de "With".


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    If mavariable Then
 
        With mavariable
 
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "mon titre"
        .ErrorTitle = ""
        .InputMessage = "Le texte"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
 
        End With
 
    End If


Merci de votre aide.