bonjour,
pardon oui je viens de voir qu'il n'y avait plus la macro...
non normalement la cellule avec la macro me fait les multiplications...maintenant cela me mets "bloqué"
dans la cellule "bloqué" il y a =SI(F3="-";-@calcul*G3;@calcul*G3)
Sub Métrés()
Dim plage As Range, Cellule As Range, Recherche As Range
If ActiveSheet.Name = "Métrés" Then
Set plage = ActiveSheet.Range("A1:B1000")
Else
Exit Sub
End If
For Each Cellule In plage
If Not Cellule.Value = "" Then
Application.FindFormat.Clear
Set Recherche = Sheets("Ouvrages").Range("D:G").Find(Cellule, lookat:=xlWhole)
If Not Recherche Is Nothing Then
Cellule.Font.FontStyle = Recherche.Font.FontStyle
Cellule.Font.Italic = Recherche.Font.Italic
Cellule.Font.Size = Recherche.Font.Size
Cellule.Font.Bold = Recherche.Font.Bold
Cellule.RowHeight = Recherche.RowHeight
Cellule.Font.ColorIndex = Recherche.Font.ColorIndex
Cellule.Interior.Color = Recherche.Interior.Color
Cellule.Borders(xlEdgeBottom).LineStyle = Recherche.Borders(xlEdgeBottom).LineStyle
End If
End If
Next Cellule
End Sub
pourquoi? je ne m'y connais pas malheureusement.