VBA macro et fonction RECHECHEV Résolu/Fermé

Question

Bonjour à tous

j'utilise dans une macro la fonction RECHERCHEV ci-dessous
'=RECHERCHEV($G6;Feuil1!$A:$E;2;FAUX)
je renvoie la valeur de la colonne 2 du tableau feuille1 qui démarre en A et fini en E
MAIS ma colonne qui contient le valeur à renvoyer est variable (je dois renvoyer la colonne 3 ensuite
comment dire à ma macro que mon numéro de colonne est variable ?
J'ai essayé en déclarant une variable R par dim R as integer puis j'ai mis R à la place de 2 mais
cela ne marche pas
Merci pour votre aide à tous

mimi

Utilisateur anonyme · Accepted Answer

Bonjour,

Je n'ai pas eu le temps de répondre. Le boulot, les études ...

Ceci dit, j'ai regarder la syntaxe du code et je n'y trouve que 2 choses bizarres !

1) Les variables [ i ] et [ j ] ne sont pas déclarés.

2) Dans l'instruction [ Cells(L, C).Select ], les lettres [ L ] et [ C ] ne sont pas déclaré.

Si tu veux tout sélectionner, l'instruction [ Cells.Select ] est suffisante.

Voici ce que ça donne :


Sub PlanningMarque()


    Dim Marque As String
    Dim Compteur As Double
    Dim Compteur2 As Double
    Dim Model As String
    Dim Segment As String
    Dim BodyType As String
    Dim Temps As String
    Dim i As Long, j As Long

    'Initiatlisation des variables
    Compteur = -3 'colonne Concatener
    Compteur2 = -2 'colonne Transfert
    Compteur3 = -5
    Compteur4 = -4

    For i = 5 To 40 'i = Lignes
        For j = 6 To 31 'j = Colonnes

            ' traitement des variables
            Marque = Cells(2, j).Value
            Temps = Cells(1, j).Value
            Segment = Cells(i, 1).Value
            BodyType = Cells(i, 2).Value

            Cells(i, j).Offset(i, Compteur).Select
            ActiveCell.FormulaR1C1 = "=CONCATENATE(Segment, BodyType, Marque, Temps)"
            Cells(i, j).Offset(i, Compteur2).Select
            ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Tableau!R6C1:R213C13, 6, 'False')"
            Model = Cells(i, 4).Value
            Cells(i, j).Select

            If Cells(4, j) Is Empty Then
                Cells(i, j).Select
                ActiveCell.FormulaR1C1 = "=CONCATENATE(Model, BodyType, Marque, Temps)"
            ElseIf Cells(4, j) Is Not Empty Then
                'Cells(L, C).Select
                Cells.Select
                ActiveCell.FormulaR1C1 = "=VLOOKUP(Model,Tableau!R6C1:R213C13, 6, 'False')"
            End If

        Next i
        Compteur = Compteur - 1
        Compteur2 = Compteur2 - 1

    Next j

End Sub
'


Je ne travaille que très peu avec l'instruction [ ElseIf ], mais je crois que tu dois valider
cette structure de contrôle, tu pourrais essayer comme ceci :


If Cells(4, j) Is Empty Then
    Cells(i, j).Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(Model, BodyType, Marque, Temps)"
Else
    If Cells(4, j) Is Not Empty Then
        'Cells(L, C).Select
        Cells.Select
        ActiveCell.FormulaR1C1 = "=VLOOKUP(Model,Tableau!R6C1:R213C13, 6, 'False')"
    End If
End If
'


Et le second If imbriqué est implicite :


If Cells(4, j) Is Empty Then
    Cells(i, j).Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(Model, BodyType, Marque, Temps)"
Else
    'Cells(L, C).Select
    Cells.Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(Model,Tableau!R6C1:R213C13, 6, 'False')"
End If
'


Lupin

Lupin · Answer

Salut,

'=RECHERCHEV($G6;Feuil1!$A:$E;2;FAUX)

Dim Formule As String
Dim R As Integer

For R = 2 to 4
  Formule = "=RECHERCHEV($G6;Feuil1!$A:$E;" & R & ";FAUX) 
"
  Activecell.offset(0,0).Value = Formule
  Activecell.offset(1,0).Select
