Discussion :

[mewtwo]

Je souhaiterais remplacer la formule presente dans la cellule A1 (par exemple =B1/B2) par une formule du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI (C1<>"";C1;=B1/B2)

Etant donné que j'ai un gd nombre de cellules de ce type à modifier, est il possible de le faire par VBA ?

[Mytå_Qc]

Salut le forum

A adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A5").Formula = "=IF(C1<>"""",C1,B1/B2)"

Mytå_Qc

[mewtwo]

Désolé, je me suis mal exprimé.
Les cellules de la colonne A contiennent, toutes des formules DIFFERENTES.
Je souhaite qu'à ces cellules soit appliqué leur formule initiale seulement si la cellule adjacente en colonne B est vide, sinon je retiens pour ces cellules la valeur de la cellule adjacente :

Contenu initial de la cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=maformule

Contenu souhaité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI (cellule adjacente<>"";cellule adjacente;=maformule)

[Pierre Fauconnier]

Bonjour, et bienvenue sur les forums de DVP

Dans ce cas, on peut analyser le problème en disant:
Si la cellule adjacente n'est pas vide, on met la valeur de la cellule adjacente, sinon, on ne touche à rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Boucle()
    Dim Cellule As Range
 
    For Each Cellule In Range("a1:a3")
        If Cellule(1, 2) <> "" Then Cellule.Value = Cellule(1, 2).Value
    Next Cellule
End Sub

en adaptant la plage sur laquelle boucler.

Ok?

[mewtwo]

Non, ca ne va pas.
les cellules en colonne B me servent à forcer TEMPORAIREMENT la valeur de la cellule adjacente en colonne A.
Je souhaite donc qu'en effacant le contenu de la cellule en colonne B, la cellule en colonne A retrouve sa formule initiale.

[Pierre Fauconnier]

Tu ne peux forcément pas avoir en A une formule qui pointe sur A. Cela s'appelle une référence circulaire. En clair, tu ne peux pas avoir en A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(b1<>"";B1;A1)

. Or, c'est ce que tu te proposes d'essayer de mettre en place avec une macro.

Donc, tu dois stocker les contenus de A dans une autre feuille avant de les remplacer par les valeurs de B, pour pouvoir aller les rechercher lorsque tu vides B. Il te faut donc une feuille supplémentaire où stocker les valeurs de A.

Après, il faudra jouer avec l'évènement CHANGE pour tester que l'on vide ou que l'on remplit B et stocker la valeur de A dans la feuille supplémentaire ou rapatrier l'ancienne valeur de A sauvegardée sur la feuille supplémentaire.

Il n'y a pas d'autre solution que celle-là, à mon avis.