Enlver les Y et Au dans une colonne
Résolu
Marie Chant
Messages postés
136
Date d'inscription
Statut
Membre
Dernière intervention
-
Marie Chant Messages postés 136 Date d'inscription Statut Membre Dernière intervention -
Marie Chant Messages postés 136 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans ma macro le voulais supprimer les Y dans la colonne AG et cela fonctionnait tres bien. Mais maintenent je dois enlever aussiles AU dans la meme colonne. J'ai essayé de mettre, apres le "Y","AU" mais ca ne fonctionne pas. que dois-je écrire pour pouvoir enlever les y et aussi les AU (If Range("A" & n) <> "" And Range("AG" & n) = "Y" Then)
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
Merci beaucoup de votre aide
Bonne soirée
Dans ma macro le voulais supprimer les Y dans la colonne AG et cela fonctionnait tres bien. Mais maintenent je dois enlever aussiles AU dans la meme colonne. J'ai essayé de mettre, apres le "Y","AU" mais ca ne fonctionne pas. que dois-je écrire pour pouvoir enlever les y et aussi les AU (If Range("A" & n) <> "" And Range("AG" & n) = "Y" Then)
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
Merci beaucoup de votre aide
Bonne soirée
A voir également:
- Enlver les Y et Au dans une colonne
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Figer une colonne excel - Guide
