Macro lors du chagement d'onglet

[StDark]

Bonjour,

Je souhaiterai connaitre le code VBA qui me permettrait lors du changement d'onglet de faire une copie d'une colonne sur une autre colonne (toujours sur mon onglet de départ) avec un tri croissant.

Si quelqu'un pouvait m'aider ca serait super sympa.

++

 

[ninbihan]

Re : Macro lors du chagement d'onglet

Bonjour ST Dark,
Bonjour le forum,

Pour bien t'aider, je pense qu'un petit fichier exemple est nécessaire.
Tu peux te servir de l'événement "Worksheet_Deactivate()" pour identifier le changement d'onglet.

Bonne journée,

Ninbihan

 

[StDark]

Re : Macro lors du chagement d'onglet

Re,

Voila un fichier de test.

Dans la Colonne A je saisis des noms pour les quels je ne veux pas modifier le tri.

Le but lors du changement d'onglet serait de copier la colonne A en colonne C avec un tri croissant.

Comme cela dans mon autre onglet, je dispose en A1 d'une liste triée par ordre alphabétique.

J'espère être assez clair.

Merci en tout cas pour ton aide.

++

 

[mth]

Re : Macro lors du chagement d'onglet

Bonsoir StDark, bonsoir Ninbihan 🙂

Ci-joint un petit essai sans prétention avec l'aide de l'enregistreur de macros:

Bonne soirée,

mth

Private Sub Worksheet_Activate() 'à rattacher à l'onglet Feuil2
 
    Sheets("Feuil1").Columns("A:A").Copy Sheets("Feuil2").Range("C1")
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("c:c"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil2").Sort
        .SetRange Range("c:c")
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

 

[soenda]

Re : Macro lors du chagement d'onglet

Bonsoir le fil, StDark, Ninbihan, mth

Maintenant que mth nous a montré la voie ... 🙂

Private Sub Worksheet_Activate()   [B][COLOR=darkgreen]' à rattacher à l'onglet Feuil2[/COLOR][/B]
 
    Application.ScreenUpdating = False
 
    [B][COLOR=darkgreen]' Ici, le code proposé par mth (par exemple)[/COLOR][/B]
 
    [C:C].Copy Feuil1.[C1]
    [C:C].Delete
 
    With [A1].Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=Feuil1!C1:C" & Feuil1.[C65536].End(xlUp).Row
    End With
 
End Sub

PS: Je vais peut-être passer au Duc des Lombards le 15 ou le 16 juillet 🙂

A plus

 

[ninbihan]

Re : Macro lors du chagement d'onglet

Bonjour le forum et le fil,

Une autre solution sans copier la colonne, en utilisant une combobox liée à cellule A1.

J'espére que cela pourra t-aider.

Bon dimanche à tous,

Ninbihan

 

[StDark]

Re : Macro lors du chagement d'onglet

Bonjour,

Merci à vous tous pour votre aide.

La Combo est super, c'est exactemet ce qu'il me fallait.

Bon dimanche à tous.