Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Méthode activate sur Combo

Méthode activate sur Combo

1 réponse
Avatar
Bonjour =E0 tous,
A l'issue de la proc=E9dure suivante (d=E9place le contr=F4le=20
sur la cellule activ=E9e), la m=E9thode activate =E9choue.=20
Comment y rem=E9dier ?

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

Merci !
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
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!




a écrit dans le message de news:1c8e901c421f6$8319bcf0$
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 !