Excel VB 3 conditions tri+creation 3 tables

Delphine -  
 zakaria -
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
A voir également:

3 réponses

lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
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
0
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
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.
0
Delphine
 
Super merci, je vais essayé ça de suite.
Un grand merci pour votre aide
0
zakaria
 
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
0