Discussion :

[Stanler]

Nous ne savons pas jusqu'à où nous devons nous arrêter pour ta macro. Dans ton tableau test tu nous met 19 lignes mais dans le texte à gauche il est écrit "de A1 à G200".
C'est de là d'où vient l'erreur. Pour étendre la formule et "passer à la suivante", il faut d'abord définir la fin de la "la suivante".

d'où mes précédentes questions :

Sur quel bouton dois tu appuyer à chaque fois et à chaque fois qu'il se passe quoi ? Tu parles du débogage ?
Pourquoi souhaites tu rechercher la valeur en B12 et jusqu'à la fin du tableau ? N'est il pas plus simple d'appliquer une formule à tout ton tableau ?

[crisjoce]

dans la tableau je me suis arreter a 19.

mais en realite il peux y avoir 200 lignes ou plus.

donc je souhaiterais que la macro s'arrete quand il n'y a plus rien en colone B

[Stanler]

donc je souhaiterais que la macro s'arrete quand il n'y a plus rien en colone B

Remplis ta colonne B (ou débrouilles toi pour tester la macro sur une copie de ton vrai fichier et pas ton fichier test)
et test ce code, puis dis nous ce qu'il se passe

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
Sub Macro1()
With Application
        .ScreenUpdating = False
        .DisplayStatusBar = False
        .Calculation = xlCalculationManual
End With
Range("G12").FormulaR1C1 = "=VLOOKUP(RC[-5],R[6]C[5]:R[11]C[10],6)"
Range("G12").AutoFill Range("G122:G" & Range("B65536").End(xlUp).Row)
Range("F12").FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"
Range("F12").AutoFill Range("F12:F" & Range("B65536").End(xlUp).Row)
Range("D12").FormulaR1C1 = "=VLOOKUP(RC[-2],R[6]C[9]:R[11]C[14],2)"
Range("D12").AutoFill Range("D12:D" & Range("B65536").End(xlUp).Row)
Range("C12").FormulaR1C1 = "=VLOOKUP(RC[-1],R[6]C[9]:R[11]C[14],2)"
Range("C12").AutoFill Range("C12:C" & Range("B65536").End(xlUp).Row)
Range("C12").HorizontalAlignment = xlCenter
Range("C12").VerticalAlignment = xlCenter
With Application
        .Calculation = xlCalculationAutomatic
        .DisplayStatusBar = True
        .CutCopyMode = False
        .ScreenUpdating = True
End With
End Sub

[crisjoce]

blocage sur la ligne

Code :

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

Range("G12").AutoFill Range("G122:G" & Range("B65536").End(xlUp).Row)

j'ai rectifier l'erreur car il y avait ecrit G122

cela fonctionne, mais dans la cellule G et deplace la table d'une ligne

j'ai renome la plage par tableau.
ca fonctionne tres bien

merci

[Stanler]

Mes excuses pour l'erreur, c'est le fléau du multitask

Bravo à toi aussi, crisjoce, j'espère que le VBA te parait moins obscure ^^

N'oublie pas de passer le sujet en "résolu"