Exécuter une macro dans un onglet, même s'il n'est pas sélectionné

[sangoben]

Bonjour,

Considérons que j'ai 2 onglets. Ma macro transfère des données du 2 vers le 1.
Le 1 est celui sur lequel s'exécute la macro.
Je voudrais savoir comment exécuter une macro sans sélectionner l'onglet sur lequel elle s'exécute.

Merci d'avance pour vos réponses

sangoben

 

[Staple1600]

Re : Exécuter une macro dans un onglet, même s'il n'est pas sélectionné

Bonsoir sangoben

Voici un exemple ou on n'active pas les onglets
(sauf à la fin pour voir le résultat de la macro)

(oui je sais je fais mumuse avec les endives, bien que j'ai passé l'âge 😉 )

Sub macro_avec_une_seule_activation_AT_THE_END()
Dim onglet_1 As Worksheet, onglet_2 As Worksheet, m$, no$, s_om
Set onglet_1 = Sheets("1")
Set onglet_2 = Sheets("2")

With onglet_2
        With .[A1].Resize(10, 5)
            .Formula = "=ROW()^COLUMN()"
            .Value = .Value
            .Copy onglet_1.[A1]
        End With
End With

With onglet_1
no = .Name
With .[A1].CurrentRegion
m = "Nom de la feuille: " _
    & no & vbLf _
    & "Adresse de la sélection: " & .Address(0, 0) _
    & vbLf & vbLf & vbTab & "TOTAL= " & Format(Application.Sum(.Value), "#,##0.00")
    .Borders.LineStyle = xlContinuous
    .Interior.ColorIndex = 26
        With .Font
            .ColorIndex = 53
            .Size = 20
            .Bold = True
        End With
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    .Columns.AutoFit
End With
End With
onglet_1.Activate
MsgBox m, vbInformation
End Sub

 

[soenda]

Re : Exécuter une macro dans un onglet, même s'il n'est pas sélectionné

Bonsoir le fil, sangoben, staple1600

Une autre recette, sans les endives (au cas ou ... ) 😀

Sub Exemple_Simplifie()
 
    Sheets("Nom_De_Onglet_[B][COLOR=red]2[/COLOR][/B]").[COLOR=red]Select[/COLOR]
 
    [COLOR=red]With[/COLOR] Sheets("Nom_De_Onglet_[COLOR=red][B]1[/B][/COLOR]")
        [A1:B2].Copy [B][SIZE=4][COLOR=red].[/COLOR][/SIZE][/B][A1]
    End With
 
End Sub

A plus

 

[Staple1600]

Re : Exécuter une macro dans un onglet, même s'il n'est pas sélectionné

Bonjour soenda, le fil, le forum


Ton exemple emploie un Select ?


Or je croyais que sangoben ne voulait pas de sélection de l'onglet

ou alors je suis mal réveillé et je comprends rin à rin.

Ne serait point ceci alors qui serait dans les clous ?

Sub Exemple_Simplifie_et_sans_endives()
Sheets("Nom_De_Onglet_2").[A1:B2].Copy Sheets("Nom_De_Onglet_1").[A1]
End Sub

PS: je viens de remarquer que mon précédent code copiait dans le mauvais sens, houps

 

[soenda]

Re : Exécuter une macro dans un onglet, même s'il n'est pas sélectionné

Bonjour le fil, sangoben, Staple1600

@Staple1600
Ton dernier exemple est très bien.

A plus 🙂