copier coller une liste triéeRésolu

Question

Bonjour,
je direct dans le vif, j'ai un probl&#232;me de prog sous excel. J'ai un tableau de 5 colonnes,A:le temps, B,C,D,E:des donn&#233;es. 
J'exporte deux par deux (A:B,A:C,A:D...) sur d'autres feuilles pour pouvoir filtrer et &#233;liminer des lignes al&#233;atoire, quand la colonnes B ou c ou D  est vides.
En gros il doit rester la donn&#233;e avec son temps (A)correspondant.
bref mon prog marche ,mais que sur deux colonnes, je peux recopier les valeur filtrer sans les cellules vides, pour en faire un graph, le restant me redonne telquel le tableau. 
J'avoue s'est chaud, je pense qu'avec le programme vous comprendrai mieux mon besoin.

Sub tri()
Application.ScreenUpdating = False
Call renomme_feuille
Call A1
Call copi_coll
Call A2
Call copi_coll
Call A3
Call copi_coll
Call A4
Call copi_coll
End Sub
Sub renomme_feuille()
ActiveSheet.Name = "Tab_main"
End Sub
Sub copi_coll()
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    Columns("A:B").Select
    Selection.Copy
    Columns("E:F").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Selection.AutoFilter Field:=2
    ActiveSheet.Name = [B1]
End Sub
Sub A1()
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(2).Value
End Sub
Sub A2()
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(3).Value
End Sub
Sub A3()
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(4).Value
End Sub
Sub A4()
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(5).Value
End Sub
Donc c'est cette ligne qui marche pour seulement deux colonnes, je pense que c'est le filtrage qui est limit&#233; &#224; partir d'un certaine valeur num&#233;rique, puisque les colonnes qui marche ont des valeurs supp&#233;rieur &#224; 100, et les deux autres inf&#233;rieur &#224; 100.

Merci donc pour ce qui vont ce plancher sur le probl&#232;me, vous auriez bien voulue exemple de fichier mais j'ai pas trouver comment l'envoy&#233; dsl .

yod6666 · Accepted Answer

Bon finalment je pense avoir trouv&#233;, le pb.
J'en suis pas certain, mais presque, je demande trop au petit Excel.
j'ai remarqu&#233; qu'en prennant qu'une partie du tableau il pouvait le traiter correctement.
Mon seul souci maintenant et comment lui indiqu&#233; que je colle une partie puis l'autre en dessous????

jrivet · Answer

Salut,

quand tu fait 
Columns("A:B").Select
Selection.Copy
...
Selection.PasteSpecial ...

Tu ne fait que copier A et B

