Microsoft 365 Position sur cellule

J

JHA

XLDnaute Barbatruc

• 2 Mai 2020

• #2

Bonjour à tous,

Une solution, tu mets un filtre sur ta plage "F10:F150" puis tu choisis ton pays.

JHA

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 2 Mai 2020

• #3

Bonjour JHA

J'y avais pensé mais le souci est que le filtre me donne que la première ligne, et chaque pays comprend 31 lignes en clair en F10 j'ai le nom du pays puis de G11 à G41 j'ai les données.
Ma liste déroulante se trouve juste sur la ligne au dessus de la ligne figée. Ainsi lorsque je sélectionne le pays j'ai en dessous de la ligne A5 Fx qui correspond au pays puis les données sur 31 lignes Gx à G+31
Dans ce cas là le filtre ne fonctionne pas

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Mai 2020

• #4

Salut,
Ceci devrait fonctionner

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   ' [A1] est la cellule concernée ...
    If Target.Count = 1 And Target = [A1] Then
        ActiveWindow.ScrollRow = Range(Mid(Target.Validation.Formula1, 2)).Find(Target).Row
    End If
End Sub

Ceci dit, c'est pas le pied car tu vas devoir revenir à ta cellule pour choisir un autre pays ...🙄

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Mai 2020

• #5

Pardon, mal lu la demande :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   ' [A1] est la cellule concernée ...
    If Target.Count = 1 And Target.Cells(1) = [A1] Then
        With Range(Mid(Target.Validation.Formula1, 2)).Find(Target)
            ActiveWindow.ScrollRow = .Row
            .Select
        End With
    End If
End Sub

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 2 Mai 2020

• #6

Bonsoir fanch55

Merci pour ton aide, mais je ne comprends pas pourquoi la cellule A1
J'ai une liste déroulante en A5 juste sur la dernière ligne figée (Lignes 1à 5 figées)
Mes pays sont en lignes F10 jusqu'à F18 Le premier pays étant à F10 let les données sur 31 lignes sont en G11 à G41 Chaque pays comprenant 31 lignes de données (Quelques fois pas toutes remplies)
Donc, en sélectionnant un pays, je souhaite (comme en quelque sorte un filtre) pouvoir afficher a compter de la ligne 6 les 31 données du dit pays.
En espérant avoir été assez clair pour que vous puissiez mieux voir le souci

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 2 Mai 2020

• #7

Bonjour
A tester

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim pays As String
If Not Application.Intersect(Target, Range("A5")) Is Nothing Then
pays = Target.Value
End If
With Worksheets("pays").Range("F11:F150") ' changer nom de la feuille
    Set c = .Find(pays, LookIn:=xlValues)

        monpays = c.Address
    Range(monpays).Activate
End With
End Sub

j'ai mal compris le problème

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Mai 2020

• #8

Je ne connais pas la structure de votre fichier,
La cellule [A1] est un exemple à remplacer , en l’occurrence par [A5] .

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Mai 2020

• #9

dg62 à dit:

If Not Application.Intersect(Target, Range("A5")) Is Nothing Then
pays = Target.Value
End If
[/CODE]

Cliquez pour agrandir...

Attention, cela marche si on sélectionne toute plage contenant la cellule ciblée ( sélection de ligne, de colonne,feuille entière) .... 🙄, ce n'est pas forcément ce que l'on désire ...

 

Dernière édition: 2 Mai 2020

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 2 Mai 2020

• #10

J'ai une erreur sur la ligne :
Set c = .Find(pays, LookIn:=xlValues)
C n'est pas reconnu

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 2 Mai 2020

• #11

Je vous mets mon classeur demain. Je suis actuellement sur tablette.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Mai 2020

• #12

Electron24 à dit:

J'ai une erreur sur la ligne :
Set c = .Find(pays, LookIn:=xlValues)
C n'est pas reconnu

Cliquez pour agrandir...

C'est parce que vous avez surement une Option Explicit

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 3 Mai 2020

• #13

Le fichier promis

 

Pièces jointes

• test pays.xlsm

  20.3 KB · Affichages: 11

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 3 Mai 2020

• #14

@dg62
L'activate ne suffit pas, il faut faire un scrollrow pour amener la cellule dans le champ de vision 😉

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 3 Mai 2020

• #15

Bonjour Electron24, fanch55

Avec un petit ScrollRow 😉

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim pays As String
Dim c As Range
Dim monpays As String
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
     pays = Target.Value
    End If
    If pays = "" Then Exit Sub
   
With Worksheets("pays").Range("F11:F150")
   
    Set c = .Find(pays, LookIn:=xlValues)
    If Not c Is Nothing Then
     monpays = c.Address
     ActiveWindow.ScrollRow = c.Row
     Range(monpays).Activate 'facultatif
   
    End If
End With
End Sub

 

Pièces jointes

• test pays.xlsm

  20.9 KB · Affichages: 5

Dernière édition: 3 Mai 2020

Vote positif 0 Vote négatif