Méthode activate sur Combo

Le
Bonjour tous,
A l'issue de la procdure suivante (dplace le contrle
sur la cellule active), la mthode activate choue.
Comment y remdier ?

Dim cellule As String
cellule = Selection.Address
Feuil1.ComboBox1.ListFillRange = ("BD_select_medic!
A2:A1285")
Feuil1.ComboBox1.LinkedCell = cellule
ActiveSheet.Shapes("ComboBox1").Select
Selection.Cut
Range(cellule).Select
ActiveSheet.Paste
Feuil1.ComboBox1.Activate
End Sub

Merci !
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #1243414
Bonjour,


Essaie ceci :
'------------------------------
Sub LeCombobox()

Dim Cellule As Range
Dim NomFeuille As String

NomFeuille = ActiveSheet.Name
Application.ScreenUpdating = False

With Feuil1
.Activate
Set Cellule = ActiveCell
With .ComboBox1
'.ListFillRange = ("BD_select_medic!A2: A1285 ")
.LinkedCell = Cellule
.Left = Cellule.Left
.Top = Cellule.Top
End With
End With
Sheets(NomFeuille).Select
Set Cellule = Nothing

End Sub
'------------------------------


Salutations!




Bonjour à tous,
A l'issue de la procédure suivante (déplace le contrôle
sur la cellule activée), la méthode activate échoue.
Comment y remédier ?

Dim cellule As String
cellule = Selection.Address
Feuil1.ComboBox1.ListFillRange = ("BD_select_medic!
A2:A1285")
Feuil1.ComboBox1.LinkedCell = cellule
ActiveSheet.Shapes("ComboBox1").Select
Selection.Cut
Range(cellule).Select
ActiveSheet.Paste
Feuil1.ComboBox1.Activate
End Sub

Merci !
Publicité
Poster une réponse
Anonyme