remise a zéro sur vba Résolu

Question

Bonjour,
voila mon problème
encore un....
je voudrais que les procédures se remette a zéro lorsque l'on clique sur un bouton

merci

Bidouilleu_R · Answer

bonjour,
et ça veut dire quoi "remettre les procédure à zéro"?
une variable je sais, un objet aussi, une feulle j'imagine. mais une procédure....je sais pas 

Faudrait préciser ...

A+

la pioche · Answer

Nan je me suis enballer!!!
je vais prendre mon problème dans un autres sens
j'aimerais faire apparaitre une liste déroulante automatiquement sous excel

par ex
si en A1 il y a "bonjour"
alors en B1 faire apparaitre une liste déroulante

sub essai()
if cells(1,1)="bonjour" then
cells(1,2)=liste déroulante
dans cette liste déroulante je marquerais sous vba 
"vous etes poli"
"merci"
comme cela sous excel j'aurai le chois entre merci et vous etes poli

la pioche · Answer

avec l'enregistreur de macro d'excel j'obtient cela mais cela mais impossible a travailler surtout au niveau de la plage de cellule "=$F$5:$F$11" que j'aimerais quelle soit dans la feuille 2
Sub Macro2()
    Range("A2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$F$5:$F$11"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub
merci de m'aider

Bidouilleu_R · Answer

bonjour,
après explication, c'est plus clair !!!


Sub test()
'
' nomme la liste cela t'évitera d'autres problème
'premièrement nommer la plage de la liste


Sheets("feuil2").Range("F5:F11").Name = "Ma_Liste"  'je nomme la liste en feuille  2 plage F5 : F11
    
    Sheets("Feuil1").Select            ' je suis sur la feuille 1 en B1
    Range("b1").Select
    'on teste
    If [A1].Value = "bonjour" Then    
    
' En gras la partie importante que te donne l'enregistreur

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=ma_liste"        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
  Else
    'on retire la liste
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    
    End If
    

C'est ce que tu voulais?

End Sub

la pioche · Answer

nikel cela marche impec
je te remercie

Remise a zéro sur vba

5 réponses

Votre réponse

Discussions similaires