Bonjour

j'ai un fichier excel qui comporte des doublons dans la colonne A

par contre le reste de la ligne est different pour chaque doublons de A:

Par exemple la B de la premiere ligne est vide alors que l'autre est pleine etc ....

je voulais donc savoir comment faire pour n'avoir qu'une seule ligne contenant A et compléter les vides dans les autres celules( voir schema ci dessous representant une feuille EXCEL) et ceci avec une MACRO.

------A-------B-------C------D
1----zzz----eee---(vide)---aaa
2----zzz----(vide)--xxx----(vide)
3----ggg----(vide)---jjj---(vide)
4----ggg----rrr----(vide)---ttt

doit devenir

-----A------B----C-----D
1----zzz--eee---xxx--aaa
2---ggg--rrr-----jjj-----ttt


voilà un petit résumé de ce que je veut

donc pas de doublons dans la colonne A et compléter les vides par le pleins du doublons


Merci par avance de votre aide


ps:je ne peut pas mettre de pieces jointes car trop lourdes, mais je peut les envoyer par mails si qqn ne voit pas ce que je voulais dire.

je m'ys connais rien en maco, mais je pense qu'il faut faire qqch du genre si une case de la ligne 1 est remplie, alors passer a la suivente, sinon copier le contenu de la ligne 2 dans la ligne 1

ok, mais avant il faut détecter tous les doubles, puis si il y a un double, il faut verifier et completer les cases vides par les pleines ( en gros fusionner ) il faut mettre sur le meme ligne toutes les cases remplies et virer les cases vides

c'est ca qu'il me faut.

si quelqu'un sait comment faire ca serai cool, j'en ai besoin pour mon boulot.

merci d'avance

Bonsoir,
1 - J'allais oublier cette routine ne fonctionne que si la colonne A est préalablement triée.
2 - Je n'ai pas testé sur un très grand tableau mais dans ce cas s'armer de patience...
Pour gagner en temps de traitement, il ne se passe rien à l'écran tant que le travail n'est pas fini, donc ne pas s'impatienter.

Voilà qui devrait faire l'affaire :
Sub Test()
Application.ScreenUpdating = False
For Each o In UsedRange
o.Activate
Next
iR = ActiveCell.Row
iL = ActiveCell.Column
[A1].Select
i = 1
j = 1
Do While i < iR
If Cells(i, 1).Value = "" Then Exit Do
Do While Cells(i, 1).Value = Cells(i + 1, 1).Value
Do Until j = iL
If Cells(i, 1 + j).Value = "" Then Cells(i, 1 + j).Value = Cells(i + 1, 1 + j).Value
j = j + 1
Loop
Rows(i + 1).Delete
j = 1
Loop
i = i + 1
Loop
End Sub

A+

Merci je testerai quand j'aurais le temps. merci pour tout .

voilà j'ai testé, ca me crée une erreur a debugger à la 2e ligne


Application.ScreenUpdating = False
For Each Z In UsedRange -----------------ERREUR--------
Z.Activate
Next
iR = ActiveCell.Row
iL = ActiveCell.Column
[A1].Select
i = 1
j = 1
Do While i < iR
If Cells(i, 1).Value = "" Then Exit Do
Do While Cells(i, 1).Value = Cells(i + 1, 1).Value
Do Until j = iL
If Cells(i, 1 + j).Value = "" Then Cells(i, 1 + j).Value = Cells(i + 1, 1 + j).Value
j = j + 1
Loop
Rows(i + 1).Delete
j = 1
Loop
i = i + 1
Loop
End Sub

MErci de m'aider

Fab

Bonjour,
Je suppose que tu as Option Explicit ou une déclaration de variable.
Si Oui... Essaie d'insérer cette ligne

Sub Test()
Dim Z as Object, i%, j%, iR%, iL%
Application.ScreenUpdating = False
...
Il faut lancer cette macro depuis Excel (et la feuille à modifier)
Outil / Macro / Eécuter...

Sinon me dire quel message d'erreur? Quelle version d'Excel.
A+