Suppression de lignes dependant d'un caractère
Résolu/Fermé
A voir également:
- Suppression de lignes dependant d'un caractère
- Caractère ascii - Guide
- Forcer la suppression d'un fichier - Guide
- Caractere speciaux - Guide
- Caractère spéciaux - Guide
- Caractère spéciaux mac clavier - Guide
5 réponses
jordane45
Messages postés
38138
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 avril 2024
4 649
24 août 2016 à 11:43
24 août 2016 à 11:43
Bonjour,
Voici un exemple :
Voici un exemple :
Sub test()
Dim car As String 'caractere à detecter
car = "N"
'On boucle en partant de la fin
For l = 100 To 1 Step -1
'on regarde le premier caractere en partant de la gauche
If Left(Cells(l, 1).Value, 1) = car Then
'suppression de la ligne
Rows(l).Delete
End If
Next
End Sub
Merci a vous jordane de me repondre.
bon en fait il faut descendre ligne par ligne si la chaine de caractere en premier lieu n'est pas "N" il supprime toute cette ligne qui part completement comme ( crtl + moins). La boucle continue jusqu' a ce que quand on a "N" on sort et la boucle sarrete.merci
bon en fait il faut descendre ligne par ligne si la chaine de caractere en premier lieu n'est pas "N" il supprime toute cette ligne qui part completement comme ( crtl + moins). La boucle continue jusqu' a ce que quand on a "N" on sort et la boucle sarrete.merci
Utilisateur anonyme
Modifié par pijaku le 25/08/2016 à 09:20
Modifié par pijaku le 25/08/2016 à 09:20
Bonjour,
comme Jordane45, j'avais compris "à l'envers"
Voici le code que tu recherches (si cette fois j'ai bien pigé) :
Code à mettre sur un bouton par exemple, mais dans la feuille active
Quand Jimmy dit What'd I say
I love you baby
C'est comme qui dirait
Toute la province qui chante en anglais
comme Jordane45, j'avais compris "à l'envers"
Voici le code que tu recherches (si cette fois j'ai bien pigé) :
Code à mettre sur un bouton par exemple, mais dans la feuille active
Dim car As String 'caractere à detecter
car = "N"
'On boucle
For l = 1 To 100000
'on regarde le premier caractere en partant de la gauche
If Left(Cells(l, 1).Value, 1) = car Then
Exit Sub ' on a trouvé le caractère, on sort
Else
'suppression de la ligne
Rows(l).Delete
'astuce pour revenir, après suppression, sur la nouvelle ligne en cours :
l = l - 1
End If
Next
Quand Jimmy dit What'd I say
I love you baby
C'est comme qui dirait
Toute la province qui chante en anglais
Utilisateur anonyme
Modifié par HDU le 25/08/2016 à 02:26
Modifié par HDU le 25/08/2016 à 02:26
Si tu veux automatiser cela mieux,
tu peux saisir un caractère, et aussi, le transformer en MAJUSCULES, car là, si dans le code tu modifies "N" en "n", cela ne marchera pas. Même chose si ce que tu veux se trouves ailleurs que dans la colonne 'A"...
A toi de nous dire...
A+
Quand Jimmy dit What'd I say
I love you baby
C'est comme qui dirait
Toute la province qui chante en anglais
tu peux saisir un caractère, et aussi, le transformer en MAJUSCULES, car là, si dans le code tu modifies "N" en "n", cela ne marchera pas. Même chose si ce que tu veux se trouves ailleurs que dans la colonne 'A"...
A toi de nous dire...
A+
Quand Jimmy dit What'd I say
I love you baby
C'est comme qui dirait
Toute la province qui chante en anglais
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
