Discussion :

[dvr77x]

Bonjour à tous !

D'habitude je trouve une solution en parcourant le forum, mais la je bloque...
Pourtant, ca doit être faisable pour quelqu'un qui s'y connait !

Voici le type de tableau que j'ai (En bien plus important bien sûr, j'ai raccourci pour l'exemple) :



Et voici ce que j'aimerais que cela m'affiche automatiquement.
Une seule ligne par nom, avec les logiciels qui s'affichent bout à bout sur cette même ligne :



Voila ! J'ai testé quelques fonctions Excel, une Macro mais qui devait être a une année lumière, et je bien planté sur ce truc
Si quelqu'un a une idée ! Je suis preneur

Merci !

Baptiste

[unparia]

Bonjour
Je t'aiderai volontiers, mais pas sans avoir d'abord vu l'effort que tu as au moins fait pour y parvenir.
Une des pistes possibles :
- parcourir ta colonne A du bas vers le haut
- chaque fois que la ligne au-dessus est égale à la ligne parcourue :
---- copier à partir de la colonne D de la ligne au-dessus les données figurant à partir de la colonne C de la ligne parcourue (méthode Range.copy)
--- supprimer la ligne en cours
Montre-moi ce que tu tentes d'écrire sur ces bases.

[dvr77x]

Le truc c'est que j'ai passé deux heures dessus ce matin et j'ai fini par tout supprimer parce que je n'arrivais à rien et j'étais un peu blasé...
J'avais des erreurs dès la première ligne , ca doit sembler simple pour vous mais Je patauge complet (je suis plus Batch généralement...).

Globalement j'étais partie dans cette direction, je déclarais mes variables de boucle et une pour stocker la valeur du logiciel

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TRI()
Dim PremCellule As Integer
Dim celluleSuiv As Integer
Dim i as Integer
i = 2
PremCellule = i
celluleSuiv = i + 1
Do While Range("A" & celluleSuiv) = Range("A" & PremCellule)
celluleSuiv = celluleSuiv + 1
Loop

Après je sais qu'il fallait utiliser la formule range, mais je ne sais pas trop comment l'utiliser...

Code :

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

1
2
3
4
5
Range(Cells(??), Cells(??)).Select
Selection.Copy
Sheets(soft_list).Select
Range("??").Select
ActiveSheet.Paste

Du coup, j'ai laissé tombé, je suis reparti d'une Macro que j'utilisais pour un autre fichier mais que j'ai du faire il y a 2-3ans...
je l'avais un peu arrangé mais vu que j'avais pas trop mi de note sur quelle ligne faisait quoi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TRI()
Dim Plage As Range, 
Cell As Range
Dim VAR As Collection
Dim i As Long, Ligne As Long
    Set VAR = New Collection
    With Worksheets("Extraction")
        Set Plage = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp))
       End With
    On Error Resume Next
    For Each Cell In Plage

Après j'ai cherché sur le net à nouveau, mais c'est trop spécifique visiblement ce que je demande.
Donc j'ai posté ici, parce que je peux pas trop me permettre de passer une demi-journée sur une macro au taf là, je perds plus temps que j'en gagne pour le moment.
Et ca me permettrai peut être de comprendre...

Donc ton aide serait la bienvenue ! Sinon, je ferai sans...

[Marc-L]

Bonjour,

deux possibilités : soit via le B-A-BA d'Excel (donc niveau débutant) soit via l'objet Dictionary …
Joindre un classeur enregistré au format xlsx et donc sans code.

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[dvr77x]

Bonjour Marc,

On peut le faire depuis des fonctionnalisés Excel ??

[Marc-L]

Ben oui : tout ce que tu peux utiliser manuellement dans Excel est aussi exploitable en VBA, comme il n'y a pas beaucoup de données,
rien qu'en activant l'Enregistreur de macros ! Et pas besoin d'une demie-journée …
Je regarderais plus tard s'il n'y a pas eu de proposition.

[unparia]

Avec ce simple petit bout de code (basé très fidèlement sur ce j'ai dit plus haut) :

Code :

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

1
2
3
4
5
6
7
8
Dim derlig As Long, i As Long
derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = derlig To 2 Step -1
  If Range("A" & i - 1).Value = Range("A" & i).Value Then
    Range("C" & i & ":ZZ" & i).Copy Destination:=Range("D" & i - 1)
    Rows(i).EntireRow.Delete
  End If
Next

Non ?

PS ; j'ai mis jusqu'à la colonne "XX" car cela est plus simple à comprendre et est très largement suffisant.

[dvr77x]

Merci unparia !

Je confirme que cela fonctionne, je l'ai un peu adapté pour mon tableau qui est plus volumineux, je n'aurai plus qu'à faire l'extraction complète qui doit faire plus de 15000 lignes et laisser tourner un peu...
Par contre, je ne l'ai pas encore totalement compris, je regarde demain matin et si tu peux m'éclairer plus en détail pour mieux la comprendre (pour que j'arrive à la reproduire sans vous embêter )

J'ai essayé de faire pour que cela copie dans une autre feuille parce que la c'a m'écrase le tout à la fin, mais ce n'était pas très fructueux... Il n'y avait qu'une partie qui se copiait dans la feuille. Mais cela m'a permis de mieux comprendre le fonctionnement !


@Marc-L
Si tu as aussi l'astuce pour le faire sans VBA, je serais preneur ! Je me coucherai plus intelligent ! (ou moins bête , question de point de vu)

Merci à vous

[unparia]

je regarde demain matin et si tu peux m'éclairer plus en détail pour mieux la comprendre (pour que j'arrive à la reproduire sans vous embêter

Tu veux que je t'"éclaire" sur quoi ?
Il n'y a dans mon code que tu très rudimentaire. Et le mécanisme est celui que j'exposais dans mon tout premier message.
Je me vois mal faire un "cours particulier", sur ce forum, pour finalement répéter (avec les mêmes mots !) ce que tu peux lire dans l'aide VBA, notamment en ce qui concerne l'utilisation de la méthode Range.Copy.

EDIT : quant à :

J'ai essayé de faire pour que cela copie dans une autre feuille parce que la c'a m'écrase le tout à la fin, mais ce n'était pas très fructueux...

J'aurais écrit le code autrement si tu avais précisé cette finalité dans ta demande, ce que tu n'as pas fait
Je ne vais pas maintenant écrire un second code.
Reste que rien ne t'empêche de :
1) copier ta feuille source vers la feuille de destination
2) appliquer à la feuille de destination le code que je t'ai donné.
Non ?
(ce sera peut-être plus simple pour toi).