Problème pour faire tourner la macro sur x lignes

Tout d'abord, merci beaucoup !

Le second problème est pour initialiser pour que la macro "balaie" toutes les lignes, je dois modifier quelque chose dans mon code ?

Voulez vous que je vous envoie mon début de code ?

Bonjour Jordane45,

Mrgxaib:
Y a rien a modifier puisque la boucle va s'arrêter a la premiere cellule vide dans la colonne testée a condition qu'il n'y ait pas de cellule(s) vides avant la dernière ligne
Autrement adaptez avec code de Jordane45

Sub Macro1()
'
' Macro1 Macro
'

'
Range("AP8").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[1]C[-1],'[EbaucheJuillet18.xlsx]Classement par chap'!R1:R1048576,2,FALSE)"
Range("AP8").Select
ActiveCell.FormulaR1C1 = ""
Range("AP9").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'[EbaucheJuillet18.xlsx]Classement par chap'!R1:R1048576,2,FALSE)"
Range("AP9").Select


Selection.AutoFill Destination:=Range("AP9:AP442")
Range("AP9:AP442").Select
ActiveWindow.SmallScroll Down:=-27
End Sub

Pour le range("AP9:AP442"), même avec le code de Jordane45 cela va pouvoir chercher au delà de la ligne 442 ?

Re,
Salut Patrice33740

Mrgxaib:
Vu votre code, ce n'est pas une boucle de 1 a x fonction nb ligne, mais de rendre la Plage AP9:AP442 dynamique avec la recherche de la dernière ligne de la feuille du classeur ou vous allez chercher vos infos

Merci, que dois je changer à la place de * ?

rien

Autre solution, pour un tableau qui commence en A7 (ligne des intitulés de colonne) :

Option Explicit
Sub Macro1()
Dim rng As Range
  With ActiveSheet 'ou une autre feuille
    Set rng = .Range("A7").CurrentRegion.EntireRow.Columns("AP")
    Set rng = Intersect(rng, rng.Offset(1))
    rng.FormulaR1C1 = _
      "=VLOOKUP(R[1]C[-1],'[EbaucheJuillet18.xlsx]Classement par chap'!R1:R1048576,2,FALSE)"
  End With
End Sub

Si le tableau commence ailleurs, remplacer A7 par la première cellule du tableau
Si le tableau a plus d'une ligne d'intitulés, augmenter l'offset en conséquence.

Merci à tous pour vous réponses, je commence à y voir plus clair mais mes connaissances très limitées me bloquent...

Je pensais utiliser le nombre de lignes et l'insérer directement dans la macro mais cela pose problème. Je vous montre en dessous. J'ai souligné où est le problème.

Sub NBLignes()
Dim NbLig As Integer
    NbLig = Cells.SpecialCells(xlCellTypeLastCell).Row
End Sub

Sub Macro2()

Range("AP8").Select
 ActiveCell.FormulaR1C1 = _
 "=VLOOKUP(R[1]C[-1],'[EbaucheJuillet18.xlsx]Classement par chap'!R1:R1048576,2,FALSE)"
 Range("AP8").Select
 ActiveCell.FormulaR1C1 = ""
 Range("AP9").Select
 ActiveCell.FormulaR1C1 = _
 "=VLOOKUP(RC[-1],'[EbaucheJuillet18.xlsx]Classement par chap'!R1:R1048576,2,FALSE)"
 Range("AP9").Select


 Selection.AutoFill Destination:=Range("AP9:<underline>APNbLig</underline>")
 Range("AP9:APNbLig").Select
 ActiveWindow.SmallScroll Down:=-27

End Sub

EDIT : Ajout des balises de code

Pourquoi ne veux-tu pas adopter une des solutions proposées ?

Il est inutile d'utiliser Autofill, il suffit d'appliquer la formule à la plage concernée : c'est là tout l'intérêt de .FormulaR1C1
Et en VBA, il faut absolument éviter d'utiliser .Select

Comme tu ne donnes aucune précision sur la façon dont tu détermines la plage qui doit recevoir cette formule (on sait qu'elle commence en AP8 mais pas ce qui permet de savoir où elle se termine) il est difficile de t'aider plus que ça.

Re,

Avec votre code, ceci devrait aller:

Sub Macro2()
    Range("AP8").FormulaR1C1 = ""
    With Range("AP9")
        .FormulaR1C1 = "=VLOOKUP(RC[-1],'[EbaucheJuillet18.xlsx]Classement par chap'!R1:R1048576,2,FALSE)"
        .AutoFill Destination:=Range("AP9:APN" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    End With
End Sub

Mais pourquoi n'utilisez vous pas le code de Patrice33740, il montre pas mal de chose sur la programmation