Ma tête tourne...ou pb de spinbutton

Shock · 12 Juillet 2006

Bonjour à tous,
J'ai un souci sur des spinbuttons...
J'ai 3 boutons "Toupie" (en français dans le texte), qui ne cessent de se déplacer tous seuls!!!
En fermant le fichier puis en le rouvrant mes 3 boutons se décalent vers la gauche, toujours à la même position!!
J'ai cherché dans les propriétés, pourtant tout a l'air bon...Auriez-vous une idée sur ce phénomène "surnaturel"!! 😉
😱

Shock · 18 Juillet 2006

Re : Ma tête tourne...ou pb de spinbutton

Bon...je vois que personne n'est inspiré?!!
Pour plus d'infos, c'est en lancant une macro d'impression que les spinbutton se déplacent (or la feuille est protégée)...j'ai donc résolu la chose en forcant la propriété "Left" à la valeur voulue à la fin de ma macro d'impression.
Mais c'est quand même bizarre non?

julioo · 18 Juillet 2006

Re : Ma tête tourne...ou pb de spinbutton

salur
peut etre pourrais tu envoyer ta feuille en piece jointe

Shock · 19 Juillet 2006

Re : Ma tête tourne...ou pb de spinbutton

salut julioo,
merci de te pencher sur le pb.
Non, je ne peux pas envoyer mon classeur (gros, et avec des données + ou - confidentielles)...mais je peux mettre mon code de la macro d'impression :

Code:

Sub Impression()
'
'Impression totale
    'impression intro_renseignements
feuille = ActiveSheet.Name
nbcopies = InputBox("Combien de copies en prix publics souhaitez-vous imprimer?" & Chr(10) & "Saisir 0 pour ne pas en imprimer", "Impression", 1)
If nbcopies = "" Then
Exit Sub
End If
Application.ScreenUpdating = False
For i = 1 To nbcopies
   Sheets("Accueil_Aide").Select
    
    Range("A1:J63").Select
    Selection.PrintOut copies:=1, collate:=True

    'impression matériel
    Sheets("Liste_matériel").Visible = True
    Sheets("Liste_matériel").Select
    
    Range("A1:J64").Select
    Selection.PrintOut copies:=1, collate:=True
    
'Impression partie "Etude"
    
    'impression feuil2

    Sheets("feuil2").Visible = True
    
    Sheets("feuil2").Select

    If Range("B19").Value > 0 Then
    
        Range("A1:AJ24").Select
        Selection.PrintOut copies:=1, collate:=True
    End If
      
    'impression feuil1
    
    Sheets("feuil1").Visible = True
    Sheets("feuil1").Select

    If Range("B30").Value > 0 Then
    
        Range("A1:AD35").Select
        Selection.PrintOut copies:=1, collate:=True
    
    End If
Next i

Call impress_nets
    
    nbrecap = InputBox("Combien de copies du récapitulatif souhaitez-vous imprimer?" & Chr(10) & "Saisir 0 pour ne pas en imprimer", "Impression", 1)
    If nbrecap = "" Or nbrecap = 0 Then
    GoTo suite
    End If
    With Sheets("Récapitulatif_PC")
    .Visible = True
    .PrintOut copies:=nbrecap, collate:=True
    End With
suite:

    Sheets(feuille).Select
Application.ScreenUpdating = True
End Sub

la macro "impress_nets" appelée est quasiment la même mais avec une feuille supplémentaire à imprimer.
mon pb se situe sur la feuille nommée "Accueil_Aide".

Merci d'avance.

Ma tête tourne...ou pb de spinbutton

Shock

XLDnaute Occasionnel

Shock

XLDnaute Occasionnel

julioo

Guest

Shock

XLDnaute Occasionnel

Ma tête tourne...ou pb de spinbutton

Shock

XLDnaute Occasionnel

Shock

XLDnaute Occasionnel

julioo

Guest

Shock

XLDnaute Occasionnel

Privacy & Transparency

Privacy & Transparency