Contenu récent par KTM

Jai testé mais une erreur se produit si les feuilles n'existent pas. Un bug sur cette ligne If IsError(Sheets("PNLS_CD")) Or IsError(Sheets("PNLS_PEC")) Or IsError(Sheets("PNLS_PTME")) Then

Bonjour chers tous Jai une macro l'intérieur de laquelle on a un bout de code pour tester l'existence de feuilles. Jai essayé de gérer les erreurs au cas ou l'une de ces feuilles n'existerait pas mais cela ne fonctionne pas. Jai besoins d'aide... Merci... Set...

MERCI...

Merci beaucoup . Ca marche Mais une doléance: Je voudrais une autre solution au cas ou on devait faire le chargement par un bouton auquel associer la macro. J'espère ne pas demander plusieurs choses à la fois... Encore Merci..

Bonsoir chers tous je voudrais renseigner une plage 2 a partir d'une plage 1 selon le mois choisi. Jai fais une macro mais elle ne fonctionne pas comme je souhaite. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Dim Rg As Range, R As Range Dim plg1...

SUPER !!!!!!!! merci

Bonsoir chers tous j'ai une base de données a partir de laquelle je voudrais faire la somme des données par activité selon les DISTRICTS Jai joins un fichier pour illustration pour obtenir de l'aide. Merci..

Bien reçu Merci !!!

Merci , je pense que c'est bon !!!!! Mille fois Merci...

j'ai essayer ca mais quelque chose ne va pas Sub colorChart() Dim cht As Chart Dim ser As Series Dim i As Integer Dim pt As Point For i = 1 To 4 Set cht = ThisWorkbook.Sheets("DASHBORD").ChartObjects("Graphique " & i).Chart Set ser = cht.SeriesCollection(1)...

je refais la macro comme suit mais on dirait un détail m'échappe.. Pouvez vous voir avec moi ? Sub colorChart() Dim cht As Chart Dim ser As Series Dim i As Integer Dim pt As Point For i = 1 To 4 Set cht = ThisWorkbook.Sheets("DASHBORD").ChartObjects("Graphique " &...

exactement !!!

exactement !!!!!

exactement !!!!

Voici une illustration dans ce fichier .Merci ...