Déplacer des cellules latéralement

[stratos]

Bonjour à tous et bon Dimanche.

J'ai posté récemment une demande d'aide pour résoudre un problème sur une macro et j'ai reçu à ma grande surprise une solution à mon problème très rapidement.
Mon but est d'apprendre par moi même en vba mai le manque de pratique et de connaissances m'empêchent de résoudre le problème d'aujourd'hui en comptant que sur moi.

Je vous expose mon problème :
Il s'agit de metrre en forme un tableau résultant d'une Table Pivot.
Je voudrais faire glisser latéralement vers la colonne B toutes les cellules (de la colonne A) commençant par "Somme" ou "Total".
Toutes les cellules de destination sont vides.

Voir également l'annexe jointe avec explications.

J'ai gribouillé la macro qui suit et qui ne fonctionne pas.

Sub Déplacercellules( )
'
Touche de raccourci du clavier: Ctrl+Maj+K
'
ActiveSheet.Columns("A:A").Select
Selection.Find(What:="Somme *", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False).Activate
AciveCell.Offset(1,0).Activate
Selection.Find(What:="Total", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False).Activate
AciveCell.Offset(1,0).Activate

End Sub

Deplus je voudrais que toutes les cellules non vides de la colonne C soient glissées latéralement vers la colonne B et ce même si certaines cellules de destination de la colonne B ne sont pas vides.

Voila donc mon problème je vous serai très reconnaissant si quelqu'un d'entre vous peut m'aider ou me donner un conseil car je suis en train de ne plus voir très clair dans la résolution de ce problème.
Merci pour votre aide

 

[andré]

Salut stratos,

Un début de réponse par formule en créant une colonne supplémentaire.
Espérant avoir pu te faire entrevoir un début de solution.

Ândré.

 

[stratos]

Bonjour à tous, bonjour André

Merci pour ta réponse rapide. Ta formule est intéressante et bien pensée.
Cependant bien qu'elle me fasse gagner du temps par rapport à la méthode manuelle (glisser , coller ) je dois t'avouer qu'elle nécessite encore
l'intervention de gestes manuelles.
En effet suite à ta formule qui fonctionne bien , je dois encore éliminer les cellules se trouvant à gauche et commencant par "Somme" et "Total".
De plus j'ai omis de l'indiquer dans ma requête mais je voulais que la mise en forme soit identique aux cellules déplacées d'origine;ce qui n'est pas possible en utilisant ta formule.
Néanmoins je confirme que ta formule me fait gagner du temps et je t'en remercie.
Je vais essayer cependant de l'améliorer et/ou trouver une macro bien qu'en ce moment ma réflexion a du mal à se mettre en place.

Bonne soirée

Stratos

 

[andré]

Salut Stratos,

Il me semblait que je t'avais montré la méthode à suivre.
Vois l'exemple ci-joint et procède comme suit :

Enregistre la macro suivante :
Tu crées deux colonnes supplémentaires.
Tu y places les formules.
Tu copies ces formules vers le bas.
Tu copies les mises en forme, puis Collage spécial format.
Tu supprimes les colonnes dont tu n'as plus besoin.

Je viens de le faire et cela m'a pris moins de 5 minutes.
Ândré.