Supprimer une liste de noms
sylla.junior2
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 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
2 réponses
-
Bonjour,
Vous avez un code VBA Excel et vous parlez d'un code Acces. C'est l'un ou l'autre. -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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:If Worksheets("moyennes_annelles").Range("Q" & i).Value <= 8.5 Then Worksheets("moyennes_annelles").Rows(i).Delete end if
