Tri feuille multi lignes

[Justa]

Bonsoir,

J'eue programmé un peu sur Matlab mais ne maitrise pas franchement le langage VBA.
Je suis en train de tenter de réaliser une macro qui me permettrais :
De supprimer automatiquement certaines colonnes de la feuille
De supprimer les lignes dont certaines colonnes (pour la ligne 5, la case P5 par exemple) sont nulles
De supprimer les lignes dont deux cases sont identiques (P5 et Q5 par exemple)
De trier le tout selon le critère d'une colonne
De réaliser un sous total selon ce critère

Cela ne me parait pas insurmontable mais je bloque assez rapidement.
Voici l'ébauche de code que j'ai réalisée :

Sub Macro1()
'Colonnes que je souhate supprimer dès le départ
Columns("H:H").Select
Columns("T:X").Select
Selection.Delete Shift:=xlToLeft


'Suppression des lignes où il y a un 0 dans une case
For i = 1 To 10000
If Range("Ki") = 0 Then
Rows("i:i").Select
Selection.Delete Shift:=x1Up
End If

Next i


End Sub

Je serait ravie que quelqu'un puisse me débloquer et/ou m'expliquer comment continuer ce code afin d'obtenir toutes (ou bonne partie) des fonctionnalités qui me plairais.

Bonne soirée.

 

[JCGL]

Re : Tri feuille multi lignes

Bonjour à tous,
Bienvenue à Justa,

Comme tu as déjà programmé, je te conseille l'enregistreur de Macro d'XL (Outils/ Macro / Nouvelle Macro).
Après lancement de l'enregistreur, tout ce que tu effectueras sera enregistré et te créera le code.

Il te restera à "alléger" le code mais il sera opérationnel en l'état

Au plaisir de te lire

A+ à tous