petites astuces

des bonnes réponses de efgé 

 http://www.excel-downloads.com/forum/search.php?searchid=1182061

 

'retrouver sa page et curseur après suppression

 

Sub OnMaigri()
Dim F As Worksheet, FDeb As Worksheet
Set FDeb = ActiveSheet
Application.ScreenUpdating = False
For Each F In Worksheets
    F.Activate
    ActiveSheet.UsedRange
Next F
FDeb.Activate
Application.ScreenUpdating = True
End Sub

 

 

'rendre visible un graphe en cliquant dans cellule J5 par exple:

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("Tableau1").Columns(1)) Is Nothing Or Target.Count > 1 Then
    Me.ChartObjects("Graphique 1").Visible = False
    Exit Sub
Else
    Range("$J$5").Value = Target.Value
    Me.ChartObjects("Graphique 1").Visible = True
End If
End Sub