Bonjour,
mais, serait-il possible de donner des valeurs à ma largeur(20) et hauteur (15) des colonnes et lignes avec cette formule ?
Private Sub Worksheet_Activate()
Dim c As Range, sh As Shape, rng As Range
Application.ScreenUpdating = False
For Each sh In Feuil9.Shapes
sh.Delete
Next
For Each sh In Feuil27.Shapes
If sh.TopLeftCell.Column = 7 Or sh.TopLeftCell.Column = 8 Then
If Not IsError(Application.Match(Feuil27.Range("F" & sh.TopLeftCell.Row), Feuil9.Range("B5:B38"), 0)) Then
sh.Copy
Set rng = Feuil9.Range("C3").Offset(Application.Match(Feuil27.Range("F" & sh.TopLeftCell.Row), Feuil9.Range("B5:B38"), 0), 0)
rng.PasteSpecial
Feuil9.Shapes(Feuil9.Shapes.Count).Height = rng.MergeArea.Height
Feuil9.Shapes(Feuil9.Shapes.Count).Width = rng.MergeArea.Width
rng.Select
Set rng = Nothing
Application.CutCopyMode = False
End If
End If
Next
End Sub