Contenu récent par KTM

Bonsoir chers tous Jai des données que j'extrais depuis une plateforme mais les dates sont en anglais comme Wed Dec 24 15:18:20. je voudrais un code vba pour les transformer comme 01/12/2024. Merci.....

Merci pour le coup de main......

Bonsoir chers tous Jai neuf plages de données de même dimension que je voudrais trier. Jai élaboré un code pour les trier une à une mais je voudrais faire plus simple en utilisant une boucle. Merci de me simplifier mon code. Sub TRIER() Dim PlageDeDonnees As Range With Sheets("Cascade")...

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 !!!