Contenu récent par Perceval973

Ca fonctionne IMPECCABLE :) Merci Sylvanu

Bonjour Sylvanu Le code VBA semble fonctionner mais pas a tous les coups Parfois il bug à la ligne "If Application.Rank(Cells(L, "C"), [C:C]) <= 3 Then" Désolé d'avoir oublié le mot de passe, je pensais l'avoir enlevé, c'est : 0369 Je préfère une macro plutôt qu'une MFC car une feuille se...

Bonjour à tous J'ai un fichier contenant des valeurs sur trois colonnes Je voudrais mettre en surbrillance les trois valeurs les plus élevées de la colonne "C" Dans mon exemple ci-joint, il s'agirait donc des cellules C7, C8 et C9 que je voudrais "couleur de remplissage : jaune" de préférence...

Voici une macro qui fonctionne (pour ceux qui viendront par la suite...) Sub Nettoyage_Synthese_Lx_MFC() With ActiveSheet If .Name Like "* L#" Then 'nom de la feuille se termine avec un espace, un "L" et un chiffre With .Cells...

Merci...

Bonjour à tous Je suis novice en macrologie Je récupère un classeur dont je ne suis ni le créateur ni le propriétaire. Ce classeur est alimenté par une quinzaine de personnes Ce classeur contient plusieurs feuilles dont "lundi" "mardi" "mercredi" "jeudi" "vendredi" "samedi" "dimanche" Chaque...

Bon ! Avec vos sarcasmes j'ai complètement perdu le fil... Est-ce qu'on pourrait recommencer sur de nouvelles bases ? Je n'ai jamais reçu de formation ni sur Excel ni en VBA, j'ai tout appris seul en consultant des sources internet La dernière fois que j'ai eu a faire des macros dans le cadre...

Cela fonctionne parfaitement, je te remercie... Bon, mes connaissances sont insuffisantes pour être capable de renommer la nouvelle feuille, mais tu m'as déjà beaucoup aidé

J'ai peur de ne pas avoir compris Tu dis "cette macro" comme si elle etait dans ton message, mais je ne vois rien :-/

Le tableau de départ commence toujours en A1 Je n'ai pas besoin d'une mise a jour du résultat si l'on modifie les données de départ (on ne les modifie pas)

Voila, j'ai corrigé ma macro... Sub Nettoyage_Synthese_Mercredi_L1() ' ' Nettoyage_Synthese Macro_Mercredi_L1 ' Range("A1").Select Application.ScreenUpdating = False Cells.Select Selection.UnMerge Rows("1:1").Select Selection.Delete Shift:=xlUp Cells.Select...

Bonjour, Dans un premier temps je me contenterai d'aller dans l'onglet développeur, de cliquer sur "Macro" puis de lancer la macro depuis la boite de dialogue Bien entendu la destination du résultat devrait être une nouvelle feuille

Non je ne les fusionne pas, je sélectionne toute la feuille et je rompt toutes les fusions Comme je l'ai dit a un moment, je récupère un classeur existant, je ne suis pas maitre de ce que les autres ont fait avant moi J'essaie au mieux de nettoyer la feuille que j'ai a traiter

Chez moi cela fonctionne

Ce sont les mêmes codes, mais je cherche aussi à avancer par moi même