Positionner ligne adresse

Résolu
AlainOt -  
Bonjour,

Je sèche...
J'ai un fichier adresse et cherche les villes, que j'arrive à selectionner.

Cependant le voudrais que la premiere adresse trouvé s'affiche en ligne A2 de ma liste avec la suite.

Ex : je tape "Tou" mon fichier ce positionne en A2 sur le premier élément "Tou" trouvé.

Merci de vous pencher sur mon problème

Cordialement

https://www.cjoint.com/c/KLglfK1NiV6

9 réponses

  1. AlainOt Auteur
    Effectivement ça fonctionne
    Sur tes conseilles, je vois pour me repositionner sur la dernière cellule utilisé

    Je te remercie de ton travailles celà me fait gagner du temps

    Sur ce site je ne vos pas de coche "problème résolu"

    Bonne soirée

    Très cordialement

    AlainOt
    0
    1. AlainOt Auteur
      Excuses-moi de te répondre si tard

      Sur une ville inconue

      La macro efface une centaine de ligne
      Un message de debogage
      Erreur d'executiion7
      Mémoire insuffisante
      Ligne
      nom = Target.Value

      De plus les lignes avant 100 ne sont pas affichées
      Je dois faire un "affiche"

      Avec ton nouveau Dim derligne.....
      le programme s'arret sur (x1Up)
      0
    2. AlainOt Auteur
      Bonjour

      Tout fonction bien sauf si je tape une ville non connu

      La macro boucle... jusqu'a la igne 855
      0
      1. cs_Le Pivert Contributeur
        comme ceci: 

        Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Liste")
    NoCol = 1 'lecture de la colonne A
    Application.ScreenUpdating = False
    On Error Resume Next
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = nom Then
        Rows("2:" & NoLig - 1).EntireRow.Hidden = True 'masque lignes
        If NoLig = 100 Then Exit For ' a adapter
        End If
    Next
    Set FL1 = Nothing
    Application.ScreenUpdating = True
End Sub


        a la place de 100, tu peux mettre la dernière ligne utilisée:

        https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/ 

        Dim derligne As Long
derligne = Cells(Rows.Count, "A").End(xlUp).Row


        @+
        0
    3. AlainOt Auteur
      Ok Pas de problème

      Passes une bonne soirée

      Merci encore de ton intervention

      Demain est un autre Jour

      Bye
      0
      1. cs_Le Pivert Contributeur
        Essaie ceci: 

        Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Liste")
    NoCol = 1 'lecture de la colonne A
    On Error Resume Next
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = nom Then
        Rows("2:" & NoLig - 1).EntireRow.Hidden = True 'masque lignes
        End If
    Next
    Set FL1 = Nothing
End Sub


        @+
        0
    5. AlainOt Auteur
      Super on avance
      Cependant systematique j'ai le message d'erreur
      un "X recherche inconnue"
      Alors que la recherche est valide
      0
      1. cs_Le Pivert Contributeur
        Pour l'heure je ne vois pas. Supprimer la modification
        0
    6. AlainOt Auteur
      Encore moi,

      Si je tape une ville inconnue la macro boucle et plante ligne 855

      SI tu peux tester.

      Merci encore

      Bonne soirée
      0
      1. cs_Le Pivert Contributeur
        Pour revenir à l'ensemble des éléments ? 

        Sub afficher() 'associer à un bouton ou raccourci clavier
Cells.EntireRow.Hidden = False 'affiche lignes
End Sub


        Si je tape une ville inconnue la macro boucle et plante ligne 855


        modifier cette macro, comme ceci: 

        Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Liste")
    NoCol = 1 'lecture de la colonne A
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = nom Then
        Rows("2:" & NoLig - 1).EntireRow.Hidden = True 'masque lignes
        Else
        MsgBox "Nom inconnu!", vbCritical, "Recherche"
        Exit Sub
        End If
    Next
    Set FL1 = Nothing
End Sub


        @+
        0
    7. AlainOt Auteur
      Re Bonsoir

      J'ai trouvé pour ta macro super je saisie ma recherche, je valide et on masque les éléments précédents
      donc je suis bien sur le premier élément trouvé.
      Mais,
      Pour revenir à l'ensemble des éléments ? je dois demander à Excel de m'afficher les éléments précédents.

      Celà répond partiellement car je dois pouvoiir consulter l'ensemble des du fichier.
      Merci de ta réponse
      A+
      0
      1. AlainOt Auteur
        Bonsoir,

        Bien reçu, j'ai fais un copie/collé dans un module activé par un bouton "Afficher"
        Cependant rien ne se passe
        La macro tourne et rien?

        Je suis novice en VBA

        Pour compléter mon explication j'avais trouver une solution par 2 lien Hypertexte

        En "I1"
        ADRESSE(EQUIV(H3;A2:A500;0)+1;1)

        En "J1"
        Lien qui me descendais cellule A1000

        En "H1"
        SI($H$3<>"";LIEN_HYPERTEXTE("#"&$I$1);$A$1)
        qui remontait sur la cellule recherchée

        J'ai chercher à lier les deux lien mais pas facile en VBA

        Merci de regarder mon problème que je souhaitait effectuer en un clic

        Je reste à ton écoute

        Je prends toutes solutions

        Merci
        A+
        0
        1. cs_Le Pivert Contributeur
          Bonjour ,

          en masquant les lignes;

          En vba à mettre dans le module de la feuille Liste tout en haut: 

          Option Explicit
Dim nom As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H3")) Is Nothing Then
nom = Target.Value
For_X_to_Next_Ligne
End If
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Liste")
    NoCol = 1 'lecture de la colonne A
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = nom Then
        Rows("2:" & NoLig - 1).EntireRow.Hidden = True 'masque lignes
        End If
    Next
    Set FL1 = Nothing
End Sub
Sub afficher() 'associer à un bouton ou raccourci clavier
Cells.EntireRow.Hidden = False 'affiche lignes
End Sub

          0

          Discussions similaires

          Ça veut dire quoi "adresse ligne 1" sur les formulaires ?
          ryadfa11

          17 réponses
          "Nom de l'adresse" lors d'une inscription sur une site
          ScarexStupid

          9 réponses
          Qu'est ce qu'une ligne d'adresse 1 paypal ??
          yoyo 99

          2 réponses
          Ligne d'adresse 1
          Loualucky

          1 réponse
          Ça veut dire quoi intitulé d’une adresse ??
          Mousse

          4 réponses