Excel VB 3 conditions tri+creation 3 tables

Question

Bonjour, j'aurais besoin de votre aide très rapidement si possible.
Voilà j'ai un sheet avec 3 colonnes. Col1:nom client, Col2: nom société, col3: nombre de connection a notre site.
J'aimerais faire 3 tris en fonction du nombre de connections.
0 connections, + de 3 et + de 5.
sélectionner le résultat après chaque tri( les 3 cols) et les copier dans un nouveau sheet.
J'arrive a faire les tris avec:

Range("C:C").autofilter field:=1, criteria1:="=0"

Mais j'arrive pas a faire la sélection et le copy dans un autre sheet.
Autre question, au lieu de lui dire "Range("C:C")", n'est-il pas possible de lui dire de faire le tri sur la colonne sélectionnée ?
Un tout grand merci pour votre aide, sachez d'avance que vous me serez d'un grand secours !!!!!!! A bientôt

lami20j · Answer

Salut,

ColA:nom client, ColB: nom société, colC: nombre de connection
1.
Les colonnes A,B et C de la feuille 1 sont copier dans la feuille 2

Sub copiercolonnes()
    Sheets("Feuil1").Columns("A:C").Copy Sheets("Feuil2").Range("A1")
End Sub

2.

je fait le filtre ( plus grand ou egal à 3 et plus petit que 5) ensuite je copie le résultat (y compris les en têtes des colonnes dans la feuill2). A toi d'adapter.

Sub copiercolonne()
    Dim n As Long 
    n = Range("c65536").End(xlUp).Row 'nbr lignes y compris le titre de champs
    Columns("A:C").Select
    Selection.AutoFilter Field:=3, Criteria1:=">=3", Operator:=xlAnd, _ Criteria2:="<5"
    Rows("1:" & n).Select
    Selection.Copy Sheets("Feuil2").Range("A1")
End Sub

lami20j · Answer

Re,Petite remarque : il ne s'agit pas d'un tri mais d'un filtre. Une fois le filtre réalisé tu peux faire un tri sur le résultat.

zakaria · Answer

bonjour j'ai un problem:


je veut copier le contenu d'un zone de texte dans un fille de calcule excel (sheet1)
 et je veut le code corresponde et merci
je rappelle que le zone de texte et sheet sont trouve dans la meme forme de vb

Excel VB 3 conditions tri+creation 3 tables

3 réponses

Discussions similaires

Newsletters