Excel VB 3 conditions tri+creation 3 tables

Fermé
Delphine - 25 janv. 2006 à 15:10
 zakaria - 13 avril 2008 à 20:53
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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
25 janv. 2006 à 19:46
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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
25 janv. 2006 à 20:07
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
Super merci, je vais essayé ça de suite.
Un grand merci pour votre aide
0
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