XL 2010 Affichage des cellules en passant par un combobox

[Myst]

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

 

[vgendron]

Hello

supprime le rowsource du combobox1
et initialise la liste dans le Initialize de l'userform

Private Sub UserForm_Initialize()
For i = 1 To 52 'je présume qu'il s'agit des semaines
    Me.ComboBox1.AddItem i
Next i
End Sub

 

[vgendron]

et pour sélectionner les cellules fusionnées...

Private Sub ComboBox1_Change()
With ActiveSheet.Range("A:A")
    Set c = .Find(ComboBox1.Value, lookat:=xlWhole)
    If Not c Is Nothing Then
        c.Select
    End If
End With
End Sub

 

[Robert]

Bonjour Myst, bonjour le forum,

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

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...

 

[Myst]

Bonjour vgendron, Robert
C'est parfait, un grand merci a vous 😀