Aide sur une partie de ma macro supprimer les Y dans une colonne Résolu/Fermé

Question

Bonjour,
J'ai besoin d'aide pour une partie de la création de ma macro.

Dans mon tableau j'ai mis un filtre sur ma premiere ligne et je veux que ma macro sélectionne les Y dans ma colonne AG et supprime les lignes qui ont le Y dans la colonne AG. La longueuer de ligne est différente d'une fois a l'autre. J'ai fais la macro par enregistrer une macro mais cela ne sera pas correct si les lignes sont plus logne ou plus courte.  Je voudrais supprimer les Y de la colonne AG jusq'en bas soit tatnt qu'il y a quelque chose d'écrit en A.

Merci beaucoup de votre aide.

redaiwa · Answer

Salam Marie (Ave Maria).

Essaye ce code VBA que tu placeras dans un module :
Public Sub Supprimer_Y()With Feuil1  ligne = 2  While .Range("A" & ligne) <> ""    If .Range("AG" & ligne) = "Y" Then      Rows(ligne).Delete    Else      ligne = ligne + 1    End If  WendEnd WithEnd Sub

En supposant que les données sont sur la feuille "Feuil1".

Cela te convient-il?

via55 · Answer

Bonjour Essaie une macro du style : Sub supprime() Dim DernLigne As Long DernLigne = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row For n = DernLigne To 1 Step -1 If Range("A" & n) <> "" And Range("AG" & n) = "Y" Then Rows(n & ":" & n).Select Selection.Delete Shift:=xlUp End If Next n End Sub




 Cdlmnt

Aide sur une partie de ma macro supprimer les Y dans une colonne

2 réponses

Discussions similaires