Modifier des emplacements cellules en Vba

Bonjour,

Explication brève mais efficace (j'espère)

Exemple d'un code :

Code:

---

1 2 3 4 5 6

Sub Macro1() ActiveCell.FormulaR1C1 = "=IF(RC[1]=0,""Zéro"",""Supérieur à Zéro"")" Range("B1").Select ActiveCell.FormulaR1C1 = "5" Range("B2").Select End Sub

---

(En fait le code en lui meme n'a aucune importance pour ma question.)

Question : Si j'insére ou supprime une colonne ou une ligne, ma macro ne fonctionnera plus puisque celle ci faisait référence à une cellule bien précise et que celle-ci a été décalée. Comment faire pour que la macro puisse refonctionner sans que j'ai a retoucher les cellules incriminées dans le code VBA ?

Bonjour,

tu peux passer en notation absolue ? Ca va éliminer 99% des cas de suppression qui posent problème dans les formules

Code:

---

1 2 3

With ActiveCell .FormulaR1C1 = "=IF(R" & .Row & "C" & .Column + 1 & "=0,""Zéro"",""Supérieur à Zéro"")" End With

---

Bonjour,
Il faut que ta formule face références a la cellule qui contient la formule décale de xy.
Dans Excel tape cette formule.

Code:

---

=Si(decale(A1;0;1)="toto";"oui";"non")

---

Ensuite positionnes toi sur la cellule de la formule, vas dans vb raccourci clavier [Alt] + [F11]

Vas dans la fenêtre d'exécution étape

Code:

---

?activecell.formular1c1

---

et appuis sur la touche entre!

Ca revient à faire

Code:

---

=Si(b1="toto";"oui";"non")

---

mais si tu supprime b1 la formule fonction!

merci, je vais tester