Contenu récent par Atiom

Bonjour mapomme, Ok, c'est parfait. Merci pour les infos, pas si simple comme je le croyez! Bonne journée et à bientôt.

Bonsoir job75 Ok, Parfait! Je voulais adapter le code de mapomme pour autre chose et croyais qu'il suffisait d'ajouter .Value, Mais je vais faire avec ta solution, Encore grand Merci et belle fin de journée.

Re, Comment peut-on faire pour copier uniquement les valeurs sans la mise en forme dans code de mapomme ? J'essayé d'ajouter .Value après Range, mais cela ne marche pas ! f.Range.Value("g5:i46").Copy .Cells(lig, "c") ' on copie la plage à la ligne lig f.Range("g5:i46").Copy...

Bonjour et encore bonne année à tous, C'est Super ! Les 3 propositions fonctionnent parfaitement, j'ai le choix ! Un tout grand merci à tous. Je vous souhaite une excellente jour journée et à bientôt.

Bonjour, Je souhaite extraire les valeurs de deux plages identiques de chaque feuille et les stocker à la suite dans une autre feuille. J’applique la macro ci-dessous que fonctionne mais je dois modifier pour chaque macro le nom de la feuille et la plage de destination. Comment faire pour...

Re; Ok, parfait, c'est super ! Cela fonctionne. Grand merci.

Re, Merci infiniment pour toute l'aide, explications et les solutions proposées. Encore une fois la solution par formule fonction parfaitement. J'ai essai de tout comprendre et finaliser le code VBA pour obtenir le même résultat. A l'exception de la colonne A ( qui est Vide ) le code...

Re, Super sylvanu. Merci cela fonctionne parfaitement. Par contre comme proposé j'ai utilisé le code VBA et cela provoque une erreur! J'ai essayé de faire travailler mes cellules grises🙂, mais pas de solution. Sub Calc() Formule =...

Bonjour, Toujours sur le même sujet mais pour une autre utilité je souhaiterai obtenir un code VBA pour faire une recherche et somme selon plusieurs conditions entre deux feuilles. J'ai fait quelques recherches mais je me trouve face a quelques difficultés ( lignes et colonnes vides dans les...

Re, Formidable! Cela fonctionne parfaitement. Merci beaucoup et bonne journée.

Bonjour, Bonne et heureuse année 2026 à tous! Ces lignes de code fonctionne très bien, il fait référence au nom de Classeur ( 7_Version_VBA.xlsm ) et active la Macro Semaine2 à l'ouverture du classeur. Windows("7_Version_VBA.xlsm").Activate Application.Run "'7_Version_VBA.xlsm'!Semaine2"...

Rebonsoir, Top! Cela fonctionne! Encore une fois grand merci à tous. @Dranreb Oui j'ai une feuille nommée "1" et t'as sans doute raison concernant la constante String ! Je regarde !

Re, sylvanu Dim Fichier$, T Fichier = Worksheets("Info").Range("A1").Value Workbooks.Open Fichier T = Split(Fichier, "\") Set wbSource = Workbooks(T(UBound(T))) '< >Défini la feuille du classeur Set wsSource = wbSource.Sheets("1") ' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>...

Re, Merci goube je pense que t'as sans aucun mais raison! Mais après plusieurs essais de code j'ai malheureusement toujours des erreurs! Donc : J'ai ajouté une feuille que j'ai renommé Info Dans la cellule A1 j'ai mis \Users\Fichier1.xlsm et en A2 j'ai mis Fichier1.xlsm Les deux chemins...

Re, Toujours dans le même code je m'aperçois que si je change l'emplacement du dossier source il faut changer le chemin dans chaque feuille. Est-ce qu'il y a un moyen d'éviter cela ? Par exemple mettre le chemin dans une cellule et le code VBA s'adapte automatiquement dans toutes les feuilles...