Décalage a droite puis haut de données suivant condition

[pascal44]

Bonjour le forum

J'ai 10000 entrées toutes dans la colonne A certaines sont du texte et d'autres qui commencent par les mêmes lettres, j'aimerai que ces dernières soient décalées vers la la colonne B et les remonter d'une ligne de telle façon qu'elles soient au niveau des entrées uniquement texte.

Puis supprimer les lignes completement vierges et completer les cellules vides par le texte juste au dessus.

Avec un fichier joint où j'ai tout expliqué phase par phase ce que j'aimerai faire d'une seule traite pour m'éviter des heures de travail. Pour les lignes vierges j'ai trouvé une macro mais pour les décalages j'avoue que j'ai beaucoup de mal. Donc si vous avez un peu de temps à me consacrer je vous en remercie d'avance.

A bientot
Pascal

 

[pierrejean]

Re : Décalage a droite puis haut de données suivant condition

bonjour pascal44

Teste cette macro

Sub traite()
For n = 1 To Range("A65536").End(xlUp).Row
  If Left(Range("A" & n), 3) = "AAA" Then
     Cells(n - 1, 2) = Range("A" & n)
     Range("A" & n) = ""
  End If
Next n
For n = Range("A65536").End(xlUp).Row To 1 Step -1
 If Range("A" & n) & Range("B" & n) = "" Then Rows(n).Delete
Next n
For n = 1 To Range("A65536").End(xlUp).Row
 If Range("A" & n) = "" Then Range("A" & n) = Range("A" & n - 1)
Next n
End Sub

 

[pascal44]

Re : Décalage a droite puis haut de données suivant condition

Bonjour Pierre Jean

Excellent ça a marché et j'ai gagné des heures de travail grâce à toi

Je te remercie du fond du coeur et en plus d'une rapidité ouah !

encore merci

A bientot