Remise a zéro sur vba
Résolu/Fermé
A voir également:
- Remise a zéro sur vba
- Remise a zero pc - Guide
- Remise à zéro iphone - Guide
- Remise a zero chromecast - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
5 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
17 févr. 2009 à 11:36
17 févr. 2009 à 11:36
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+
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+
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
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
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
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
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
18 févr. 2009 à 08:42
18 févr. 2009 à 08:42
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question