Contenu récent par laurent950

  1. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonsoir @patricktoulon , @Laurent78 Pour un document Word ont peut partir sur ce type de document Word dont le poste parler de passage de Word vers Excel. En Poste 1 (il y a le document Word celui avec lequel je fais les test)...
  2. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Re @patricktoulon Ouvre un fichier Word vide copie ci-dessous dans le fichier Word pour Teste c'est que du Texte uniquement du Texte. Ci-dessous quand je fais le test. 1 ligne (Espace entre ligne vide) 1 Paragraphe de (4 lignes) (Espace entre ligne vide) 1 Ligne (Espace entre ligne vide) 1...
  3. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonsoir @patricktoulon je n'y arrive pas, j'ai pas c'est brouillon. je vais réfléchir c'est complexe. mais "vbCrLf" cela ne correspond pas.
  4. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonsoir @patricktoulon J'avais déjà essayer cela est ca ne fonctionne pas "vbCrLf" Je vais te poster un brouillon
  5. laurent950

    XL 2016 Macro pour convertir .PDF en .XLSX

    Bonjour le forum, @patricktoulon , @kiki29 , @Staple1600 Nota : J’ai constaté que l'objet Selection est étroitement lié à l'application Word en cours d'exécution via l'objet Application, et bien que j’arrive à manipuler les paragraphes à travers la sélection, je n’ai pas trouvé de moyen de...
  6. laurent950

    XL 2021 Doublons

    Bonjour @fanch55 Merci pour votre réponse, il y a aussi la possibilité de mettre les cellules des lignes en doublons, en augmentant la taille des caractères avec un paramètre gras et souligné, indépendamment de la couleur de font de cellule et de texte. Sub...
  7. laurent950

    XL 2021 Doublons

    Bonsoir @JohnBill Vérifiez si des règles de mise en forme conditionnelle sont appliquées à la plage de cellules, car celles-ci peuvent remplacer les couleurs de fond manuellement définies. Par exemple, au lieu d'utiliser une couleur rouge vif qui pourrait être difficile à distinguer sur un...
  8. laurent950

    XL 2021 Doublons

    Bonjour @JohnBill Oui il y a une solution, je vous la poste ce soir. En attendant je vous souhaite une bonne journée.
  9. laurent950

    XL 2021 Doublons

    Bonsoir @JohnBill Suite au poste #16 et votre fichier avec l'explication : Chaque ligne doit être unique. Donc, pour les doublons, la sélection doit se faire sur les 5 colonnes, si j'ai bien compris ? Le code que vous avez récupéré avec sa correction n'est pas adapté à votre demande.
  10. laurent950

    XL 2021 Doublons

    Bonsoir @JohnBill Le Poste #8 répond au Poste #1, ce qui signifie que la procédure VBA correspond à ce que vous avez décrit. @JohnBill = "Parfois, pour un même titre, je peux obtenir un classement différent ou un artiste différent. Est-il possible de trouver les doublons par rapport à toutes...
  11. laurent950

    XL 2021 Doublons

    Bonsoir @JohnBill Effacer le format au début, Les MCF et les Intérieurs couleurs (A régler) selon vos besoin. Le Code : Doublons Multichoix Sub SupprimerMFC_Puis_GestionDoublons() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With ws.Cells ' Suppression...
  12. laurent950

    XL 2013 (RESOLU) Masquer et/ou afficher des colonnes selon une valeur

    Bonsoir @chaelie2015 Sub Worksheet_Change(ByVal Target As Range) ' si U11=2, je souhaite afficher les colonnes AO:AP (41:42) et AQ:AR( 43:44) ' si U11 est vide, je veux masquer toutes les colonnes (AO:EJ) (41:140) Application.ScreenUpdating = False Dim wsType As Worksheet Dim colRange...
  13. laurent950

    XL 2016 Onglets très masqués VBA à chaque réouverture de fichier

    Bonsoir, Insérez ce code dans le module ThisWorkbook. Ce code utilise deux procédures : - AfficherOnglets pour rendre les onglets visibles - MasquerOnglets pour les masquer. La procédure Workbook_Open est déclenchée lors de l'ouverture du classeur La procédureWorkbook_BeforeClose est...
  14. laurent950

    XL 2021 Erreur d'exécution 424

    Bonsoir @Usine à gaz ' Erreur Private Sub Worksheet SelectionChange (ByVal R as Range) If Intersect (Active.Row, Range("j:s")) Is Nothing Then Exit Sub ' Correction ' A) Vous devriez utiliser Target.Row au lieu de Active.Row ' - De plus, vous pourriez vouloir spécifier les colonnes...
  15. laurent950

    Microsoft 365 redim array ne marche pas

    @dysorthographie Il y a des chance que @patricktoulon t'envoie son copain diabolo 😀😀