Discussion :

[cedmorelle]

Bonjour,

J'ai un code qui fonctionne et une autre version qui ne fonctionne mais je n'arrive pas à comprendre pourquoi ...
En fait, j'essaye de récupérer des valeurs de variables que je spécifie dans un onglet dédié pour ne pas mettre en dur dans mon code mes variables. En l'occurence, la fonction ci dessous récupère le nom d'une colonne dans un onglet "ListeVariablesVBA" puis retourne la colonne de l'onglet "Demande de Prestation" possédant ce titre de colonne...

Ex: Je cherche où se situe la colonne date dans "Demande de prestation", je vais faire return_colonne("V_DATE"), la fonction va chercher la variable V_DATE dans l'onglet listant les variables VBA nommé "ListeVariablesVBA", il récupère la valeur de la variable (ex: 19/08/1982), cherche cette valeur dans l'onglet "Demande de prestation" puis retourne la colonne associée.

Le problème est le suivant: pour faire une recherche dans l'onglet "ListeVariablesVBA", je suis obligé de l'activer puis revenir sur mon onglet courant, ce qui fait assez moche à l'écran puisqu'on voit le passage d'un onglet à un autre ... du coup, j'aimerais qu'il récupère les valeurs automatiquement sans sélectionner l'onglet "ListeVariablesVBA".

Pour info, mon onglet ListeVariablesVBA est très basique et est structuré de la façon suivante:

Colonne A            Colonne B
Nom Variable        Valeur Variable
V_TOTO              Valeur de V_TOTO

Ainsi voici le code de ma fonction qui fonctionne mais assez moche à l'écran :

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
25
26
27
28
29
30
31
32
33
34
35
  Function return_colonne(var) As String
 
Dim celluleVariable As Range
    Dim columnSelected As Range
    Dim titreColonne As String
 
 
    Sheets("ListeVariablesVBA").Select
 
    Set celluleVariable = Range("A3:A300").Find(var, lookat:=xlWhole)
    MsgBox celluleVariable
    If celluleVariable Is Nothing Then
        MsgBox ("variable " & var & " non trouvée dans la liste des références")
        Exit Function
    End If
 
    titreColonne = Cells(celluleVariable.Row, celluleVariable.Column + 1).Value
    MsgBox titreColonne  
 
 
    ' ******************* Récupération du numéro de la colonne possédant la colonne associée **************************
    Sheets("Demande de Prestation").Select
 
    ' option LookIn:=xlValues permet de retourner la valeur d'une formule. Par défaut, find retourne la formule
    Set columnSelected = Range("A4:DD4").Find(titreColonne, lookat:=xlWhole, LookIn:=xlValues)
 
 
    If columnSelected Is Nothing Then
        MsgBox ("Colonne " & titreColonne & " non trouvée dans la liste des références")
        Exit Function
    End If
 
    return_colonne = NumCol2Lettre(columnSelected.Column)
 
End Function

