Résultats de la recherche

  1. M

    XL 2010 VBA Sendkeys qui se lance sur le mauvais onglet.

    Salut à tous et merci de prendre le temps de lire ce post. Voici le code que j'ai. Le but est d'envoyer la consigne, depuis l'onglet B, de descendre d'une cellule sur l'onglet "A" mais l'application ne se rafraîchit pas et la sélection se fait sur l'onglet inital "B" Sub OneDown()...
  2. M

    XL 2016 [VBA] Sauvegarder en PDF dans dossier cible.

    Salut à tous, Je cherche depuis un certain temps à sauvegarder une zone d'impression d'une feuille excel en format PDF. J'ai ce code tout simple: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="Thermal Datasheet", Quality:=xlQualityStandard, IncludeDocProperties:=True...
  3. M

    XL 2016 Augmenter la vitesse de FOR

    Salut, Voilà j'ai ce code qui marche parfaitement. Sub DesignAUTO() Application.ScreenUpdating = False Range("A5:D5000") = "" y = 4 'loop 1 For i002 = 1 To 57 'loop 2 For i003 = 1 to 20 'loop 3 For i004 = 1 To 5 'loop 4 For i005 = 1 To 6 y = y + 1 Cells(y, 1) = i002 Cells(y, 2) = i003...
  4. M

    XL 2016 Positionner Userform sur cellule

    Salut à tous, Voilà j'ai trouvé une solution pour positionner une userform sur la cellule de mon choix. En l’occurrence, la cellule active. Option Explicit Private Declare Function GetDC& Lib _ "user32.dll" (ByVal hwnd&) Private Declare Function GetDeviceCaps& _ Lib "gdi32" (ByVal hDC&, ByVal...
  5. M

    [VBA] Détecter si 2 cercles se touche.

    Bonjour à tous, Malgré mes recherches je ne trouve pas de solution à mon problème. J'ai peur que ça ne soit pas réalisable sous excel. Voilà, je dessine en vba un grand cercle dans lequel je viens insérer toujours pas vba de plus petit cercle qui doivent ne pas sortir du grand cercle. Pour...