Probleme d'addition et de format XLS

[gscv]

Bonjour a tous

voici un petit défi pour vous et un enfer moi lol

bon je vais tenter de m'expliquer mais je sais que je vais avoir comme réponse ' un fichier xls exemple c'est plus simple"

Donc pour gagné du temps , je joins un fichier excel avec mon problème et toute les explications

je sais que pour certain d'entre vous ca va être du gâteau même voir inintéressante par la simplicité mais moi je sèche complètement

Merci par avance

 

[Staple1600]

Bonsoir le fil, le forum

@gscv

4 – La question doit être posée le plus clairement possible en comprenant bien que le lecteur ne peut pas s’imaginer le problème.

Ceci est le mantra mis sous verre et posé sur ma table de chevet
Personnellement, je préfère que le demandeur détaille sa question dans le message
1) ça me permet de savoir de suite si la question m’intéresse et/ou est dans mon champ de compétence
2) ça m'évite de télécharger inutilement un fichier si les conditions du 1) ne sont pas remplis

Alors, stp, merci d'ajouter quelques détails et explications.

 

[Dranreb]

Bonsoir.
Essayez cette macro :

Sub GroupeSomme()
Selection.Offset(, 1).Merge
Selection.Offset(, 2).ClearContents
Selection.Offset(, 2).Merge
Selection(1, 3).FormulaR1C1 = "=RC[-1]/SUM(RC[-2]:R[" & Selection.Rows.Count - 1 & "]C[-2])"
End Sub

 

[gscv]

bonsoir Draneb
Ca fonctionne a merveille.....merci
juste une chose qui rendrait la macro Parfaite c'est que les cellules fusionnées soit centrer dans les 2 axes

encore merci

 

[gscv]

Bonsoir le fil, le forum

@gscv

Ceci est le mantra mis sous verre et posé sur ma table de chevet
Personnellement, je préfère que le demandeur détaille sa question dans le message
1) ça me permet de savoir de suite si la question m’intéresse et/ou est dans mon champ de compétence
2) ça m'évite de télécharger inutilement un fichier si les conditions du 1) ne sont pas remplis

Alors, stp, merci d'ajouter quelques détails et explications.

Je prends note

 

[Dranreb]

Ajoutez devant ces 2 instructions :

Selection.Resize(, 3).VerticalAlignment = xlCenter
Selection.Resize(, 3).HorizontalAlignment = xlCenter

 

[gscv]

Ajoutez devant ces 2 instructions :

Selection.Resize(, 3).VerticalAlignment = xlCenter
Selection.Resize(, 3).HorizontalAlignment = xlCenter

Comment dire C'est PARFAIT .....une formalité pour vous et un grand service pour moi

Dranreb MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..MERCI..

 

[gscv]

euh comment on met que le poste est resolu ? merci