Formule qui reste Fixe

Bonjour

Voilà, j'ai une formule qui se trouve dans la colonne B, qui a pour but de faire la somme de la ligne de C:ZZ, mais voila, le hic c'est que je doit inserer des colonnes entre B et C, et cela a pour conséquence de bouger ma formule, a chaque insertion. une colonne d'ajouter et formule devient D:AAA etc.....
J'ai essayer avec le signe $ devant ma lettre mais rien n'y fait. Quelqu'un aurait la solution.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub SommeSi() ' ' SommeSi Macro '     Range("B2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",SUM(RC[1]:RC[700]))" Range("B2").Select ' cela me permet d'étendre la formule sur 100 clients. Selection.AutoFill Destination:=Range("B2:B100"), Type:=xlFillDefault Range("B2:B101").Select Range("A1").Select End Sub

---

Merci

Cordialement

Didier

Bonjour Didier,

Excuse moi de te dire cela mais ton code ne veut rien dire! Donc reprenons si tu le veux bien. Déjà c'est quoi R[-1], etc... On utilise maintenant le nom des cellules.

VOici ton code, commenté:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub SommeSi()   Range("B2").Select 'tu selectionnes B2 => OK ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",SUM(RC[1]:RC[700]))" 'Tu veux rentrer une formule en B2 mais c'est pas bon retire les RC Range("B2").Select 'tu reselectionnes B2 => Inutil ' cela me permet d'étendre la formule sur 100 clients. Selection.AutoFill Destination:=Range("B2:B100"), Type:=xlFillDefault 'tu étends ta formule jusqu'a B100 Range("B2:B101").Select 'selectionnes B2 à B101 Range("A1").Select 'puis reselectionne A1 => inutiles? End Sub

---

Peux tu nous dire se que tu souhaites, bien détaillé stp,

Cdt,

Citation:

---

Envoyé par jackborogar

Déjà c'est quoi R[-1]

---

Regarde dans l'aide FormulaR1C1 ;)

La formule a été créée directement depuis Excel.

Sinon ou se trouve l'aide pour : FormulaR1C1 ??

Merci

Cordialement

Bonjour,

Une méthode consiste a trouver la colonne qui contient le titre se trouvant actuellement en B1 puis de partir de cette cellule

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub SommeSi() ' ' SommeSi Macro ' Dim Rg As Range   Set Rg = Rows(1).Find(what:="Nom", lookat:=xlWhole)   If Not Rg Is Nothing Then Range(Rg.Offset(1, 0), Rg.Offset(100, 0)).FormulaR1C1 = "=IF(RC[-1]="""","""",SUM(RC[1]:RC[700]))" End If   End Sub

---