Formule simplement absolue

[jeromeN95]

Bonjour à tous,
j'ai un petit soucis.

J'aimerai que ces formules soient absolues.
Donc qu'ils ne bougent pas si j'insert une colone.
Merci à vous.

 

[mapomme]

Re : Formule simplement absolue

Bonjour,

Une piste : Voir formules dans fichier joint.

 

[JCGL]

Re : Formule simplement absolue

Bonjour à tous,

Avec la formule de MaPomme et ce code :

Sub Nouveau_relevé()
'pour onglet Prog+ sert à l'horloge doseur
Columns("X:X").Insert Shift:=xlToRight
Range("X2").Formula = "=TODAY()"
Columns("X:X").ColumnWidth = 10
Range("X11").Formula = "=SUM(R[-8]C:R[-2]C)"
Range("X3:X11").NumberFormat = "#,##0"
Range("X3").Select
End Sub

A+ à tous

 

[jeromeN95]

Re : Formule simplement absolue

Bonsoir et merci à tous les 2, c'est parfait !
Pile poil dans l'mil comme on dit.

Un petit rajout si je peux me permettre :
Je souhaiterai que la cellule X11 soit au format personnaliser STANDARD" Kg"

Donc que le résultat soit une somme de nombre sans virgule avec Kg à la fin de façon automatique SVP...

 

[JCGL]

Re : Formule simplement absolue

Bonjour à tous,

Peux-tu essayer :

Sub Nouveau_relevé()
'pour onglet Prog+ sert à l'horloge doseur
Columns("X:X").Insert Shift:=xlToRight
Range("X2").Formula = "=TODAY()"
Columns("X:X").ColumnWidth = 10
Range("X11").Formula = "=SUM(R[-8]C:R[-2]C)"
Range("X3:X10").NumberFormat = "#,##0"
Range("X11").NumberFormat = "0"" Kg"""
Range("X3").Select
End Sub

A+ à tous

 

[jeromeN95]

Re : Formule simplement absolue

Bonsoir,
c'est parfait.
Merci beaucoup;

J'ai rajouter ceci car j'avais oublier les bordures et couleur de cellule :

Sub Nouveau_relevé()
'pour onglet Prog+ sert à l'horloge doseur
Columns("X:X").Insert Shift:=xlToRight
Range("X2").Formula = "=TODAY()"
Columns("X:X").ColumnWidth = 10
Range("X11").Formula = "=SUM(R[-8]C:R[-2]C)"
Range("X3:X10").NumberFormat = "#,##0"
Range("X11").NumberFormat = "0"" Kg"""
Range("X3:X10").Select
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

Range("V2:X10,X11").Select
Range("X11").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("X3").Select
End Sub

Bonne soirée à tous.

 

[JCGL]

Re : Formule simplement absolue

Bonjour à tous,

Peut être un peu plus court :

Sub Nouveau_relevé()
'pour onglet Prog+ sert à l'horloge doseur
Columns("X:X").Insert Shift:=xlToRight
Range("X2").Formula = "=TODAY()"
Columns("X:X").ColumnWidth = 10
Range("X11").Formula = "=SUM(R[-8]C:R[-2]C)"
Range("X3:X10").NumberFormat = "#,##0"
Range("X11").NumberFormat = "0"" Kg"""
Range("X3:X10").Interior.ColorIndex = 36

With Range("X2:X11").Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With

Range("X3").Select
End Sub

A + à tous

 

[jeromeN95]

Re : Formule simplement absolue

Je te remercie.
C'est vrai que c'est quand même mieux.
A+