Contenu récent par morest38

Salut, J'ai essayé Sleep mais il faut importer la fonction donc c'est vraiment pas pratique. J'ai essayé avec Application.wait mais ça ne marche pas. Ce code est idéal Dim rng As Range Set rng = Range(Cells(ActiveCell.Row + 1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column))...

Salut, En cherchant sur les forums anglais j'ai trouvé ce code. Dim rng As Range Set rng = Range(Cells(ActiveCell.Row + 1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column)) rng.SpecialCells(xlCellTypeVisible).Cells(1).Select Ca marche parfaitement pour selectionner la cellule visible du...

Salut, Merci pour ta réponse. Par contre ça fait exactement le même résultat. La flèche est appliqué sur la feuille B et non la A.

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

Re, Merci pour le fichier mais ce dernier me fait planté Excel lorsque j'utilise la macro. Etrange même si je suis en x64 j'ai ajouté un PtrSafe pour contrer mais ça plante.

Hello Lone Wolf, Merci, je me suis probablement mal exprimé mais je cherche à ce qu'Excel ouvre une fenêtre pour ensuite avoir le choix et que le nom soit automatiquement indiqué. J'avais trouvé une fonction: Application.GetSaveAsFilename Mais elle semble instable et ne pas vraiment considérer...

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

Salut Paf, Ok je n'avais pas compris le conseil de Dranreb ainsi, effectivement un tableau vba serait intéressant surtout si il se décharge en 10 fois moins de temps. Excusez mon ignorance mais comment réaliser ce genre de tableau ainsi que le décharger ensuite dans le classeur :). Merci encore.

Re et merci pour la réponse, Mais ces accès sont le départ d'un calcul plus complexe qui se réalise sur la fiche de calcul. Je pense que les array peuvent être la solution et encore pas sûr. Je vais creuser d'avantage.

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

C'est souvent quand il n'y a rien a comprendre que c'est le plus compliqué :). Merci en tous cas pour ton aide!! Ca marche nickel. Voici le code final: Option Explicit Private Declare PtrSafe Function GetDC& Lib _ "user32.dll" (ByVal hwnd&) Private Declare PtrSafe Function GetDeviceCaps& _ Lib...

Re, Effectivement mais je ne suis pas aussi à l'aise lorsque ça touche aux API. Ce code je l'ai trouvé sur ce forum il me semble mais je la partie "Option explicit" je ne la comprends quasiment pas :). Merci quand même de ton aide.

J'ai cherché pendant 1 heure avant de me décider à poster. Mais ok je vais continuer de chercher car j'ai dû mal le faire :).

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

Re : [VBA] Détecter si 2 cercles se touche. Re-bonjour, Je suis de nouveau bloqué. Je génère des cercles en fonction d'un alignement et à différentes hauteurs. Ces cercles ont tous un nom (type Small1, Small2, ...) et une fois la génération terminé je souhaite les grouper. La fonction pour...