Macro copie colle dans Excel gros fichier

Bonjour ,

je suis novice dans la rédaction de macros sous excel, plus précisément les boucles.

je voudrais faire une boucle pour copier coller des cellules d'un fichier excel sur la même feuille excel dans une autre cellule. C'est qui est vraisemblablement simple mais pas pour moi.

exemple de fichier de départ :

F002_ACSL1 AV_0062628829 Unknown 19.8906222

F002_ACSL1 AV_0062628829 Unknown 19.40406618

F002_ACSL1 AV_0062628829 Unknown 19.68540195

F002_ACSL1 AV_0062628839 Unknown 18.28859566

F002_ACSL1 AV_0062628839 Unknown 18.47305976

F002_ACSL1 AV_0062628839 Unknown 18.16410599

exemple de fichier voulu

F002_ACSL1 AV_0062628829 Unknown 19.8906222 19.40406618 19.68540195

F002_ACSL1 AV_0062628839 Unknown 18.28859566 18.47305976 18.16410599

voici ce que je veux faire mais maintenant il me faut une boucle :

Sub Formater_boucle()

'

' Formater_boucle Macro

'

Range("D2").Select

Selection.Cut Destination:=Range("E1")

Range("D3").Select

Selection.Cut Destination:=Range("F1")

Rows("2:3").Select

Selection.Delete Shift:=xlUp

End Sub

Si quelqu'un a une idée , je suis preneuse ,

Merci beaucoup de votre aide.

Cordialement

Cath

Bonsoir,

Peux-tu nous envoyer un petit fichier excel et détailler un peu plus ta demande?

Cordialement

Voici le fichier excel, "Exemple"

La feuille 1 contient mon fichier de départ, et la feuille 2 le fichier que je veux obtenir.

Il est un peu compliqué mais je vais tenter de l'expliquer clairement.

Les trois premières lignes correspondent à un même échantillon, en fait c'est un triplicat.

Je voudrais pouvoir copier la cellule D3 en E2, et la cellule D4 en F2, puis supprimer les lignes 3 et 4.

Par conséquent la ligne 5 monte en 3, et donc je voudrais D4 en E3 et D5 en F3, et supprimer les deux lignes 4 et 5 et ainsi de suite jusqu'à la fin.

Est ce plus clair?

Cath

Bonjour,

Dans ton post tu parles de "triplicat". Donc chaque article doit être représenté 3 fois.

Ton fichier lui, comporte des doublons et des articles unitaires.

Que penser?

Cordialement

Il faut regarder la deuxième colonne , le nom de mes samples, ils sont présents 3 fois de suite.

Je n'ai pas de doublon et d'article unitaire.

En gros mon triplicat , c'est les trois premières lignes, le fichier est construit comme cela 3 - 3 - 3 - 3 -3

Je pensais que ma question n'était pas si compliquer, car je pense que c'est très basique comme manip.

Re,

Ci-dessous les données communiquées dans la feuille "Initial"

(à partir de la ligne 89)

F001_ABL1 AV_cDNA_dil1 Standard 15,29713044

F001_ABL1 AV_cDNA_dil1 Standard 15,35103278

F001_ABL1 AV_cDNA_dil2 Standard 17,33329385

F001_ABL1 AV_cDNA_dil2 Standard 17,15234941

F001_ABL1 AV_cDNA_dil3 Standard 19,70764109

F001_ABL1 AV_cDNA_dil3 Standard 19,75890379

F001_ABL1 AV_cDNA_dil4 Standard 23,99586827

F001_ABL1 AV_cDNA_dil4 Standard 21,65976805

F001_ABL1 AV_gDNA ctrl Unknown 24,93646067

Donc je peux t'envoyer le fichier avec macro!

Cordialement

Oui effectivement, autant pour moi, ces samples sont spéciaux, des dilutions.

