Discussion :

[damze00]

Salut à tous,

J'ai un petit soucis pour un programme écrit en VBA.

J'ai donc une série de chiffres que j'ai mis en forme sous forme de tableau. J'y ai ajouté les formules dans les colonnes (j'ajoute une seule fois la formule dans la première cellule du tableau et elle est automatiquement appliqué à l'ensemble de ce dernier).

Cependant, dans certains cas j'aurais besoin de changer cette formule pour une autre, j'ai déjà une boucle qui balaie le tableau pour modifier certains paramètres esthétiques qui fonctionne bien. Cependant, si je changer la formule avec cell(i, "j" ).value ou .formula, la formule s'applique à TOUT le tableau, or je souhaite seulement qu'elle s'applique à la cellule concerné.

Si je change manuellement à la souris il n'y a aucun soucis, une option apparait justemet pour me demander si je souhaite appliquer la formule à tout le tableau.... Comment faire la même chose en VBA sans appliquer la formule à tout le tableau ?

C'est sûrement un truc bête mais impossible de trouver, et problème difficile à décrire sur Google en français et en anglais .



Merci d'avance

[Invité]

tu a essayé de faire un teste de la valeur de la cellule ou un autre qui te permettrais de vérifier si la formule doit changer?

Code :

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

1
2
3
 if cell(i, "j" ).value ="Bof" then  cell(i, "j" ).FormulaR1C1="=RC[-2]-RC[-1]"
'OU
 if cell(i, "j" ).Offset(0,1)="Bof" then  cell(i, "j" ).FormulaR1C1="=RC[-2]-RC[-1]"