Next Boucle

Lupin

mimi · Answer

Merci beaucoup LUPIN mais j'ai une anomalie
j'avais une erreur de compilation (référence de variable incorrecte dans NEXT) : j'ai remplacé boucle par R

Maintenant la macro bloque sur la ligne
ActiveCell.Offset(0, 0).Value = Formule
Le message est "erreur d'exécution 1004" erreur définie par l'application ou par l'objet

Encore merci pour votre aide une seconde fois
Mimi

Dim Formule As String
Dim R As Integer

For R = 2 To 4
Formule = "=RECHERCHEV($g6;Feuil1!$A:$E;" & R & ";FAUX)"
ActiveCell.Offset(0, 0).Value = Formule
ActiveCell.Offset(1, 0).Select
Next R

Lupin · Answer

re :

Sub Test()
    Dim Formule As String
    Dim R As Integer
    
    For R = 2 To 4
        Formule = "=VLOOKUP($G6,Feuil1!$A:$E," & R & ",FAUX)"
        ActiveCell.Offset(0, 0).Value = Formule
        ActiveCell.Offset(1, 0).Select
    Next R
    
End Sub

Lupin

Utilisateur anonyme · Answer

Bonjour tindette,

ActiveCell.FormulaR1C1 = "=VLOOKUP(ancien!C:C[1],2,FALSE)" 


Dans cet instruction, le mot [ ancien ] représente une variable, mais
celle-ci étant entre guillemets, elle n'est pas interprèté.

Revenons d'abord à l'instruction :

ancien = Sheets(Worksheets("Menu").Range("A4").Value) 

Ici [ ancien ] sous-entend de façon implicite [ ancien.Name ],
je te recommande de toujours être explicite, moins d'erreur
lors de la compilation.


d'où l'instruction explicite s'écrit comme suit :

ancien.Name = Sheets(Worksheets("Menu").Range("A4").Value) 

Maintenant pour l'insertion de la formule.

ActiveCell.FormulaR1C1 = "=VLOOKUP(ancien!C:C[1],2,FALSE)"

doit être décomposé ainsi :

ActiveCell.FormulaR1C1 = "=VLOOKUP(" & ancien.Name & "!C:C[1],2,FALSE)"

Pour ma part, lorsque je construit une formule par programmation, je la pousse
d'abord dans un variable pour en voir le contenu et en vérifier la syntaxe avec
le déboggeur.

De plus je rencontre souvent ce type de manoeuvre pour insérer une formule
en utilisant le propriété [ FormulaR1C1 ] au lieu de [ Value ].

La propriété [ FormulaR1C1 ] est une propriété permettant de lire la formule
dans une cellule plutôt que sa valeur.


Option Explicit

Sub Test()

    Dim Formule As String
    Dim Valeur As Variant
    
    ' Insertion de la formule
    Formule = "=SUM(A2:A5)"
    ActiveCell.Value = Formule
    
    'Maintenant si tu veux lire la valeur
    Valeur = ActiveCell.Value
    
    ' Et si tu veux lire la formule
    Formule = ""
    Formule = ActiveCell.FormulaR1C1
    
    
    MsgBox ActiveCell.Value
    MsgBox ActiveCell.FormulaR1C1
    
End Sub
'


Mais attention, ce n'est pas une obligation de travailler de cette façon.

Bonne année 2009

Lupin

Utilisateur anonyme · Answer

re:

désolé j'avais omis l'instruction [ SET ] !

Bonne continuité

Lupin

Utilisateur anonyme · Answer

Bonjour Iseult,

Le jardinnage est commencé et je délaisse mon pc pour ma spatule :-)
néanmoins, je veux bien tenter de t'aider si je peux.

Perso, je n'ai jamais vraiment tenter de lire un fichier sans l'ouvrir,
j'ai vu des exemples sur ExceLabo sur une méthode pour lire des
fichier sans les ouvrirs, mais pour ma part je considère qu'il y a
quand même une ouverture indirect.

Ceci dit, dépose le code que tu tente d'assembler et si ce n'est
pas moi, peut-être qu'un d'autre pourra te guider :-)

Lupin

VBA macro et fonction RECHECHEV

7 réponses

Discussions similaires