titre

[AIGLON74]

Bonsoir a tous

dans mon code de ThisWorbook
je voudrais faire un arret de quelque seconde sur une feuille puis
continuer ce code

pour faire un titre a mon classeur


a+
Aiglon74

 

[jeanpierre]

Re : titre

Bonsoir AIGLON74,

Sans le faire en six actes (sic E.Rostand), c'est quoi ton code dans ThisWorbook?

Pour le Titre du titre du post....merci......... titre, vraiment trés explicite..... ça fait plaisir, on va s'y retrouver pour de futures recherches....

Pour te dire que tout cela n'est pas GLOP..... pour paraphraser mon ami Glop-Glop...

A te dire, je ne suis jamais d'humeur le vendredi....

 

[AIGLON74]

Re : titre

Re,jeanpierre

voici mon code

Private Sub Workbook_Open()
'interdire la sortie
YLOCK = True


'Résurrection:

Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
' Suppression la barre reduire agrandir fermer
ActiveWindow.WindowState = xlMaximized
Application.DisplayFullScreen = True
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False

End With

If Range("b3").Value = 0 Then

End If


Application.Visible = True
Sheets("debut").Select

Application.Visible = True
Sheets("debut1").Select





Application.Visible = True
Sheets("orientation").Select






'fige l'ecran
ThisWorkbook.Sheets("orientation").ScrollArea = "a1😛32"




' ThisWorkbook.Sheets("debut").ScrollArea = "a1😛32"


End Sub



je voudrais un arret sur la feuille debut1



Aiglon74

 

[matthieu33]

Re : titre

Bonsoir Aiglon74, jeanpierre et le forum,

Voici un exemple de pause dans la macro :

Private Sub Workbook_Open()
    'interdire la sortie
    YLOCK = True
    
    
    'Résurrection:
    
    Dim CmdB As CommandBar
    
    For Each CmdB In Application.CommandBars
        CmdB.Enabled = False
    Next CmdB
    
    ' Suppression la barre reduire agrandir fermer
    ActiveWindow.WindowState = xlMaximized
    Application.DisplayFullScreen = True
    
    With Application
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
    End With
    
    If Range("b3").Value = 0 Then
    
    End If
    
    Application.Visible = True
    Sheets("debut").Select
    
    Application.Visible = True
    Sheets("debut1").Select
    
[COLOR="Blue"]    ' Arrêt de la macro pendant 10 secondes
    Application.Wait (Now + TimeValue("0:00:10"))[/COLOR]

    Application.Visible = True
    Sheets("orientation").Select
    
    'fige l'ecran
    ThisWorkbook.Sheets("orientation").ScrollArea = "a132"
    
    
    ' ThisWorkbook.Sheets("debut").ScrollArea = "a132"
End Sub

J'espère que cela correspond à ta demande.

@+

 

[AIGLON74]

Re : titre

Bonjour, matthieu33 et le forum

je viens juste de teste ta modif

cela correspond à ma demande

merci pour ta reponse

A+
Aiglon74