Contenu récent par Jauster

Concernant la couleur, cela marche-t-il avec ce code ? .MarkerForegroundColor = .MarkerBackgroundColor 'à la place de .MarkerForegroundColor = RGB(255, 0, 0) Je n'ai pas la possibilité de tester actuellement

Effectivement, c'est un work-around, a voir si tu arrives à l'utiliser à tes souhaits dans ton fichier.

Hello, Tu peux influencer sur les lignes de marquage avec : ActiveChart.SeriesCollection(1).MarkerBackgroundColor = RGB(255, 0, 0) 'Pour du rouge ici ActiveChart.SeriesCollection(1).MarkerForegroundColor = RGB(255, 0, 0) 'Pour du rouge ici Ainsi en utilisant ce code j'arrive au résultat que tu...

Hello et bienvenue, Plusieurs petites choses : 1- Mettre son code au bon format sur le forum 2- Eviter les select/selection ex : Range("E2:E50").Select Selection.Copy peut s'écrire Range("E2:E50").Copy 3- Difficile pour nous de t'aider de la bonne façon sans fichier :) + Le code n'est pas...

Tout est good de mon côté. Ça fonctionne parfaitement, Merci Vgendron

Hello, Ton code pour créer les feuilles marche tres bien: J'ai de mon côté avancé sur le remplissage de ces feuilles. Dim TabMass() As Variant Set Dicomass = CreateObject("scripting.Dictionary") With Sheets("A") 'dans la feuille "A" rows1 = .Cells(Rows.Count, "A").End(xlUp).Row 'rows...

Hello Vgendron :) Merci pour le code, je vais regarder et voir si il me va (décidément ca sera une année Tablo pour moi ^^). Sinon de mon côté j'ai commencé à faire une boucle pour voir si la feuille existe et la créer si non. Le reste est aussi fait avec des boucles. Surement moins rapide...

Bonjour, Je bloque sur la création d'un code en VBA: Voici mon problème : J'ai un fichier avec plusieurs informations (cf. fichier joint). Les cellules avec un texte sont importants pour le problème alors que les cellules avec des "-" contiennent du texte dans le fichier original mais ce texte...

Bonjour, Il suffit de unprotect la feuille avant de l'éditer avec votre macro. Dans votre cas il suffit de rajouter : Unload Me ActiveSheet.Unprotect "password" Rows("1:" & Rows.Count).EntireRow.Hidden = False ActiveSheet.Protect "password" Bonne journée

Salut, Et si tu utilisais ce code pour creer une copie du fichier. Sub CopierFichier() FileCopy Source:="C:\Projet\FichierSouce.xlsx", Destination:="C:\Projet\FichierCopie.xlsx" End Sub Pas besoin de l'ouvrir pour le copier et ensuite tu l'ouvres avec Workbooks.Open...

Mais du coup obligé de passer par une combobox pour cette méthode ?

Hello, Un test avec la méthode de http://boisgontierjacques.free.fr/ Il faut taper la ou les premieres lettre et cliquer sur la flèche pour afficher les propositions. EDIT : Trop lent, devancé par CHALET53 avec la même méthode

Dans ce cas il faut une autre clé de comparaison je pense. Puisqu'il sera difficile de définir quelle adresse de la feuille 1 est encore en feuille 2 et si il y a plusieurs changements, de savoir quelles sont les mêmes personnes

hello Pour faire sur une colonne il suffit de tirer la formule vers le bas

Bonjour, A essayer : CA 45.xlsx Sinon concernant la largueur des colonnes il faut cliquer sur le TCD > Analyse > Options > et décocher la case entourée en rouge.