Contenu récent par Luc St-laurent

  1. L

    XL 2013 améliorons cette boucle et la déclarations des variables :)

    Quelle merveille :) C'est vraiment parfait.... Petite question d'intérêt général. Est-ce qu'il y aurait une possibilité de faire un tableau ou tout simplement réussir à faire un =count dans VBA afin que nous puissions concerver Application.Calculation = xlManual. Car cette boucle fait...
  2. L

    XL 2013 améliorons cette boucle et la déclarations des variables :)

    Voici ce que je souhaite faire de façon enregistré ensuite chaque boucle suivante c'est la même procédure mais avec un coller à la ligne suivante. donc au lieu de T9 nous serions à T10 ... Sheet1.Select Range("B11:K11").Select Sheets("Page.C").Select Range("D9").Select...
  3. L

    XL 2013 améliorons cette boucle et la déclarations des variables :)

    Bonjour Soan, J'ai justement un défi avec cette portion. je reçois un message d'erreur. [A1].Offset(9 + i, 1).[A1:J1].Copy 'Copier Mon objectif est de simplement copier la section B11:K11 et ensuite B:12:K12 suivi de B13:K13 et finalement B14:K14
  4. L

    XL 2013 améliorons cette boucle et la déclarations des variables :)

    Oui c'est parfait, sans quoi ça semble aussi fonctionner de cette façon en enlevant un [A1] (mais je n'ai aucune idée du pourquoi?). [A1].Offset(25 + m, 13 + mm).Select: Range(Selection, Selection.End(2)).Copy
  5. L

    XL 2013 améliorons cette boucle et la déclarations des variables :)

    Bonjour Soan, En effet c'est très intéressant et particulièrement élégant comme écriture. Est-ce que tu aurais une idée de la raison du message d'erreur suivant. Run-time error '438': Object doesn't support this property or method [A1].Offset(25 + m, 13 + mm).[A1].Select: Range(Selection...
  6. L

    XL 2013 améliorons cette boucle et la déclarations des variables :)

    Bonjour à tous, Le code ci-dessous roule bien mais il n'est vraiment pas élégant et il est loin d'être optimal. Est-ce que vous auriez des idées pour améliorer l'exécution et la rapidité de celui-ci. merci :) Option Explicit Sub Boucle() Dim r As Long, m As Integer, mm As Variant, n As...
  7. L

    Barre de progression (avec plusieurs Labels)

    Merci pour votre aide, Est-ce possible d'actualiser le Userform automatiquement. Car ma macro prend environ 30 minutes et une nouvelle inscription se fait donc toute les minutes. C'est donc dire qu'à chaque minute dans la case suivante il y a l'ajout d'un X ou d'un O et si possible j'aimerais...
  8. L

    Barre de progression (avec plusieurs Labels)

    Bonjour à tous, Alors voilà j'essaie de créer une barre de progression avec plusieurs labels. J'ai une macro qui m'inscrit un O ou un X dans chaque case de mon classeur. j'aimerais que lorsque la case est = O le label soit vert et lorsque la case est = X le label soit jaune. Et lorsque la...