Supprimer ligne sous condition [Résolu]
maggg
- Messages postés
- 7
- Date d'inscription
- jeudi 1 mai 2008
- Dernière intervention
- 23 mai 2008
- Messages postés
- 7
- Date d'inscription
- jeudi 1 mai 2008
- Dernière intervention
- 23 mai 2008
A voir également:
- Supprimer ligne sous condition
- Supprimer ligne avec condition ✓ - Forum - Visual Basic 6
- Copier/coller ligne sous condition dans excel - Codes sources - Visual Basic / VB.NET (VBA)
- Supprimer lignes vides fichier texte - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Txt supprimer lignes doublons (win32) - Codes sources - C / C++ / C++.NET (Fichiers / Disque)
- Supprimer ligne sélectionné sur ACCESS ✓ - Forum - VBA Office (Excel, Word ...)
5 réponses
Meilleure réponse
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Dernière intervention
- 21 décembre 2011
arf, suis allé trop vite :
<strike>If Plage.Cells(J).Value <> "1115" Then rows(J).Delete</strike>
If range("AI" & J).Value <> "1115" Then rows(J).Delete
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
<strike>If Plage.Cells(J).Value <> "1115" Then rows(J).Delete</strike>
If range("AI" & J).Value <> "1115" Then rows(J).Delete
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
89 internautes nous ont dit merci ce mois-ci
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Dernière intervention
- 21 décembre 2011
ok, au cas où, avec mon code, ça aurait donné ca (une seule modif) :
Dim J As Long
Dim DerLigne As long
DerLigne = range("AI65536").End(xlup).row
For J = DerLigne To 4 Step -1
If range("AI" & J).Value <> "1115" Then rows(J).Delete
next J
DerLigne contient le numéro de la dernière ligne utilisé de la colonne AI
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Dim J As Long
Dim DerLigne As long
DerLigne = range("AI65536").End(xlup).row
For J = DerLigne To 4 Step -1
If range("AI" & J).Value <> "1115" Then rows(J).Delete
next J
DerLigne contient le numéro de la dernière ligne utilisé de la colonne AI
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
89 internautes nous ont dit merci ce mois-ci
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Dernière intervention
- 21 décembre 2011
Dim J As Long
Dim DerLigne As long
DerLigne = range("AI65536").End(xlup).row
For J = DerLigne To 1 Step -1
If Plage.Cells(J).Value <> "1115" Then rows(J).Delete
next J
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Dim DerLigne As long
DerLigne = range("AI65536").End(xlup).row
For J = DerLigne To 1 Step -1
If Plage.Cells(J).Value <> "1115" Then rows(J).Delete
next J
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Merci Mortalino,
En appliquant ta proposition, j'ai rencontré un petit souci parce que les 4 premières lignes du fichier sont des lignes titres qui ne doivent pas disparaître.
Et donc les cellules AI1, AI2, AI3 et AI4 ne contenant rien disparaissent également.
C'est pour cela qu'en mentionnant "Set Plage = Range ("AI5", range("AI65536").End(xlup))", je protégeais mes 4 premières lignes.
Donc en attendant, et n'ayant jamais travaillé avec DerLigne, pour avoir un résultat, j'ai adapté comme ceci :
Dim J As Long
Dim Plage As Range
Set Plage = Range("AI5", Range("AI65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
If Plage.Cells(J).Value <> "1115" Then
Plage.Cells(J).EntireRow.Delete
End If
Cela fonctionne parfaitement.
Merci pour ton aide
maggg
En appliquant ta proposition, j'ai rencontré un petit souci parce que les 4 premières lignes du fichier sont des lignes titres qui ne doivent pas disparaître.
Et donc les cellules AI1, AI2, AI3 et AI4 ne contenant rien disparaissent également.
C'est pour cela qu'en mentionnant "Set Plage = Range ("AI5", range("AI65536").End(xlup))", je protégeais mes 4 premières lignes.
Donc en attendant, et n'ayant jamais travaillé avec DerLigne, pour avoir un résultat, j'ai adapté comme ceci :
Dim J As Long
Dim Plage As Range
Set Plage = Range("AI5", Range("AI65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
If Plage.Cells(J).Value <> "1115" Then
Plage.Cells(J).EntireRow.Delete
End If
Cela fonctionne parfaitement.
Merci pour ton aide
maggg
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.