Résultats de la recherche

  1. laurent950

    XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

    Re @Dudu2 Je t'offre ce timer, cela peut être utile pour les tests. Option Explicit Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long Sub MaMacroTimer() Dim StartTime As Double Dim EndTime As Double Dim ElapsedTime As Double ' Début du comptage du temps...
  2. laurent950

    XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

    Excel ne trouve pas non plus (avec Ctrl + f "Sans VBA") comme @Staple1600 (Merci Staple1600) la indiqué en poste #15 en testant depuis sur votre fichier en poste #129 sur la feuille 2 de ce classeur en rapport avec vos paramétrages. il y a effectivement trop de cellules verrouillés au bout de 4...
  3. laurent950

    XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

    Au départ : Ces deux lignes de code sont utilisées pour spécifier les paramètres de recherche lors de l'utilisation de la méthode Find dans VBA. Application.FindFormat.Locked = True : Cette ligne indique à Excel de rechercher uniquement dans les cellules verrouillées lors de l'utilisation de la...
  4. laurent950

    XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

    Re @Dudu2 il cherche à l'endroit où se trouvent les cellules verrouillées uniquement et indépendamment de la présence de données. Si je lance le code sur une feuille vide, ça plante car le rgn est Nothing. Prise en compte ici ' Selection On Error Resume Next rgn.Select If Err.Number...
  5. laurent950

    XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

    Bonsoir @Dudu2, Le Forum Avec l'objet Collection Je pense que l'outil de recherche est remplacé par Ctrl + F (la boîte n'est pas disponible en VBA). J'ai comme l'impression que cet outil effectue également une boucle en arrière-plan. Pour reproduire ce que fait cet outil, ce serait cela ...
  6. laurent950

    XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

    Bonsoir @Dudu2, Le Forum Avec l'objet Dictionnary Je pense que l'outil de recherche est remplacé par Ctrl + F (la boîte n'est pas disponible en VBA). J'ai comme l'impression que cet outil effectue également une boucle en arrière-plan. Pour reproduire ce que fait cet outil, ce serait cela ...
  7. laurent950

    XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

    Bonsoir Le forum, Sub TrouverCellulesVerrouilleesSansBoucle() Dim rng As Range Dim firstLockedCell As Range Dim ws As Worksheet Set ws = ActiveSheet ' Recherche de la première cellule verrouillée dans la plage utilisée de la feuille Set firstLockedCell =...
  8. laurent950

    Autres testez la version beta 1.0 de mon vba Indenter

    Bonjour @patricktoulon je viens de tester, il semble que les Dim ne s'indente pas comme il faut, j'ai fait le test. Faire le test en cochant que cette case (Indent [ Déclarations (Dim) ]) pour voir le résultat : Les Dim ne suivent pas. pour contribuer a t'aider sur ton développement...
  9. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonsoir @Chanbern, @Staple1600 , @patricktoulon La conversion de fichiers PDF complexes en Excel peut être délicate, notamment lorsque les tableaux varient de structure d'une page à l'autre. J'utilise régulièrement Adobe Acrobat Version Pro, un outil que je maîtrise et avec lequel j'ai...
  10. laurent950

    Microsoft 365 afficher les doublon avec des couleurs

    Bonsoir @HASSEN@45 J'ai optimisé le code en divisant le traitement des doublons en deux étapes distinctes. C'est une astuce pour gérer les doublons sans traiter les mêmes mots à plusieurs reprises. Dans cette version modifiée, j'ai divisé le traitement en deux boucles For Each cell In rng...
  11. laurent950

    Microsoft 365 afficher les doublon avec des couleurs

    Bonsoir @HASSEN@45 Pour rechercher et mettre en couleur les doublons (dans votre exemple : FRESNES) : Avec Excel VBA en utilisant des expressions régulières : Modifier "Feuil1" : ThisWorkbook.Sheets("Feuil1") par le nom de la feuille où sont les données. Cette macro va parcourir toutes les...
  12. laurent950

    XL 2019 SIERREUR

    Bonjour @frederio =SIERREUR(vide) ou 1/5 =SIERREUR(Formule; Valeur_par_défaut)
  13. laurent950

    Recherchev et Minuscules/Majuscules

    Bonsoir @hoerwind Formule : =RECHERCHEV("ab";$A$3:$B$28;2;VRAI) Explication : valeur_cherchée est la valeur que vous recherchez. plage_table est la plage de cellules où vous effectuez la recherche. numéro_colonne est le numéro de la colonne dans la plage_table à partir de laquelle extraire la...
  14. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonsoir @Staple1600 Tu n'es pas invisible, j'ai déjà réalisé ce que tu décris dans ton poste #56 J'ai même fait le bout de code en Poste #44 et dont tu peux tester aussi sans oublier de connecter les bibliothèques Adobe Acrobat Pro avant d'utiliser le code. Pour ma part c'est bien plus...
  15. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Re c'est pas évident. Lorsque je récupère un document au format PDF ou Word, celui-ci peut contenir des zones de texte composées de paragraphes d'une ou de plusieurs lignes, ainsi que des tableaux 2D de tailles et de dimensions différentes. Ci-Dessous reconnu en Tableau : dans le document (PDF...
  16. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonsoir @patricktoulon Je me concentre actuellement sur le modèle objet Word. Je recherche la structure du modèle objet Word, car retrouver celle d'Excel est relativement simple, mais celle de Word est plus complexe. Je pense que la meilleure approche serait de récupérer les segments un par...
  17. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonjour @patricktoulon ' ici c'est le programme windows ? ' Créer une instance de l'application Word Dim Wapp As Object Set Wapp = CreateObject("Word.Application") ' Classe Windows fenêtre (Excel VBA) soit : Dim win as Window Set win = ActiveWindow ' Renvoie un objet Pane qui représente...
  18. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonsoir @patricktoulon, Je voulais revenir sur le script que j'ai partagé dans le message #44. Il fonctionne plutôt bien (Avec Acrobat Pro) lorsque le fichier ne contient qu'une seule page, que ce soit en PDF ou en Word. Cependant, dès qu'il y a plusieurs pages, surtout avec plusieurs...
  19. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonsoir le forum, J'ai complété le code, plus besoin de sélectionner via le document Word. Les tableaux sont récupérés, ainsi qu'une ligne dans un paragraphe multiligne. a tester avec le fichier en Poste #1 ci-dessous ...
  20. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonjour le Forum, Le code en Poste #44 fonctionne très bien en rapport avec le poste #3 Il faut penser à connecter les bibliothèques Adobe Acrobat pro avant d utiliser le code. Merci.