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

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

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

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
'

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
'

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
'

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
'

Re:

désolé j'avais omis l'instruction [ SET ] !

Bonne continuité

Lupin

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
~L'essentiel est invisible pour les yeux~
  ~On ne voit bien qu'avec le coeur~