Contenu récent par cathodique

Bonsoir, essaie ceci: Sub test() Dim i As Integer Dim Var As Range With ActiveSheet If .HPageBreaks.Count > 0 Then For i = 1 To .HPageBreaks.Count Set Var = .HPageBreaks(i).Locatio Next i Else MsgBox "Aucun saut de...

Bonsoir, à tester Sub TrierQuatreColonnes() Dim PlageDeDonnees As Range Dim dl As Long With Sheets("Base 2") dl = .Range("A" & .Rows.Count).End(xlUp).Row Set PlageDeDonnees = .Range("A3:E" & dl) PlageDeDonnees.Sort Key1:=.Range("A3")...

Bonjour, où est @Alexandre, il a initié cette discussion et a disparu. Mince, il semble que même son pseudo ait disparu de XLD.

Bonsoir, En fait, moi aussi je n'ai vraiment pas beaucoup de temps pour m'impliquer. Cependant, un coup de pouce, en supposant qu'il n'y a pas une grande différence entre GPAO ET GMAO. Voici une ressource du forum à exploiter ici bonne soirée

Bonjour, @Mr.Maiga: Désolé, tu n'expliques rien en fait. Bon dimanche.

Pas sûr d'avoir bien compris. code à tester Sub Comparer_Reporter_Reperer() Dim wsSource As Worksheet, wsCible As Worksheet Dim dlSource As Long, dlCible As Long Dim i As Long, j As Long Dim Trouver As Boolean ' Définir les feuilles source et cible Set wsSource =...

Bonjour, il faut enregistrer ton fichier en xlsm. copie/colle ce code dans un module standard et tu l’exécutes (F5) Option Explicit Sub Comparer_Reporter_BenC() Dim wsSource As Worksheet, wsCible As Worksheet Dim dlSource As Long, dlCible As Long Dim i As Long, j As Long '...

Bonjour, pas tout fait, c'est un début pour que tu avances. Attention! il faut adapter les codes sinon plantage.

Bonjour, si tu avais joint un fichier. Ton problème aurait été déjà résolu. Bonne journée.

Bonjour, Le plus simple est que tu configures ton imprimante pour le recto-verso via le panneau de configuration. Sinon, bon courage sur ce lien ta procédure corrigée Private Sub Bi_Click() Unload Me Dim n As Long For n = 0 To Lst.ListCount - 1 If Lst.Selected(n) Then...

Bonsoir, En te lisant, j'ai failli m'étouffer. En plus, je n'ai pas compris grand chose. Stp, sois plus clair. Bonne soirée.

Bonjour, Tu t'adresses à la communauté XLD, comme si elle est spécialisée en Finances. Perso, je n'ai rien compris à ton problème. Pose-nous ton problème en tant que problème Excel (VBA). Où est ton fichier excel. et merci de bien expliquer tes attentes, en terme excel vba. A+

Bonjour, Résultat en colonne H. Mettre le code dans un module standard et l’exécuter (F5). Sub Eclater_ColA_Vers_ColH() Dim ws As Worksheet, lastRow As Long, i As Long, j As Long Dim tb As Variant, ligneH As Long Set ws = ThisWorkbook.Worksheets("Feuil2") lastRow =...

Tu as dû comprendre les choses à l'envers. Il faut montrer ce que tu as fait. Sinon, le tout cuit. Je ne suis pas partant. Comme vient de le dire @wDog66 , il y a des pros pour ça. Bonne continuation.

@sylvanu ;) @sourcier09 : j'avais ceci pour pdf, adapté au xlsm