Discussion :

[rossemma]

Bonjour,

je me pose une question.

est il possible qu'à partir d'un vlookup, qui aura comme résultat une lettre d'une colonne (ex : L), de selectioner la cellule K1 et que celle-ci s'affiche directement à gauche de l'écran.
En résumé que les colonnes avant K soient cachées.

Merci pour vos infos.

[unparia]

Bonjour
Je pense que ta question est finalement comment afficher la cellule de son choix dans le coin supérieur gauche de la feuille de calcul.
La réponse est par utilisation simple la méthode Goto (rubrique Application.Goto, méthode de ton aide VBA. Elle est assortie d'un exemple clair)

[rossemma]

super

Mais dans mon code ci-dessous, je voudrais que col2 soit en fait le résultat de col1 mais une colonne avant
ex : col1=k col2=L

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CBTNMove_Click()
 
    Dim col1 As String, col2 As String
 
    col1 = Application.WorksheetFunction.VLookup(CBTNMove.Caption, Sheets("setup").Range("A3:C14"), 2, 0)
    col2 =
 
 
 
End Sub

De plus, le range (A3:C14) porte un nom défini. je suppose que je peux mettre ce nom entre les parenthèses ???

[rossemma]

voila j'ai un peu avancé.

Il trouve col1 sans problème, ensuite je l'envoi sur col1 & 1 et je détermine le numéro de ligne et de colonne
pas de problème


mais ensuite il coince à la ligne 18 où je voudrais qu'il recule d'une colonne.

pq ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CBTNMove_Click()
 
    Dim col1 As String
    Dim ligne As Integer
    Dim colonne As Integer
    Dim cell As Range
 
 
    col1 = Application.WorksheetFunction.VLookup(CBTNMove.Caption, Sheets("setup").Range("SetupImportMois"), 2, 0)
 
    Application.EnableEvents = False
    Sheets("MOIS-MAAND").Range(col1 & "1").Select
    With ActiveCell
        ligne = .row
        colonne = .Column
    End With
 
    cell = ActiveCell.Offset(-1, 0)
 
    Application.Goto Reference:=Worksheets("MOIS-MAAND").Range(cell), Scroll:=True
 
    Application.EnableEvents = True
 
End Sub

[Marc-L]

Bonjour,

ligne n°18, pourquoi recules-tu alors d'une ligne ?‼     Juste en lisant l'aide VBA d'Offset …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[rossemma]

d'une ligne ???

[Marc-L]

Déjà dans ce code les lignes n°4, 5 et 14 à 17 n'ont aucune utilité !   Et ce ne sont pas les seules …

est il possible qu'à partir d'un vlookup, qui aura comme résultat une lettre d'une colonne (ex : L), de sélectionner la cellule K1 et que celle-ci s'affiche directement à gauche de l'écran.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CBTNMove_Click()
    Dim V
    V = Application.VLookup(CBTNMove.Caption, Range("setup!SetupImportMois"), 2, 0)
    If IsError(V) Then Exit Sub
    Application.EnableEvents = False
    Application.Goto Range("'MOIS-MAAND'!" & V & "1")(1, 0), True
    Application.EnableEvents = True
End Sub

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[rossemma]

Merci

mais quand j'arrive à la ligne 6, il me dit que l'opération échoué "la méthode range de l'objet global échoué"

[Marc-L]

Quelle est donc la valeur de V ?   B-A-BA du développeur, vérifier les variables !

[rossemma]

V est correct, il me trouve la bonne lettre

ex : pour le bouton janvier, V est égal à B
D'après ton code il prend B & 1 soit B1 et recule d'une colonne

exact ??

j'ai revérifié et la resultat est correct, il trouvé la bonne lettre à chaque fois
j'ai essayé avec plusieurs mois

j'ai copy/paste ta modification et il me répond le même message.

[rossemma]

Avec le code ci-dessous, cela fonctionne apparemment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CBTNMove_Click()
 
    Dim V
 
    V = Application.VLookup(CBTNMove.Caption, Range("setup!SetupImportMois"), 2, 0)
 
    If IsError(V) Then Exit Sub
    Application.EnableEvents = False
    Application.Goto Reference:=Worksheets("MOIS-MAAND").Range(V & "1").Offset(, -1), Scroll:=True
 
    Application.EnableEvents = True
 
End Sub