XL 2016 Recherche de Mot dans une colonne et afficher les resultats en N° Ligne devant la zone de saisie de Mot

Roblochon à dit:

Bonjour et bienvenue sur le forum,

Cliquez pour agrandir...

Roblochon à dit:

Re,

Mais il n'y a aucune donnée dans votre colonne A !!!

P.S. Ici rien n'est ni urgent, ni pressé, ni obligatoire, les suppliques sont mal venues.

Cordialement

Cliquez pour agrandir...

Roblochon à dit:

Re,

Puisque vous avez excel 2016 si vous enregistrer vos classeurs au format .xlsx ou .xlsm vous gagneriez en possibilité nouvelles.

Dans le fichier joint (.xlsx), 2 solutions par formules matricielles la première à valider (CTRL + MAJ + ENTREE) sur 8 cellules : =SIERREUR(PETITE.VALEUR(SI(A$3:$A$35=$E$5;LIGNE(A$3:$A$35));{1.2.3.4.5.6.7.8});"-")
La seconde à saisir dans la première cellule puis à valider de la même façon et à tirer ensuite sur la droite, aussi loin qu'on veut:
=SIERREUR(PETITE.VALEUR(SI(A$3:$A$35=$E$5;LIGNE(A$3:$A$35));COLONNE(A1));"-")

Cordialement

Cliquez pour agrandir...

Roblochon à dit:

Re,

Solution SVP n'est pas une phrase!

Code du bouton avec la valeur à chercher en E5:

VB:

Private Sub CommandButton1_Click()

Dim valeurs As Variant, lignes() As Variant
Dim valeurAChercher As String
Dim i As Integer, j As Integer
valeuracherche = Range("E5").Value
If valeurAChercher = "" Then
    MsgBox "Exécution interrompue: aucun mot à chercher dans la cellule E5!", vbExclamation, "Rechercher mot"
    Exit Sub
End If
valeurs = Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
For i = 1 To UBound(valeurs)
    If valeurs(i, 1) = ValeurAChercher Then
        j = j + 1
        ReDim Preserve lignes(1 To j)
        lignes(j) = i + 2
    End If
Next i
If j > 0 Then Range("G5").Resize(, j) = lignes
End Sub

[Edit] et en prime une fonction en G7 (à tirer vers la droite) pour les versions >= 2010
=SIERREUR(AGREGAT(15;7;LIGNE($A$3:$A$35)/ ($A$3:$A$35=$E$5);COLONNE(A1));"-")

Cliquez pour agrandir...

kenny05 à dit:

Je ne suis q'un débutant en Vba/Excel.

Cliquez pour agrandir...

Roblochon à dit:

Bonjour,


Pour le moment vous n'avez rien débuté. Vous vous contentez de demander des réponses toutes faites.
Essayez de comprendre et adapter.

Bon apprentissage

Cliquez pour agrandir...