S
stratos
Guest
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
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