Quelle ligne ?

[Clochard]

Bonjour le Forum...

Est-ce possible d'obtenir sur quelles lignes se trouve un nom en particullier...

Merci d'y regarder

Clochard

 

[R@chid]

Re : Quelle ligne ?

Bonjour,
pas tout compris, un essai en passant :

=SIERREUR(PETITE.VALEUR(SI(B6:E210=L6;LIGNE(B6:E210));1);"")

@ valider par Ctrl+Shift+Enter


@ + +

 

[david84]

Re : Quelle ligne ?

Bonjour, salut Rachid,
formule matricielle à tirer vers la droite :

=SIERREUR(PETITE.VALEUR(SI($B6:$E11=$L6;LIGNE($B6:$E11));COLONNE(A:A));"")

A+

 

[phlaurent55]

Re : Quelle ligne ?

Bonjour à tous,

une solution par macro

à+
Philippe

 

[Clochard]

Re : Quelle ligne ?

Merci R@chid,david84 ainsi que phlaurent55


Merci pour vos suggestions...

J'trouve super la macro de phlaurent55... j'aime beaucoup la formule de David84...

Merci beaucoup à R@chid... tu as bien saisi ma demande

Clochard

 

[Clochard]

Re : Quelle ligne ?

Bonjour Philippe,

Dans votre macro...

Est-ce possible d'afficher en ligne ( k;l;m;n;o;p) au lieu que sur une colonne (k) ??

Merci de me répondre

Clochard

 

[Marc L]

Re : Quelle ligne ?

Bonjour,

à partir de K à droite du texte recherché ?


_______________________________________________________________________________
Je suis Charlie, Bardo, Sousse

​

 

[Marc L]

Re : Quelle ligne ?

A partir du classeur joint initialement, code à coller dans le module Feuil1
d'après l'exemple de l'aide VBA de la méthode Find,
la procédure se déclenchant lors de la modification de la cellule H6 :
​

Private Sub Worksheet_Change(ByVal Target As Range)
                                   Dim Rg As Range
    If Target.Address <> "$H$6" Then Exit Sub
             Application.EnableEvents = False
             [K6].CurrentRegion.Clear
    
    If Target.Value > "" Then
           Application.ScreenUpdating = False
                                   C& = 10
        With [B6].CurrentRegion
               Set Rg = .Find(Target.Value, .Cells(.Count), xlValues, xlWhole, xlByRows)
            If Not Rg Is Nothing Then
                                  AD$ = Rg.Address
                Do
                                    C = C + 1
                    Cells(6, C).Value = Rg.Address(False, False)
                               Set Rg = .FindNext(Rg)
                Loop Until Rg.Address = AD
                               Set Rg = Nothing
            End If
        End With
    End If
             Application.EnableEvents = True
End Sub

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …
​

 

[phlaurent55]

Re : Quelle ligne ?

RE,

Bonjour Philippe,

Dans votre macro...

Est-ce possible d'afficher en ligne ( k;l;m;n;o;p) au lieu que sur une colonne (k) ??

Merci de me répondre

Clochard

voir fichier joint

à+
Philippe

 

[Clochard]

Re : Quelle ligne ?

Bonjour Marc L., PhLaurent55 et la Forum,

Merci beaucoup Marc L. pour ta collaboration... c'est parfait

Merci Philippe pour cette petite merveille...

Clochard

 

[Marc L]

Re : Quelle ligne ?

La « petite merveille » déclenche une erreur si, positionné sur la cellule J6,
la touche Suppr est appuyée deux fois de suite !

Ce code est donc optimisable, peut-être réduit de une à 4 lignes selon le palliatif retenu …

_______________________________________________________________________________
Les erreurs sont les portes de la découverte. (James Joyce)

​

 

[Clochard]

Re : Quelle ligne ?

Salut Marc L... et l Forum

Avec une formule je peux rechercher les lignes des noms se trouvant dans la colonne K6:K100... il peut y en avoir 60-70

Avec la macro... Est-ce possible de faire la même chose sans que ça devienne trop lourd ?

Clochard

 

[phlaurent55]

Re : Quelle ligne ?

Re,

La « petite merveille » déclenche une erreur si, positionné sur la cellule J6,
la touche Suppr est appuyée deux fois de suite !

Ce code est donc optimisable, peut-être réduit de une à 4 lignes selon le palliatif retenu …

_______________________________________________________________________________
Les erreurs sont les portes de la découverte. (James Joyce)

​

erreur d’inattention réparée en pièce jointe

à+
Philippe

 

[Marc L]

Re : Quelle ligne ?

Maintenant, si cela fonctionne déjà par formules, pourquoi un code ? …
​

 

[Clochard]

Re : Quelle ligne ?

Maintenant, si cela fonctionne déjà par formules, pourquoi un code ? …

Pour me renseigner...

Clochard