un internaute
XLDnaute Impliqué
Bonjour le forum,
Lorsque je veux actionner le bouton (bien affecté) ou lancer la macro ça bug avec ce message:
Erreur d'éxécution'13':
Ça bug à la ligne
Incompatibilité de type
Merci d'avance pour vos conseils
Cordialement
Lorsque je veux actionner le bouton (bien affecté) ou lancer la macro ça bug avec ce message:
Erreur d'éxécution'13':
Ça bug à la ligne
Code:
Set Sh = ActiveSheet.Shapes(Application.Caller)
Merci d'avance pour vos conseils
Cordialement
Code:
Sub AfficherMasquerLignesVides()
Dim p As Range, I As Long
Dim Nom As String
Dim Sh As Shape
ActiveSheet.Unprotect
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Set Sh = ActiveSheet.Shapes(Application.Caller)
With Sh.TextFrame.Characters
If UCase(Left(.Text, 8)) = "AFFICHER" Then
.Text = "Masquer les Lignes Vides"
Rows("6:36").Hidden = False
Else
.Text = "Afficher les lignes Vides"
For I = 6 To 36
If Application.CountA(Rows(I)) = 0 Then _
Rows(I).Hidden = True
Next I
End If
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
Application.Calculation = xlAutomatic
End Sub
Dernière édition: