Supprimer une liste de noms
sylla.junior2
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai une classe d'eleves de 6ème j'ai pu faire un petit petit programme avec acces qui comprend matricule_eleve , nom_eleve, moyennes_annuelles je voudrais à partir d'un code vba ou autres methodes supprimer automatiquement tous les lignes des eleves dont la moyenne annuelle ≤ 8.50.
j'ai essaye ça :
Sub suprimer()
Dim i As Integer
For i = 350 To 2 Step -1
If Worksheets("moyennes_annelles").Range("Q" & i).Value <= 8.5 Then Rows(i).Delete
Next i
End Sub
mais ça marche pas à merci à tous
j'ai une classe d'eleves de 6ème j'ai pu faire un petit petit programme avec acces qui comprend matricule_eleve , nom_eleve, moyennes_annuelles je voudrais à partir d'un code vba ou autres methodes supprimer automatiquement tous les lignes des eleves dont la moyenne annuelle ≤ 8.50.
j'ai essaye ça :
Sub suprimer()
Dim i As Integer
For i = 350 To 2 Step -1
If Worksheets("moyennes_annelles").Range("Q" & i).Value <= 8.5 Then Rows(i).Delete
Next i
End Sub
mais ça marche pas à merci à tous
A voir également:
- Supprimer une liste de noms
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Supprimer une page word - Guide
- Impossible de supprimer un fichier - Guide
- Comment supprimer une application préinstallée sur android - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, peux-tu utiliser les balises de code? https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
"ça marche pas": que se passe-t'il?
il est préférable de préciser dans quelle feuille doit se faire le delete:
"ça marche pas": que se passe-t'il?
il est préférable de préciser dans quelle feuille doit se faire le delete:
If Worksheets("moyennes_annelles").Range("Q" & i).Value <= 8.5 Then
Worksheets("moyennes_annelles").Rows(i).Delete
end if