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

Résolu/Fermé

Marie Chant Messages postés 92 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 24 avril 2024 - 23 sept. 2014 à 14:04
Marie Chant Messages postés 92 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 24 avril 2024 - 23 sept. 2014 à 15:33

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.

A voir également:

Aide sur une partie de ma macro supprimer les Y dans une colonne
Supprimer une page word - Guide
Déplacer une colonne excel - Guide
Supprimer compte instagram - Guide
Comment récupérer les messages supprimés sur whatsapp - Guide
Flouter une partie d'une photo - Guide

2 réponses

Réponse 1 / 2

redaiwa Messages postés 351 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 119
23 sept. 2014 à 14:41

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
  Wend
End With
End Sub

En supposant que les données sont sur la feuille "Feuil1".

Cela te convient-il?

Réponse 2 / 2

via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 2 703
23 sept. 2014 à 14:44

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

<code basic>

Cdlmnt

Marie Chant Messages postés 92 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 24 avril 2024 2
23 sept. 2014 à 15:33

Merci beaucoup cela fonctionne tres bien. je n'avais pas réussis avant. Merci mille fois! c'est super
Bonne journée a vous

Discussions similaires

liste de noms par ordre alphabétique

Formule magique excel??????

Comment supprimer une conversation Messenger pour les 2 personnes ?

Discussions similaires

Newsletters