Bonjour, je ne sais pas créer de VBA… vous pouvez me le faire ?Bonjour,
dans les formules ... pas de fonction dispo sur les mises en page d'une cellule (couleur police, ...)
tu va devoir passer par du VBA.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Not Intersect(Range("F:F"), Target) Is Nothing And Target.Count = 1 Then
For i = 1 To Range("F" & Rows.Count).End(xlUp).Row
If Cells(i, 6) <> "" And Cells(i, 6).Font.Strikethrough = True Then
Cells(i, 8).FormulaLocal = "=D" & i
ElseIf Cells(i, 6) <> "" And Cells(i, 6).Font.Strikethrough = False Then
Cells(i, 8).FormulaLocal = "=D" & i & "+ F" & i
End If
Next i
End If
Exit Sub
End Sub
Private Sub workbook_Open()
Application.OnTime 1, "Calcul" 'lance la macro
End Sub
Function Barré(c As Range)
Application.Volatile
Barré = IIf(c.Font.Strikethrough, 0, c)
End Function
Sub Calcul() 'tourne en arrière-plan
Dim t#
Do
[H:H].Calculate
t = Timer + 0.1
While Timer < t And t < 86400: DoEvents: Wend 'attente de 0.1 seconde
Loop
End Sub
Option Explicit
Sub Barré()
Dim flg As Boolean, cp&, vx@
With Cells(ActiveCell.Row, 6)
vx = Val(.Value): .NumberFormat = "#,##0.00 $"
If vx > 0 Then
With .Font
cp = 10066329 - .Color: .Color = cp
flg = Not .Strikethrough: .Strikethrough = flg
If flg Then vx = 0
End With
.Offset(, 2) = .Offset(, -2) + vx
End If
End With
End Sub
bonjour,Bonjour Tioneb_h,
j'ai vu que tu es passé hier :
Regarde la pièce jointe 1143136
mais il semble que tu oublies tes sujets !
tu n'as pas téléchargé le fichier de mon post #7,
et tu n'as pas donné de réponse !
soan
salut,bonjour,
j'ai vu le mail... mais je n'ai pu donner suite.
je regarde maintenant
benoît
salut,Le code précédent ne permet pas le copier-coller, pour y remédier remplacer :
par :VB:[H:H].Calculate
VB:If Not ThisWorkbook.Saved Then [H:H].Calculate: ThisWorkbook.Saved = True
Tioneb_h à dit:super... ça fonctionne
par-contre, je vois que la formule disparait ?
okBonjour Benoît,
citation tirée de ton post #10 :
dans le fichier joint de ton post #1, il n'y a pas de formule ! j'ai téléchargé le nouveau fichier de ton post #10 ; je le regarderai plus tard, quand j'aurai plus de temps ; même si tu es déjà satisfait de la proposition de job75, j'essayerai de trouver moi-même une solution pour ton nouveau fichier ; si je vais trouver quelque chose de valable, je le posterai.
pour ton autre sujet, je t'ai répondu avec mon post #7.
soan