Recherche intuitive sur cellules fusionnées

Bonjour,

est il possible d'adapter la recherche intuitive du fichier 1, sur mon fichier (Guignol_EP_v06, c'est un fichier que ThauTheme que je remercie au passage, m'a adapté à mes besoins), sur les cellules A11, A15, A18, A21, A24, A27, A30 et A33 ?

J'ai essayé plusieurs chose mais en vain... Déjà le faite que les cellule sur les quelles je veux les adapter sont fusionnées ça ne fonctionne pas.

Merci.

Bonjour Guignol,

Je n'ai pas fait comme Jules... Veni, vidi mais pas vici... (plutôt capitulli même...)

Jacques Boisgontier est un grand maître qui, comme souvent chez ces gens là, parle un langage supérieur et, de part ma petite taille, ça me passe souvent largement au-dessus de la tête. Je ne peux essayer d'adapter si je ne comprends pas moi-même. Souhaitons que cette figure Excellique passe par là...

Merci d'avoir pris le temps d’essayer...

Oui il m'a apporté pas mal d'aide avec certain de ses fichiers excel + ses cours.

Si déjà pour toi c'est un cran au dessus moi je suis 20000 lieux en dessous ...

J'ai essayé de contourner mon problème avec un de ses userform et a se sujet j'aurai une question:

c'est possible de faire une saisie automatique dans la liste déroulante à partir d'une textbox qui se trouve dans un userform ?

Bonjour,

Les cellules fusionnées compliquent.

Dim Choix1()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("A12:E12,A15:E15,A18:E18,A21:E21,A24:E24,A27:E27,A30:E30,A33:E33"), Target) Is Nothing And Target.Count = 5 Then
    Set f = Sheets("données")
    Set Rng = f.Range("c2:c" & f.[c65000].End(xlUp).Row)
    Choix1 = Application.Transpose(Rng)
    Me.ComboBox1.List = Choix1
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target(1).Value
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub

Private Sub ComboBox1_Change()
 If Me.ComboBox1 <> "" Then
     mots = Split(Trim(Me.ComboBox1), " ")
     Tbl = Choix1
     For I = LBound(mots) To UBound(mots)
       Tbl = Filter(Tbl, mots(I), True, vbTextCompare)
     Next I
     Me.ComboBox1.List = Tbl
     Me.ComboBox1.DropDown
 Else
     Me.ComboBox1.List = Choix1
 End If
End Sub

Private Sub ComboBox1_click()
   ActiveCell.Resize(, 5).Value = Me.ComboBox1
End Sub

J'ai désactivé le Change.

Boisgontier

Merci pour la solution des listes déroulantes et cellules fusionnées.

Je vais essayer de faire fonctionner incrémentations automatique des cellules en espérant y arriver.

Encore merci à vous deux

Bonjour,

Je n'arrive pas à faire l’incrémentation automatique des cellules, j'ai essayé un tas de chose mais sans succès en même temps avec mon niveau d'Excel je ne suis pas étonné, mais j'aurai aimé y arriver seul

Si c'est possible de me donner un coup de mains, je vous en remercie.