Contenu récent par Ludwig74

  1. L

    Microsoft 365 Optimiser export données vers nouveau classeur

    Bonjour à tous, Après une longue soirée à chercher une solution, voici où j'en suis. cf code ci-dessous. Deux problématiques : N'incrémente pas les lignes que d'un fournisseur. Sauf pour la première boucle. Je pense qu'il faudrait purger la table après la 1ère boucle. J'ai testé erase TabData...
  2. L

    Microsoft 365 Optimiser export données vers nouveau classeur

    Bonsoir tout le monde, J'ai fait ce code qui me permet de copier une plage de données vers un nouveau classeur. La plage de données se comporte de plusieurs colonnes dont certaines sont masquées. Les données masquées ne doivent pas être exportées. Je boucle tout d'abord dans la colonne...
  3. L

    Microsoft 365 Tester si ligne à changer après une nouvelle sélection

    Une seule table peut suffire. Public IntLg As Long Dim itab(1) As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False On Error Resume Next IntLg = Target.Row itab(1) = ActiveCell.Row If itab(0) <> itab(1) Then...
  4. L

    Microsoft 365 Tester si ligne à changer après une nouvelle sélection

    C'est parfait ! Merci beaucoup pour ton aide. Je te souhaite un bon week-end et à bientôt.
  5. L

    Microsoft 365 Tester si ligne à changer après une nouvelle sélection

    Je pense avoir trouvé une solution en suivant ta suggestion des tables. Public IntLg As Long Dim itab(0) As Long Dim itab1(0) As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False IntLg = Target.Row 'chgtlg itab1(0) =...
  6. L

    Microsoft 365 Tester si ligne à changer après une nouvelle sélection

    Bonjour, Merci d'avoir pris le temps de me lire et surtout de me répondre. Suite à ta réponse voilà ce que j'ai fait. Public IntLg As Integer Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells(1, 1) = Target.Row IntLg = Cells(1, 1) End Sub Private Sub...
  7. L

    Microsoft 365 Tester si ligne à changer après une nouvelle sélection

    Bonsoir à tous, Est-il possible de tester, lors d'un changement de sélection, si la ligne de la nouvelle sélection est différente de la sélection précédente ? J'aimerais pouvoir exécuter une macro au moment où je change de ligne. Le changement de sélection peut se faire, soit avec les curseurs...
  8. L

    Microsoft 365 Import photo plafonné à un certain .top

    Merci, tu as vu juste. j'ai déclaré ma variable "Haut" en Long et les images s'incrémentent correctement. Encore merci et bonne soirée. Ludwig
  9. L

    Microsoft 365 Import photo plafonné à un certain .top

    Bonjour, J'ai une macro qui importe des photos. La macro boucle sur les lignes de la feuille et place l'image au niveau du .top de la cellule. L'import se fait correctement mais après un .top de 33752 les images se superposent. Je peux importer plus ou moins d'image en fonction de la hauteur...