Contenu récent par laurent950

  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...