selection cellules

[Fmadinina]

Bonjour à tout le monde!
Voilà j'ai une feuille excel qui s'actualise tous les mois avec les ventes de produits mensuelles. J'aimerai pouvoir sélectionner les 4 dernières cellules qui correspondent aux 4 derniers mois afin de pouvoir automatiser des calculs tous les mois

Merci de vos réponses

 

[Vériland]

Bonjour Fmadinina et toi le forum,

Voici la procédure qui te permettra de selectionner les 4 dernières cellules d'une colonne (ici colonne A)...

Sub Selectionner()
' Vériland Octobre 2003
' sélectionner les 4 dernières valeur
' de la colonne A
Dim DerLig As Long
DerLig = Range("A65536").End(xlUp).Row
Range("A" & DerLig & ":A" & DerLig - 3).Select
End Sub

Bon là j'suis parti plus loin dans la logique de sélection et je te propose une suite...mais cette fois-ci on copie les 4 dernières cellules d'une colonne (toujours colonne A) et on colle à H2...

Sub CopierColler()
' Vériland Octobre 2003
' copier les 4 dernières valeur
' de la colonne A
' et colle vers B2
Dim DerLig As Long
DerLig = Range("A65536").End(xlUp).Row
Range("A" & DerLig & ":A" & DerLig - 3).Copy [H2]
End Sub

après pour le calcul c'est autre chose...j'sais pas si c'est ce que tu veux mais voilà ce à quoi je pensais...

 

[Vériland]

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

j'me suis trompé de bouton...lol

 

[Fmadinina]

Merci, c'est exactement ce que je voulais