Discussion :

[Didpa]

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 :

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

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

[jackborogar]

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 :

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

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,

[fring]

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

Regarde dans l'aide FormulaR1C1

[Didpa]

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

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

Merci

Cordialement

[jfontaine]

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 :

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

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