Problème de sélection d'une colonne

Résolu/Fermé
Mumu007 Messages postés 9 Date d'inscription dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014 - 19 janv. 2014 à 16:34
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 19 janv. 2014 à 21:32
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 janv. 2014 à 16:44
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 dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014
19 janv. 2014 à 16:54
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 janv. 2014 à 17:01
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 dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014
19 janv. 2014 à 17:07
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 19/01/2014 à 18:52
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 dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014
19 janv. 2014 à 20:46
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 janv. 2014 à 21:01
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 dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014
19 janv. 2014 à 21:21
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 19/01/2014 à 21:32
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