Tu peux essayer de faire un truc du style (pas tester, pas optimiser, mais bon....

Call A1
Call copi_coll("B")
Call A2
Call copi_coll("C")
Call A3
Call copi_coll("D")
Call A4
Call copi_coll("E")

Sub copi_coll(Colone2 as string)
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    Range("A:A," & Colone2 & ":" & Colone2)
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Selection.AutoFilter Field:=2
   End Sub
....

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Oups j ai oublier un ptit truc c est pas:

Range("A:A," & Colone2 & ":" & Colone2)

Mais 

Range("A:A," & Colone2 & ":" & Colone2).Select

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

Mer&#231;i d'avoir r&#233;pondu si vite.
D&#233;sol&#233; pour le noms du sousprogramme copi colle, ce n'est pas tr&#232;s repr&#233;entif.
Si tu veux il me sert n'afficher que le tableau sans les cellules vides, de ce tableau, j'en fais une copie que je colle sur la m&#234;me feuille.
puis je d&#233;sactive le filtre pour affich&#233; toute les lignes de la feuille de travail. ce qui va me permettre par la suite de faire un graph, et c'est ici que ca bloque pour 2 colonnes car quand je d&#233;sactive le filtre rien n'a chang&#233; j'ai exactement le m&#234;me tableau qu'avant avec des cellules vides dans la colonne des donn&#233;es.

yod6666 · Answer

j'ai oubli&#233; de pr&#233;ciser que je n'ai pas de message d'erreur, tout ce d&#233;roule normalement comme si mon programme march&#233;, mais quand on regarde les 4 feuilles ou ce trouve les donn&#233;es filtr&#233;, on s'appercoie que deux d'entre elle n'ont pas chang&#233;.

jrivet · Answer

Re,

Mais as tu reussi a resoucre ton probleme avec ce que je t'ai propose ou pas?

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

Non malheuresement avec ta solution j'ai une erreur, pourrais tu me commenter le bout de ton code pour je puisse cibler l'erreur.
Je n'y connais rien en prog, j'essaye d'apprendre peu &#224; peu.

jrivet · Answer

Re,

Le probleme c est que je n'ai pas trop le temps cet aprem (taf oblige...)

Ou est ce que ca coince exactement

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
 sur le coller
Mais j'ai pas trop suivant ton truc, moi il faut que je puisse tirer un graphique de ce tableau au final.

yod6666 · Answer

alors personne n'a trouv&#233; ???

jrivet · Answer

Re,

et avec un Selection.PasteSpecial (sans rien mettre, ou un Selection.paste)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

Selection.pasteSpecial (sans rien mettre) ne change rien
Selection.paste : ne fonction pas (Erreur: 438 propri&#233;t&#233; ou m&#233;thode non g&#233;rer par cet objet

yod6666 · Answer

Je rappels, a ceux qui arrive, que je recherche le moyen de copie des lignes de tableau donc la cellules appartenant &#224; la colonnes B est non vides.

jrivet · Answer

Salut,

Peu etre en memorisant la plage copier (style de ligne 1 a 500) puis en reprenant la suite (de 501 as ...)

Mais ca m'etonne que ce soit une limitation d 'excel.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

bon ben au final ca tourne avec la solution de secour, si vous trouvez dites toujours. je mets mon prog en ligne.
Sub tri()
Application.ScreenUpdating = False
Call renomme_feuille
Call A1
Call copi_coll
Call A2
Call copi_coll
Call A3
Call copi_coll
Call A4
Call copi_coll
End Sub
Sub renomme_feuille()
ActiveSheet.Name = "Tab_main"
End Sub
Sub copi_coll()
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    Range("A1:B1999").Select
    Selection.Copy
    Range("E1:F1999").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Range("A2000", [B2000].End(xlDown)).Select
    Selection.Copy
    Range("E:F").SpecialCells(xlCellTypeBlanks).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Selection.AutoFilter Field:=2
    ActiveSheet.Name = [B1]
End Sub
Sub A1()
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(2).Value
End Sub
Sub A2()
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(3).Value
End Sub
Sub A3()
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(4).Value
End Sub
Sub A4()
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(5).Value
End Sub

yod6666 · Answer

Me revoil&#224;, MAIS ! avec une nouvelle question ....
Erreur d'&#233;x&#233;cution "91"
Variable objet ou variable bloc with non d&#233;finie.
ce message s'affiche quand je veux cr&#233;er mon graph, plus exactement sur cette ligne:
ActiveChart.Location Where:=xlLocationAsObject, _Name:=DernierOnglet

voici le code entier :
Sub tri()
    Dim MonGraphe As Chart, MaPlage As Range
    Application.ScreenUpdating = False
    ActiveSheet.Name = "Tab_main"
    Set MonGraphe = ThisWorkbook.Charts.Add
    Worksheets(1).Activate
    TotalCol = ActiveSheet.UsedRange.Columns.Count
    For TotalCol = TotalCol To 2 Step -1
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(TotalCol).Value
Call copi_coll
    DernierOnglet = ActiveSheet.Name
    Set MaPlage = Worksheets(DernierOnglet).Range("A1", [B1].End(xlDown))
    MonGraphe.ChartType = xlXYScatterSmoothNoMarkers
    MonGraphe.SetSourceData MaPlage, xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:=DernierOnglet
    Next TotalCol
End Sub
Sub copi_coll()
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    Range("A1:B1999").Select
    Selection.Copy
    Range("E1:F1999").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Range("A2000", [B2000].End(xlDown)).Select
    Selection.Copy
    Range("E:F").SpecialCells(xlCellTypeBlanks).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Selection.AutoFilter Field:=2
    ActiveSheet.Name = [B1]
    Columns("A:D").Select
    Selection.Delete Shift:=xlToLeft
End Sub

jrivet · Answer

Salut,

J 'suis vraiment d&#233;sol&#233; j'ai pas eu le temps cette semaine de regarder ton .xls...

En revanche ce que je peux te dire rapidos c est que cette erreur vient lorsque tu essaies d'utiliser un objet alors que tu ne l'a pas creer .

Souvent c est qu il manque quelque part: 
Exemple;

Dim Ex as Excel.application.
Set Ex = New Excel.Application

Ou bien encore
Dim Ws as Worksheet
Set WS = ActiveWorkBook.Sheets(1)

Voila en esp&#233;rant que ca va t'aider un peu

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

bon finalement ca passe je vous en dirais plus 
Solution :
Dim MonGraphe As Object

yod6666 · Answer

pas grave si tu n'as pas le temps, c'est en cherchant (beaucoup) qu'on apprend, merci de r&#233;pondre d&#233;j&#224;.

yod6666 · Answer

Grosse erreur de ma part ca ne marche pas finalment.

Copier coller une liste triée

29 réponses

Discussions similaires