Discussion :

[graphikris]

Bonjour,

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

Exemple d'un code :

Code :

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

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 ?

[joe.levrai]

Bonjour,

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

Code :

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

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

[Invité]

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 :

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

=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 :

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

?activecell.formular1c1

et appuis sur la touche entre!

Ca revient à faire

Code :

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

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

mais si tu supprime b1 la formule fonction!

[graphikris]

merci, je vais tester