Problémé macro
salut à tous,
j'ai un souci avec une macro que j'essaye d'affecter à une liste déroulante que j'ai pris dans le menu "boite à outils controle".
ma macro est la suivante:
Private Sub ComboBox1_Click()
'
' Rectangle450_QuandClic Macro
' Macro enregistrée le 22/10/2008 jbur
'
'
Sheets("base de données").Select
Range("o40:q80").Select
Selection.ClearContents
Range("d40:f250").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("p37:r38"), CopyToRange:=Range("o40"), Unique:=True
Sheets("calcul").Select
Range("g5").Select
End Sub
j'ai un message d'erreur pour la ligne range("o40:q80").select
Le but de ma macro est de faire un tri dans une plage de données et de recopier ce tri dans un autre céllule.
Pouvez-vous m'aider.
D'avance merci.
Bonjour,
Je ne vois rien d'anormal dans ton code.
Essaye toutefois ceci :
Private Sub ComboBox1_Click()
With Sheets("base de données")
.Select
.Range("o40:q80").ClearContents
.Range("d40:f250").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("p37:r38"), CopyToRange:=Range("o40"), Unique:=True
End With
End subSinon place ton fichier ce sera plus facile.
Amicalement
Dan