Discussion :

[stagiairecg]

Dim DerLigA As Long
DerLigA = Cells(Rows.Count, 1).End(xlUp).Row
Dim DerLigK As String
DerLigK = Cells(Rows.Count, 9).End(xlUp).Row.......................... dans cette colonne 9 (I) a la ligne 13 je n'est q'un chiffre et la sa marche pas mais si jai un chiffre en ligne 13,14,15,... dans la colonne I (9) sa marche.

'tarif trajet
Range("H13").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],trajet,2,FALSE),"""")"
Range("H13").Select
Selection.AutoFill Destination:=Range("H13:H" & DerLigK & ""), Type:=xlFillDefault
Range("H13:H" & DerLigK & "").Select

'Nombre de jour dans la semaine
Range("J13").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R13C1:R" & DerLigA & "C1,RC[-1])"
Range("J13").Select
Selection.AutoFill Destination:=Range("J13:J" & DerLigK & ""), Type:=xlFillDefault
Range("J13:J" & DerLigK & "").Select

[stagiairecg]

Bonjour, voila le problème que je rencontre..


Merci

cordialement

clément

[Menhir]

Et en le remplaçant, plus simplement par :

Code :

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

Range("H13").AutoFill Destination:=Range("H13:H" & DerLigA & ""), Type:=xlFillDefault

[stagiairecg]

non ca ne marche pas

je veux qu'il me fasse le calcul jusqu'a la dernière ligne de K
il me fait le calcul jusqu'a la dernière ligne de K losque j'ai au minimum deux données donc une dans K13 et une autre dans K14, sa marche pas quand j'ai qu'une seul donné dans la colonne K donc dans K13

Dim DerLigA As Long
DerLigA = Cells(Rows.Count, 1).End(xlUp).Row
Dim DerLigK As Long
DerLigK = Cells(Rows.Count, 9).End(xlUp).Row

'tarif trajet
Range("H13").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],trajet,2,FALSE),"""")"
Range("H13").Select
Selection.AutoFill Destination:=Range("H13:H" & DerLigA & ""), Type:=xlFillDefault
Range("H13:H" & DerLigA & "").Select

'Nombre de jour dans la semaine
Range("J13").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R13C1:R" & DerLigA & "C1,RC[-1])"
Range("J13").Select
Selection.AutoFill Destination:=Range("J13:J" & DerLigK & ""), Type:=xlFillDefault
Range("J13:J" & DerLigK & "").Select

'total trajet par semaine
Range("K13").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R13C1:R" & DerLigA & "C1,RC[-2],R13C8:R" & DerLigA & "C8)"
Range("K13").Select
Selection.AutoFill Destination:=Range("K13:K" & DerLigK & ""), Type:=xlFillDefault
Range("K13:K" & DerLigK & "").Select