Selection d'une colonne sur un tableau qui varie

Bonjour,

je cherche à faire une selection de colonne 'k', à partir de la ligne 7, sur un tableau qui à un nombre de ligne qui peut varier.

A savoir que je dispose d'une variable qui me permet de savoir le nbr de ligne.

Puis apres y mettre une formule. ici la formule est prise en enregistrant une macro.(ici ActiveCell.FormulaR1C1 = "=(RC[-2]+RC[-1])/1400").

'calcul du nombre de lignes avec affichage

With Selection

nbdeligne = Sheets("ri").Cells(Rows.Count, "A").End(xlUp).Row

wss.Range("L3").Value = nbdeligne - 1

End With

'mise en forme avec formule de comptage de k7 à la fin du tableau

With Selection

ActiveSheet.Range("k7", ActiveSheet.Range("k7").End(xlDown)).Select

ActiveCell.FormulaR1C1 = "=(RC[-2]+RC[-1])/1400"

End With

La ou je plante c'est dans le nombre de ligne, vu qu'il varie.

Si qq peut m'eclairer.

je mets en pieces jointes le fichier avec la macro.

Merci à vous

Bonjour,

essaie en remplaçant la fin de ton code par :

                           'mise en forme avec formule de comptage de k7 à la fin du tableau

    With Selection

 ActiveSheet.Range("k7").Select
    ActiveCell.FormulaR1C1 = "=(RC[-2]+RC[-1])/1400"
    End With
derligne = Sheets("Ri").Range("a" & Rows.Count).End(xlUp).Row
Sheets("Ri").Range("K7").Select
Selection.AutoFill Destination:=Sheets("Ri").Range("K7:K" & derligne)

Cordialement

Bonjour,

ceci te convient ? :

'mise en forme avec formule de comptage de k7 à la fin du tableau

With Selection

Last = [J65000].End(xlUp).Row

ActiveSheet.Range("k7:k" & Last).Select

Selection.FormulaR1C1 = "=(RC[-2]+RC[-1])/1400"

End With

Bonjour messieurs,

bigdaddy tu es trop fort, je viens de l'essayer cela à fonctionner du premier coup!!!!

je comprends le cheminement, mais il me reste à travailler les syntaxes!!!!

les : "" et autre sont encors du chinois pour moi!!!

aussi j'ai rajouté ma mise en forme pour afficher en heure à la suite.

me dire si j'ai bien tt comprit :

With Selection

ActiveSheet.Range("k7").Select 'selection de la case k7 sur la page active

ActiveCell.FormulaR1C1 = "=(RC[-2]+RC[-1])/1400" 'formule dans la case active ( meme si je ne comprends pas tt)

End With

derligne = Sheets("Ri").Range("a" & Rows.Count).End(xlUp).Row 'definition de la variable derligne apres que le programme soit partit du bas pour remonter

Sheets("Ri").Range("K7").Select

Selection.NumberFormat = "[h]:mm:ss"

Selection.AutoFill Destination:=Sheets("Ri").Range("K7:K" & derligne)

aussi je vais essyer la deuxieme proposition pour essayer et vous tiens au courant.

en tout merci merci merci!!!!

je vais gagner du temps dans le traitemant de mes données!!!

Re,

bon ben les deux fonctionnent!!!

deux philosophie differentes pour le même resultat!!!

Bravo et encors merci!!!

allez merci!!!!

et encors merci!!!!