Excel - comment copier toutes les colonnes d'une ligne en fonction d'une condition

0

Je suis nouveau dans les macros et j'espère que quelqu'un pourra vous aider Essayer de générer un rapport à partir d’une fiche technique répondant à certaines conditions. Je dois récupérer toutes les données (cellules) dans une ligne, par exemple. qui remplissent la condition & lt; 1 de la colonne 10 et copiez ces cellules / rangées dans une nouvelle feuille. Je ne trouve aucune fonction dans Excel, alors j'espère qu'une macro non avancée que je peux modifier peut faire l'affaire. Merci d'avance.

microsoft-excel vba Frank Sannes
la source

Réponses:

1
  • Ouvrez une copie de votre feuille Excel contenant toutes les données.
  • presse ALT + F11 ouvrir l'éditeur VBA

  • Ouvrez la feuille Sheet1 dans le volet gauche et insérez le code ci-dessous. 

    Sub mymacro()
  For myrow = 1 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If Cells(myrow, 8) < 1 Then
      i = i + 1
      ActiveWorkbook.Sheets(1).Rows(myrow).Copy Destination:=ActiveWorkbook.Sheets(2).Rows(i)
    End If
  Next myrow
End Sub
  • retournez à votre feuille et appuyez sur ALT + F8 et exécutez votre macro

Ce code sera exécuté jusqu’à la dernière ligne utilisée. Vérifiez si la huitième colonne a la valeur & lt; 1 et si oui, copiez la ligne entière dans la ligne libre suivante de la feuille 2.

nixda
la source
OK merci. Je vais essayer. C'est beaucoup de rangées avec des voitures que nous avons vendues. Dans la colonne "H", j'ajoute un "1" si la voiture est livrée. Chaque fin de mois, je dois envoyer une réservation d'ordre et je veux ensuite aller chercher toutes les lignes avec des voitures qui ne sont pas livrées et faire un rapport à envoyer. C'est peut-être une façon fastidieuse de le faire, mais je suis novice :-)
Frank Sannes
merveilleux :-) Si je peux vous déranger plus, je cherche les données qui apparaissent dans les lignes 14 à 1000. Peut-être que ce sera plus rapide lorsque le tableau sera défini. Ok, je promets que je ferai de mon mieux pour apprendre à programmer moi-même la macro :-)
Frank Sannes
Mais je veux que tu apprennes quelque chose :) Ce que tu veux est vraiment très simple. Je vous donne un indice et vous l'essayez, d'accord? Vous devez éditer la ligne 2.
nixda