macro supprimer ligne formule constante

[Florian95]

Bonjour à tous,

encore une macro qui me donne du fil à retordre ! Je vous ai concocté une vision simplifiée de la situation dans le fichier joint.


La macro doit me permettre :

1 de rechecher une valeur (exemple : lille en A3) dans la colonne A
2 de supprimer la cellule A3 + la cellule B3
3 de laisser le formule qui était présente dans la cellule avant soit
pour A : =SI(BDD!A3=0;"";BDD!A3)
pour B : =SI(BDD!B3=0;"";BDD!B3)

Cette formule doit rester constante de la ligne 2 à 1000


Je sais que cela à l'air saugrenue puisque le résultat sera dans cas le même. Mais dans les fait cela s'insere dans une macro plus globale.

Merci d'avance pour votre aide !

 

[Guest]

Re : macro supprimer ligne formule constante

bonjour,

Je ne comprends pas le but de l'opération puisque les données dans BDD ne changent pas la formule renverras toujours Lille.

A+

 

[Florian95]

Re : macro supprimer ligne formule constante

Bonjour Hasco,

merci de votre réponse !

je sais que cela peut paraître bizarre mais dans les fait le BDD est également impactée par la macro (elle pert aussi une ligne).
Ainsi, je supprime dans la page TRI, je réintègre ma formule. Au final ma feuille TRI est "mise à jour" !

Je maintiens donc ma question 🙂 . Merci d'avance

 

[Guest]

Re : macro supprimer ligne formule constante

Re,

Donc, si je comprends bien, il suffit de supprimer Lille de la BDD et laisser la feuille Tri en l'état. Lille ayant disparu de BDD, n'apparaîtra plus dans TRI.

C'est ça?
A+

 

[Florian95]

Re : macro supprimer ligne formule constante

Re bis,

Oui c'est exactement cela sachant que si je supprime la ligne dans la BDD j'ai #REF! qui apparait logiquement dans la feuille TRI.
A ce moment je dois manuellement reglisser la formule des lignes 2 à 1000 colonnes A & B.
C'est ce phénomène que je souhaite automatiser

Merci !

 

[Guest]

Re : macro supprimer ligne formule constante

Re,

alors c'est simple:

Sheets("TRI").Range("A2:B1000").FormulaR1C1 = "=IF(BDD!RC=0,"""",BDD!RC)"

A+

 

[Florian95]

Re : macro supprimer ligne formule constante

Re,

cela à l'air de fonctionner sauf que ma feuille BDD est en réalité en A6:B1000


Que deviens la formule :
Sheets("TRI").Range("A2:B1000").FormulaR1C1 = "=IF(BDD!RC=0,"""",BDD!RC)"




Merci

 

[Guest]

Re : macro supprimer ligne formule constante

Re,
Mets ta formule à la main dans la feuille tri. Sélectionne une cellule la contenant
Ouvre l'éditeur VBE (ALT+F11)
Ouvre la fenêtre Exécution (par le menu affichage de VBE)
Dans la fenêtre exécution tape (y compris le ?) : ?ActiveCell.FormulaR1C1
Valide par entrer et en-dessous viendra s'écrire ta formule.

Essaie d'adapter.

[Edition] je viens de penser que pour ne pas avoir à ré-écrire tes formules tu peux les changer pour quelque chose comme ceci

=Indirect("BDD!A" & Ligne())

ainsi même si tu supprimes des lignes de BDD tes cellules feront toujours référence au bon endroit.
A+

 

[Florian95]

Re : macro supprimer ligne formule constante

Harsco,

cela fonctionne à merveille !
juste un petit reglage des RC !

Merci beaucoup et bonne journée