Problème de sélection d'une colonne

Résolu
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, je début en VBA et evidemment je suis un peu dans le flou.
Je dois réaliser une formule en I13 (pas prendre les 12 premieres ligne) et la copier sur toute les cellules de la colonne excepté sur la dernière ligne.
Car la derniere doit comporter une autre formule (la somme)
Je n'arrive pas à arreter la formule sur l'avant derniere ligne.
Voici mon code

Sub sup_STEP1()
Dim rcel As Range

Range("I13").Activate
ActiveCell.FormulaR1C1 = "=RC[-8]*RC[-1]"
Range("I13").Select
Selection.Copy
Range("I13").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
ActiveSheet.Paste

End Sub

Pouvez-vous m'aider
Merci
A voir également:

7 réponses

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

la copier sur toute les cellules de la colonne excepté sur la dernière ligne.

La dernière ligne par rapport à quoi ?
0
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
Pardon, pour ne pas etre assez précise
En fait c'est sur toutes les cellules de la colonne sauf la dernière cellule de la colonne car celle ci est prévue pour le total.

Donc la formule que je copie sur toute la colonne ne doit pas se copier sur la dernière cellule du tableau car celle ci est prévue pour le total

Désolée encore
et merci pour votre patience
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
LOL !!!

Ça ne répond pas à la question ... Il est délimité par quelle colonne le tableau ? Il commence colonne A, D, G ... ???
0
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
Le tableau commence en A13 jusque K19 mais la colonne concernee est de I13 à I20 mais la formule doit etre copiée de I13 à I19 - la cellule I20, étant le total (donc autre formule)
Merci
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Comme ça peut être, si le tableau n'est pas susceptible d'être allongé:

Range("I13").FormulaR1C1 = "=RC[-8]*RC[-1]"
Range("I13").AutoFill Destination:=Range("I13:I19"), Type:=xlFillDefault
0
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
Ben oui, il est susceptible d'être allongé ou raccourci. La derniere cellule de la colonne sera toujours le total. Donc la formule en I13 doit toujours etre copiée sauf dans la derniere cellule. Avec le code que j'avais introduit, la formule était copiée sur toutes les cellules de la colonne I.
C'est la premiere fois que je demande une aide sur internet, et désolée si je ne suis pas assez claire dans mes explications
Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Désolé de poser des questions, mais sans un minimum d'infos, il est difficile, voire impossible, d'apporter de l'aide.

A tester et peut être adapter

Sub sup_STEP1()
Dim derlig As Long

derlig = Range("A13").End(xlDown).Row - 1

Range("I13").FormulaR1C1 = "=RC[-8]*RC[-1]"
Range("I13").AutoFill Destination:=Range("I13:I" & derlig), Type:=xlFillDefault

End Sub

0
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
OK OK le code que vous m'avez donné fonctionne.
Merci beaucoup pour votre aide. Vous m'avez sauvé quelques heures de casse tete
Merci encore
Salutations
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
De rien.

Merci de mettre le sujet en résolu.

Cordialement.

«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
0