XL 2010 Affichage des cellules en passant par un combobox

Myst

XLDnaute Occasionnel
Bonjour le forum
je cherche a afficher une sélection de cellule au premier plan en passant par le comboBox1 de l'userform1 et de supprimer les espaces entre les chiffres dans le combobox1
merci
 

Pièces jointes

  • ESSAI 1.xlsm
    26 KB · Affichages: 50

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Myst, bonjour le forum,

Supprime la propriété [RowSource] de la ComboBox1 et essaie ce code pour l'UserForm1 :

VB:
Dim E As Worksheet 'déclare la variable E (onglet Essai)

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim I As Integer 'déclare la variable I (incrément)

Set E = Worksheets("ESSAI") 'définit l'onglet E
For I = 3 To Cells(Application.Rows.Count, 1).End(xlUp).Row 'boucle des lignes 3 à la dernière ligne éditée de la colonne 1 (=A)
    If Cells(I, 1).Value <> "" Then Me.ComboBox1.AddItem Cells(I, 1).Value 'si la cellule n'est pas vide ajoute la valeur de la cellukle à la ComboBox1
Next I 'prochaine ligne de la boucle
End Sub
Private Sub CommandButton1_Click() 'bouton "VALIDER"
Dim R As Range 'déclare la variable R (Recherche)

Set R = E.Columns(1).Find(Me.ComboBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur de la ComboBox1 dans la colonne 1 (=A) de l'onglet E
If Not R Is Nothing Then R.Select 'si il existe au moins une occurrence trouvée, sélectionne la première occurrence trouvée
End Sub

[Édition]
Bonjour Vgendron, nos posts se sont croisés...
 

Discussions similaires

Statistiques des forums

Discussions
312 901
Messages
2 093 410
Membres
105 723
dernier inscrit
jopi