Discussion :

[AudreyKh22]

Bonjour,
Je suis sûre qu'il y a un truc!
j'ai besoin d'une aide d'expert pour créer des fonctions qui me permettraient d'éviter de mettre à jour 6000 lignes à la main (et de faire les inévitables erreurs humaines qui vont avec!)
voici mon soucis:
pour un identifiant, j'ai plusieurs type d'échantillons donc dans ma base j'ai par exemple:

sample003-rein
sample003-foie
sample003-poumon

pour chaque pool, je dois créer une ligne supplémentaire au dessus avec les 3 identifiants:
sample003-rein | sample003-foie| sample003-poumon



Ceci est un simple exemple, et ma base de données est plus complexe, mais déjà pouvoir créer une telle fonction m'aiderait énormément!

Avis aux experts!

Merci d'avance

[Daniel.C]

Bonsoir,

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test4()
    Dim Ligne As Long
    Ligne = Cells(Rows.Count, 1).End(xlUp).Row
    For I = Ligne To 2 Step -1
        If Split(Cells(I, 1), "-")(0) <> Split(Cells(I - 1, 1), "-")(0) Then
            Rows(I).Insert
            Ligne = Ligne + 1
            For x = I + 1 To Ligne
                Cells(I, 1) = Cells(I, 1) & " " & Cells(x, 1)
            Next x
            Ligne = I - 1
        End If
    Next
    Rows(1).Insert
    Ligne = Ligne + 1
    For x = 2 To Ligne
        Cells(I, 1) = Cells(I, 1) & " " & Cells(x, 1)
    Next x
End Sub