Bug sur Checkbox et CommandButton : autozoom

Hello tous,

J'ai un phénomène étrange sur 4 checkbox et 1 commandbutton sur 1 feuille et sur un commandbutton sur une autre feuille

Quand je les utilise, la case ou le texte contenu dedans zoom ce qui a forme empeche de voir le contenu du commandbutton ou bien si la case est coché ou pas.

Avez vous deja eu ce bug? Si oui, quels erait la solution s'il vous plait?

Voici ce que ça donne initiallement

Et voila ce que ça donne après 3-4 clics sur les check box ou le boutton.

Voici le code associé

Private Sub CheckBox1_Click()

If CheckBox1 = True Then
    Sheets("Nutrition Facts EU").Columns("D:D").EntireColumn.Hidden = False
Else
    Sheets("Nutrition Facts EU").Columns("D:D").EntireColumn.Hidden = True
End If
End Sub

Private Sub CheckBox2_Click()

If CheckBox2 = True Then
    CheckBox4.Value = False
    Sheets("Nutrition Facts EU").Columns("F:F").EntireColumn.Hidden = False
Else
    Sheets("Nutrition Facts EU").Columns("F:F").EntireColumn.Hidden = True
End If
End Sub

Private Sub CheckBox3_Click()

If CheckBox3 = True Then
    Sheets("Nutrition Facts EU").Columns("E:E").EntireColumn.Hidden = False
    Sheets("Nutrition Facts EU").Rows("5:5").EntireRow.Hidden = False

Else
    Sheets("Nutrition Facts EU").Columns("E:E").EntireColumn.Hidden = True
    Sheets("Nutrition Facts EU").Rows("5:5").EntireRow.Hidden = True
    End If
End Sub

Private Sub CheckBox4_Click()

If CheckBox4 = True Then
    CheckBox2.Value = False
    Sheets("Nutrition Facts EU").Columns("G:H").EntireColumn.Hidden = False

Else
    Sheets("Nutrition Facts EU").Columns("G:H").EntireColumn.Hidden = True
    End If
End Sub

Private Sub CommandButton1_Click()
export_to_picture_EU
End Sub

et voila la commande d'impression a laquelle se réfère le bouton

Sub export_to_picture_EU()

'Copie la cellule en tant qu'image
        Sheets("Nutrition Facts EU").Range("Nutrition_information").Select
        Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture

'creer un graphique temporaire
        With ActiveSheet.ChartObjects.Add(Left:=Range("Nutrition_information").Left, Top:=Range("Nutrition_information").Top, _
        Width:=Range("Nutrition_information").Width, Height:=Range("Nutrition_information").Height)
        .Name = "ExportImage"
        .Activate
        End With

'Copier l'image dans le graphique, ouvrir le dialog de "Sauvegarder sous", sauvegarde le fichier et supprime le graphique temporaire
        ActiveChart.Paste
        FichierImage = Application.GetSaveAsFilename(InitialFileName:="NutInfoEU.png", FileFilter:="Image file (*.png), *.png")
        ActiveSheet.ChartObjects("ExportImage").Chart.export FichierImage
        ActiveSheet.ChartObjects("ExportImage").Delete

End Sub

C'est embetant car tout fonctionne a part ça...

Merci par avance pour votre aide

Bastien

Bonjour,

Sans un fichier représentatif du souci, il semble bien difficile d'en déterminer la source ...

ric

Hello

C'est très étrange. J'ai redemarer mon pc ce matin et la, ça ne me fait plus le bug...

Je vous joins le fichier au cas ou qand même

Merci par avance

Bastien