Regrouper des Lignes en fonction d'une condition

Bonjour à tous,

Je travaille sur l'automatisation de mon fichier et je bloque sur un point

J'ai des villes d'un nombre différents avec des données.

Je souhaite regroupé le même nom de ville dans son total.

Problématique : le nombre de même ville peut varier entre 1 à 10 ou plus.

ex:

ANGOULEME

ANGOULEME

Total ANGOULEME

ARCACHON

Total ARCACHON

j'ai inséré une colonne en indiquant un "p" si c'est une ville et un "x" si c'est un total dans lequel on doit les regrouper. (j'ai mis le fichier pour que ce soit plus simple..)

je n'arrive pas à le traduire sous VBA

Pouvez-vous m'aider ou me donner une piste svp ?

Merci d'avance

Bonjour,

à tester,

Sub test()
Range("B7:C38").Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(2), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=False
End Sub

re,

ou bien avec les sous-total en dessous ,

Sub test2()
Range("B7:C38").Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(2), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Je suis bluffée

Mais je ne connais pas du tout cette fonction !!

quelle fonction tu as utilisé ? et comment elle marche ?

et tu peux faire des regroupements avec les totaux au dessus ? comment tu fait ?

un grand merci pour ton aide

re,

il faut enlever le Plan que tu avais fais,

Données, section Plan, Dissocier le plan

puis,

sélectionne la plage B7:C38,

et dans la section Plan, clic sur Sous-total