Recherche d'une valeur dans Excel et suppression de la ligne [VBA]
Résolu
podzob56
Messages postés
32
Date d'inscription
mardi 27 novembre 2007
Statut
Membre
Dernière intervention
13 novembre 2017
-
19 mai 2008 à 13:02
podzob56 Messages postés 32 Date d'inscription mardi 27 novembre 2007 Statut Membre Dernière intervention 13 novembre 2017 - 19 mai 2008 à 13:22
podzob56 Messages postés 32 Date d'inscription mardi 27 novembre 2007 Statut Membre Dernière intervention 13 novembre 2017 - 19 mai 2008 à 13:22
A voir également:
- Recherche d'une valeur dans Excel et suppression de la ligne [VBA]
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Dernière ligne non vide vba - Forum VBA Office (Excel, Word ...)
- Vba récupérer valeur cellule d'une autre feuille ✓ - Forum Visual Basic
- Excel vba récupérer valeur cellule active ✓ - Forum VBA Office (Excel, Word ...)
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
2 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
19 mai 2008 à 13:19
19 mai 2008 à 13:19
salut,
pas testé car je n'arrive pas à reproduire une erreur de ton type (j'ai que du #Valeur!) mais je pense que ça devrait etre bon, :
Sub test()
Dim MyCell As Range, bError As Boolean
For Each MyCell In Range("A:A")
If Application.IsNA(MyCell) Then bError = True: Rows(MyCell.Row).Delete
Next MyCell
If Not bError Then MsgBox "Aucunes cellules n'ont eu d'erreurs"
End Sub
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
pas testé car je n'arrive pas à reproduire une erreur de ton type (j'ai que du #Valeur!) mais je pense que ça devrait etre bon, :
Sub test()
Dim MyCell As Range, bError As Boolean
For Each MyCell In Range("A:A")
If Application.IsNA(MyCell) Then bError = True: Rows(MyCell.Row).Delete
Next MyCell
If Not bError Then MsgBox "Aucunes cellules n'ont eu d'erreurs"
End Sub
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
podzob56
Messages postés
32
Date d'inscription
mardi 27 novembre 2007
Statut
Membre
Dernière intervention
13 novembre 2017
19 mai 2008 à 13:22
19 mai 2008 à 13:22
super ça fonctionne !
merci
merci