Amélioration du code de deux macros

[Nagrom]

Bonjour à tous,

J'ai une macro qui, quand je sélectionne une plage de cellule, inscrit un "a" dans la première cellule de la sélection.
Je souhaiterai savoir ce que je dois modifier pour que ce "a" s'inscrive dans toutes les cellules sélectionnés.

Voici le code de la macro:

'Attribution réserve
Sub Attribution_Réserve()

    With Selection.Interior
        .ColorIndex = 53
        .Pattern = xlSolid
    End With
    ActiveCell.FormulaR1C1 = "a"
    Selection.Font.ColorIndex = 53
End Sub

Je possède une autre macro qui affiche deux feuilles masquées, excécute une macro d'impression puis referme ces deux pages.
Je souhaiterais savoir comment faire pour mettre une tempo entre les ouverutre, pour obtenir ceci:
- ouverture de la première feuille
- 2s d'attente
- ouverture de la deuxième feuille
- 2s d'attente
- suite de la macro

Voici le code de la macro que j'ai actuellement:

Sub Imprimer()
' Imprimer Macro

    Sheets("Formulaire").Visible = True
    Sheets("Validation").Visible = True
    Application.Run "'Fiche de garde - Synthèse_V3.xls'!Feuil2.Correction"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True
    Sheets("Formulaire").Visible = False
    Sheets("Validation").Visible = False
End Sub

Merci d'avance.
Nagrom.

 

[Gorfael]

Re : Amélioration du code de deux macros

Bonjour à tous,

J'ai une macro qui, quand je sélectionne une plage de cellule, inscrit un "a" dans la première cellule de la sélection.
Je souhaiterai savoir ce que je dois modifier pour que ce "a" s'inscrive dans toutes les cellules sélectionnés.

Voici le code de la macro:

'Attribution réserve
Sub Attribution_Réserve()

    With Selection.Interior
        .ColorIndex = 53
        .Pattern = xlSolid
    End With
    ActiveCell.FormulaR1C1 = "a"
    Selection.Font.ColorIndex = 53
End Sub

Je possède une autre macro qui affiche deux feuilles masquées, excécute une macro d'impression puis referme ces deux pages.
Je souhaiterais savoir comment faire pour mettre une tempo entre les ouverutre, pour obtenir ceci:
- ouverture de la première feuille
- 2s d'attente
- ouverture de la deuxième feuille
- 2s d'attente
- suite de la macro

Voici le code de la macro que j'ai actuellement:

Sub Imprimer()
' Imprimer Macro
' Macro enregistrée le 27/08/2006 par Morgan ESCHBACH

    Sheets("Formulaire").Visible = True
    Sheets("Validation").Visible = True
    Application.Run "'Fiche de garde - Synthèse_V3.xls'!Feuil2.Correction"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True
    Sheets("Formulaire").Visible = False
    Sheets("Validation").Visible = False
End Sub

Merci d'avance.
Nagrom.

Salut
1er

'Attribution réserve
Sub Attribution_Réserve()

    With Selection.Interior
        .ColorIndex = 53
        .Pattern = xlSolid
    End With
    selection = "a"
    Selection.Font.ColorIndex = 53
End Sub

pour la seconde
Application.Wait Now + TimeValue("0:0:2")
te fais attendre 2"

 

[Hervé]

Re : Amélioration du code de deux macros

bonsoir

la une un peu plus courte :

With Selection
        .Value = "a"
        .Interior.ColorIndex = 53
        .Font.ColorIndex = 53
End With

salut

ps : merci Gorfael pour tes interventions toujours précises et tres détaillées🙂

 

[Nagrom]

Re : Amélioration du code de deux macros

Salut à tous,

Je vous remercie beaucoup, c'est vraiment parfait!

@++
Nagrom