Voici le code qui ne fonctionne pas (j'ai l'impression qu'il récupère bien le nom de ma variable mais pas la valeur associée ...):

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
25
26
27
28
29
30
31
32
33
34
35
36
37
Function return_colonne(var) As String
 
Dim celluleVariable As Range
    Dim columnSelected As Range
    Dim titreColonne As String
 
 
    ' ******************* Récupération du titre liée à la variable **************************
 
 
    Set celluleVariable = Sheets("ListeVariablesVBA").Range("A3:A300").Find(var, lookat:=xlWhole)
    'Retourne bien celluleVariable 
    MsgBox celluleVariable
 
    If celluleVariable Is Nothing Then
        MsgBox ("variable " & var & " non trouvée dans la liste des références")
        Exit Function
    End If
 
    titreColonne = Cells(celluleVariable.Row, celluleVariable.Column + 1).Value
    'titreColonne ne retourne plus rien ...
    MsgBox titreColonne
 
 
    ' ******************* Récupération du numéro de la colonne possédant la colonne associée **************************
 
    ' option LookIn:=xlValues permet de retourner la valeur d'une formule. Par défaut, find retourne la formule
    Set columnSelected = Sheets("Demande de Prestation").Range("A4:DD4").Find(titreColonne, lookat:=xlWhole, LookIn:=xlValues)
 
 
    If columnSelected Is Nothing Then
        MsgBox ("Colonne " & titreColonne & " non trouvée dans la liste des références")
        Exit Function
    End If
 
    return_colonne = NumCol2Lettre(columnSelected.Column)
End Function

Pourriez vous m'aider à comprendre pourquoi je suis obligé d'activer la feuille ? Pourquoi ai je l'impression de bien trouver ma variable mais je n'arrive plus ensuite à récupérer sa valeur ?
Merci pour l'aide que vous pourrez m'apporter.
Cédric

[Invité]

Code :

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

1
2
Set Ws = Sheets("ListeVariablesVBA")
Set celluleVariable = Ws.Range("A3:A300").Find(Var, lookat:=xlWhole)

[cedmorelle]

Bonjour,

Non, ce code ne fonctionne pas non plus ... j'ai une erreur ... En fait, passer le Sheets("nomOnglet") dans une variable revient au même que l'appeler directement ... donc je ne pense pas que cela soit le problème ...

Si besoin, vous trouverez le fichier ci joint.

Pour reproduire l'erreur, suffit de cliquer sur le bouton "Add DP" puis renseigner les champs entité (string), N°affaire (String) et Nombre de lots (integer). Cliquer sur valider et une erreur apparait.

[Invité]

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Function return_colonne(var) As String
    Dim celluleVariable As Range
    Dim columnSelected As Range
    Dim titreColonne As String
    Dim Ws As Worksheet
    
    
    ' ******************* Récupération du titre liée à la variable **************************
    'You cannot select a sheet that is hidden so you will have to make it visible then hide it at the end
    'For a smooth display, I decided to keep this tab visible
    'Sheets("ListeVariablesVBA").Visible = True
    'Sheets("ListeVariablesVBA").Select
    
    Set Ws = Sheets("ListeVariablesVBA")
    Set celluleVariable = Ws.Range("A3:A300").Find(var, lookat:=xlWhole)
    MsgBox celluleVariable
    If celluleVariable Is Nothing Then
        MsgBox ("variable " & var & " non trouvée dans la liste des références")
        Exit Function
    End If
    
    titreColonne = Cells(celluleVariable.Row, celluleVariable.Column + 1).Value
    MsgBox titreColonne
    
    
    'You cannot select a sheet that is hidden so you will have to make it visible then hide it at the end
    'Sheets("ListeVariablesVBA").Visible = False
    
    
    ' ******************* Récupération du numéro de la colonne possédant la colonne associée **************************
    'Sheets("Demande de Prestation").Select
    Set Ws = Sheets("Demande de Prestation")
    ' option LookIn:=xlValues permet de retourner la valeur d'une formule. Par défaut, find retourne la formule
    Set columnSelected = Ws.Range("A4:DD4").Find(titreColonne, lookat:=xlWhole, LookIn:=xlValues)
    
        
    If columnSelected Is Nothing Then
        MsgBox ("Colonne " & titreColonne & " non trouvée dans la liste des références")
        Exit Function
    End If
    
    
    
    '*********************************************************************************************
    ' ************** A REVOIR:    COLONNE RENVOYEE EST UN CHIFFRE ET NON UNE LETTRE  *************
    '*********************************************************************************************
    return_colonne = NumCol2Lettre(columnSelected.Column)
    
    
    
End Function

[cedmorelle]

Merci beaucoup pour l'aide. Ce n'était pas grand chose ... mais pourquoi cela foncitonne avec Worksheet alors que ça ne fonctionnait pas avec Sheets. D'après ce que j'ai vu sur internet, Worksheets est un sous ensemble de Sheets donc ça devrait marcher également ?? Désolé pour cette question supplémentaire, mais tant qu'à faire, mieux vaut resortir moins bête et ne plus poser cette question à l'avenir

[Invité]

Sheets tu noteras qu'il y a un S ça ne marchera pas non plus avec As Worksheets