Bonjour à tous !
D'avance, je remercie ceux et celles qui prendront le temps de m'aider sur ce problème.
Je vous explique :
Je souhaite diviser par 2 toutes les cellules que j'ai sélectionné, ce qui me donne comme code pour le moment :
Exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Sub Division() For Each MaCellule In Selection MaCellule.Value = MaCellule.Value / 2 Next MaCellule End Sub
Sélection de A1
A1 = x/2
Ce code fonctionne très bien.
Maintenant je souhaite à travers cette même macro ajouter à mes cellules sélectionnées (et préalablement diviser par 2) une formule (non la valeur) d'une autre cellule* d'une autre feuille.
Exemple :
Sélection de A1
A1 = x/2 + FormuleA1*
Avec :
A1 Feuille 1
A1* Feuille 2
Je n'arrive pas à trouver le code de cette étape déjà .
Enfin pour finir, et surement le plus compliqué :
La formule en A1* est propre à la cellule sélectionnée en A1.
La formule en B1* est propre à la cellule sélectionnée en B1
Exemple :
Sélection de A1 et de B1
A1 = x/2 + FormuleA1*
B1 = x/2 + FormuleB1*
Pour Explication, mon but de copier uniquement la formule est qu'elle correspond au calcul d'une différence de temps entre deux dates, dont une est l'instant présent (=maintenant()). Donc le résultat est en permanence évolution et je souhaite garder ce facteur temps dans mes différentes cellules.
Pour information, si l'envie vous prend d'écrire le code avec les bonnes cellules et les bons noms de feuilles :
C6 à C53 sur la feuille 'Station de Bord'!.
G5 à G52 sur la feuille 'Système interne'!
Exemple :
Sélection de C6, C7 et de C20
C6 = x/2 + FormuleG5*
C7 = x/2 + FormuleG6*
C20 = x/2 + FormuleG19*
Encore merci pour le temps que vous m'aurez accordé.
Bonne chance
Partager