Contenu récent par benoitxi

  1. B

    Récupérer le chemin d'un dossier par boite de dialogue

    Oui en effet j'utilise Dir par la suite. Merci
  2. B

    Récupérer le chemin d'un dossier par boite de dialogue

    Hello, En fait cela ne venait pas du bouton OK. Cela venait qu'il manquait un \ pour accéder au dossier. Peut être que ça peut se gérer différemment mais en tout cas ça fonctionne maintenant. Set dossier = Application.FileDialog(msoFileDialogFolderPicker) If dossier.Show = -1 Then...
  3. B

    Récupérer le chemin d'un dossier par boite de dialogue

    Oui je teste mais c'est le même résultat que ce que j’avais fait dans mon code initial. J’arrive bien à sélectionner mon chemin mais ensuite la macro ne continu pas. De plus il n'y pas de message d'erreur...
  4. B

    Récupérer le chemin d'un dossier par boite de dialogue

    Je ne suis pas sur de tout comprendre. Avec cette application je dois sectionner un fichier dans mon dossier. Mon objectif est de juste sélectionner le dossier et récupérer le chemin Pouvez vous m'éclairer un peu plus ? Merci
  5. B

    Récupérer le chemin d'un dossier par boite de dialogue

    Bonjour à tous, J'ai le code ci-dessous mais j’aimerais remplacer mon chemin par une boite de dialogue ou l'utilisateur peut choisir le dossier ou il y a les fichiers à consolider. Dim chemin As String Dim fichier As String Dim Dernlg As Integer chemin = "A:\Budgets\Budget 2020\Fichiers...
  6. B

    Microsoft 365 Sélection d'une plage avec cellule vide incomplète

    C'est compliqué de vous envoyer un fichier. Votre solution fonctionne mais seulement dans le cas ou ma sélection correspond à plusieurs colonnes. Lorsque ma sélection concerne une seule colonne qui est vide (mais pas dans tout les fichier) et que je que je fait Count avec le numéro de colonne...
  7. B

    Microsoft 365 Sélection d'une plage avec cellule vide incomplète

    Bonjour à tous, Je sélectionne plusieurs plages dans le cadre d'un fichier de consolidation. Cependant lorsque il y a une cellule vide dans ma sélection au début de la plage cela ne fonctionne pas et la sélection copie l'entête de ma page au lieu des données. Voici la formule que j’utilise...
  8. B

    Compter le nombre de remplacement effectué et les mettre en couleur

    Merci ! ça fonctionne très bien !
  9. B

    Compter le nombre de remplacement effectué et les mettre en couleur

    Bonjour à tous, J'ai la macro ci dessous qu fonctionne très bien mais j’aimerais y ajouter 2 actions : Mettre la cellule ou le changement a été opéré en couleur. Compter le nombre de remplacement qui ont été effectué et l'afficher dans une message box à la fin de l'exécution. Merci pour votre...
  10. B

    Simplification d'une formule IF OR

    Hello Ma pomme, La formule IsStr est super et je me demandais comment je pourrais faire pour faire une recherche dans une plage nommé ou une colonne au lieu d'une liste prédéfinie. Exemple ci dessous If Range("société").Cells(i, 1) = "société1 _ And Range("Dept").Cells(i, 1) = "Dept1" _ And...
  11. B

    Simplification d'une formule IF OR

    Merci à tous pour vos réponses.
  12. B

    Simplification d'une formule IF OR

    Bonjour à tous, Je cherche à simplifier la formule OU suivante : If (Range("A" & i) = "Contrat1" Or Range("A" & i) = "Contrat2" Or Range("A" & i) = "Contrat3"Or Range("A" & i) = "Contrat4") Je me suis dit que je pourrais créer une liste qui comprend tous mes contrats pour les regrouper car je...
  13. B

    Utilisation des plages nommées

    Merci à tous les 2
  14. B

    Utilisation des plages nommées

    Bonjour à tous, J’ai crée plusieurs macro dans un ficher excel pour faire de la mise en forme de données. J’ai basé tout mon code avec les références aux lettres des colonnes (A,B,C,D...) Cependant ce n'est pas super quand quelqu'un insère une colonne ou en supprime une. Du coup j'ai tout...
  15. B

    Sommeprod[Résolu]

    Re : Sommeprod @ JCGL: En effet le TCD est une très bonne option mais j'ai une base de + de 70 000 lignes et partir de laquelle je dois remplir des tableaux pré formatés. @Néo et Denis Merci pour vos réponses, mais finalement j'ai trouvé une solution qui me permette de réaliser ce que je...