VBA - copier une formule en decalant sa colonne
Résolu
mod77
Messages postés
1320
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
Bonjour,
Dans un classeur j'ai copié une feuil1 avec un tableau, vers une feuil2.
Je souhaite que les formules du tableau de feuil2, qui sont que des copies de cellule d'une autre feuille, soient décalées d'une colonne.
Je lutte en vain pour trouver comment faire.
La formule du tableau est de type "feuil0!A10" et je souhaite la transformer en "feuil0!B10" sur feuil2.
J'obtiens ma formule à partir de ceci:
Les colonnes ne sont pas toujours les mêmes.
J'ai essayé :
mais erreur: "objet attendu"
Pouvez-vous m'aider svp?
Dans un classeur j'ai copié une feuil1 avec un tableau, vers une feuil2.
Je souhaite que les formules du tableau de feuil2, qui sont que des copies de cellule d'une autre feuille, soient décalées d'une colonne.
Je lutte en vain pour trouver comment faire.
La formule du tableau est de type "feuil0!A10" et je souhaite la transformer en "feuil0!B10" sur feuil2.
J'obtiens ma formule à partir de ceci:
Sheets(feuil1).Range("C15").FormulaLocal
Les colonnes ne sont pas toujours les mêmes.
J'ai essayé :
Sheets(feuil2).Range("C15").FormulaLocal=Sheets(feuil1).Range("C15").FormulaLocal.offset(0,1)
mais erreur: "objet attendu"
Pouvez-vous m'aider svp?
Configuration: Windows / Firefox 72.0
A voir également:
- VBA - copier une formule en decalant sa colonne
- Déplacer une colonne excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel colonne - Guide
- Formule si et - Guide
- Trier une colonne excel - Guide
2 réponses
J'ai trouvé ceci et ça marche
quelle galère...
formule = Sheets(feuil1).Range("C15").FormulaLocal
part1 = Split(formule, "!")(1) 'A10
part2 = Chr$(Asc(Mid(part1, Len(part1) - 2, 1)) + 1) & Right(part1, 2) 'I Incremente colonne
ActiveWorkbook.Sheets(feuil2).Range("C15").FormulaLocal = "feuil1!" & part2
quelle galère...
bonjour, je suggère ceci:
ou, dans ton cas:
Dim tableau As Range, rg As Range
Set tableau = ThisWorkbook.Sheets("Sheet1").[A1:B5]
For Each rg In tableau
rg.FormulaLocal = "=" + Split(Range(rg.FormulaLocal).Offset(0, 1).AddressLocal(, , , True), "]")(1)
Next rg
ou, dans ton cas:
ActiveWorkbook.Sheets(feuil2).Range("C15").FormulaLocal = "=" _
+ Split(Range(ActiveWorkbook.Sheets(feuil2).Range("C15").FormulaLocal).Offset(0, 1).AddressLocal(, , , True), "]")(1)