Globalement ils sont en triplicats. Et je voudrais faire ma boucle sur ces triplicats. Donc cela doit modifier ma macro. Ce que je peux faire c'est les éliminer car je n'en n'aurais pas besoin.

La boucle est elle plus facile ca?

merci de ton aide cela fait un petit moment que je tourne. Je pense même à passer sous R pour le faire.

Re,

Pour résumer si un article n'est pas répertorié 3 fois, on le supprime de la base de données.

Cordialement.

oui c'est plus simple.

merci

Re,

Ci-joint fichier finalisé pour le traitement des données

Lancer la macro "Traitement Feuille"

1 - Suppression des non triplicats feuille "Initial"

2 - Boucle de 3 en 3 sur les triplicats feuille "Initial" , fonction transpose et copie sur feuille "Synthèse"

*nota : le fichier joint ne comporte plus les non-triplicats. Refais une copie de ta feuille initiale, et vérifies le bon fonctionnement de l'outil

Je me tiens à ta disposition pour tout information aide complémentaire.

Cordialement

Ci-dessous le code

Option Explicit
Public Sub Traitement_Feuille()

Dim Derligne As Integer
Dim Plage As Range
Dim i As Integer, j As Integer

    With Application
        .ScreenUpdating = False
    End With

    Worksheets(1).Select

    Non_Triplicats

    With Worksheets(1)
        Derligne = Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = Range(Cells(2, 2), Cells(Derligne, 2))

        j = 2
        For i = 2 To Derligne Step 3
            Range(Cells(i, 4), Cells(i + 2, 4)).Copy
            Cells(i, 5).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                False, Transpose:=True
            Application.CutCopyMode = False
            Range(Cells(i, 1), Cells(i, 7)).Copy Destination:=Worksheets(2).Cells(j, 1)
            j = j + 1
        Next i
    End With

    Columns("E:G").Delete Shift:=xlToLeft
    Range("A1").Select

    Worksheets(2).Activate
    Range("D1").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select

    With Application
        .ScreenUpdating = True
    End With

End Sub
Private Sub Non_Triplicats()

Dim Plage As Range
Dim Derligne As Integer
Dim i As Integer
Dim temp As Byte

    With Worksheets(1)
        Derligne = Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = Range(Cells(2, 2), Cells(Derligne, 2))

        For i = Derligne To 2 Step -1
            temp = Application.WorksheetFunction.CountIf(Plage, Cells(i, 2))
                If temp < 3 Then Rows(i).Delete
        Next i
    End With

End Sub

Ecellent ,

merci je le teste et le décortique , de manière à apprendre à les faire correctement.

Merci de ton aide très précieuse.

Cath

Merci infiniment , ca marche. La partie triplicat super. Maintenant il reste un soucis sur les doublons à moi de régler le problème et de bien comprendre le code.

Cordialement

Cath

Bonjour,

Voila, après m'être absent de la discussion, pour cause "Diagram de Venn" , me revoici avec une nouvelle question, car en fait la macro marche super bien. Je voudrais la transformer pour en faire une autre mais plus simple et j'avoue que là j'ai du mal.

en fait c'est un peu le même style, ce que je veux faire sauf que je veux déplacer 2 colonnes (la A et la D) de 96 lignes et les mettre à la suite des 5 premières colonnes, et ceci toujours sur un gros fichier de 9000 lignes environ.

merci encore , j'ai un peu décrypté mais je ne suis pas assez familière pour la faire en entier.

Cath

Bonjour,

Je ne comprends pas la relation avec le précédent post?

Ben , la relation est que je voudrais utiliser le même type de macro, mais je ne comprends pas tout dans la macro précédente.

Et je pense que cette macro là est un peu plus simple car je ne fais pas de transposition, j'aimerai identifier la partie qui représente la transposition, de manière à la supprimer.

Et j'aimerai faire une boucle dans une boucle, de façon à ajouter mes colonnes les une à la suite des autres.

alors là si tu comprends mon explication chapeau.

bon je tente.

merci encore

Cath