Condition valeur min pour affiner tableau
Fermé
Guillaume
-
29 déc. 2020 à 11:41
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 29 déc. 2020 à 15:46
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 29 déc. 2020 à 15:46
A voir également:
- Condition valeur min pour affiner tableau
- Tableau croisé dynamique - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Tableau ascii - Guide
- Excel compter valeur unique avec condition - Forum Excel
- Excel condition couleur - Guide
3 réponses
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
29 déc. 2020 à 12:00
29 déc. 2020 à 12:00
bonjour,
tu dois plutôt faire une boucle de la dernière ligne du tableau jusqu'à la première ligne, et, pour chaque ligne, faire le test, et, le cas échéant, le delete.
tu dois plutôt faire une boucle de la dernière ligne du tableau jusqu'à la première ligne, et, pour chaque ligne, faire le test, et, le cas échéant, le delete.
Bonjour,
Merci pour tes conseils,
Voici mon code :
Je n'ai pas d'erreur, mais je n'ai pas de résultats sur mon onglet "test". Je ne vois pas trop ou est mon erreur..
Merci pour tes conseils,
Voici mon code :
Sub azeaz()
Dim onglet1 As Worksheet
Dim derniereLigne As Long
Dim Ligne_en_cours As Long
Dim ValeurMin As String
Dim Cel As Range
Set onglet1 = Worksheets("test")
ValeurMin = InputBox("Indiquez une valeur minimale ? Valeur Min", "ValeurMin")
derniereLigne = onglet1.Cells(Rows.Count, 1).End(xlUp).Row
For Ligne_en_cours = 1 To derniereLigne
For Each Cel In Range("A1:A100")
If Cel.Value <= ValeurMin Then
Selection.EntireRow.Delete 'Je ne suis pas du tout certain de cette ligne pour ce que je cherche à faire.
End If
Next Cel
Next
End Sub
Je n'ai pas d'erreur, mais je n'ai pas de résultats sur mon onglet "test". Je ne vois pas trop ou est mon erreur..
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
29 déc. 2020 à 14:50
29 déc. 2020 à 14:50
je 'ai pas testé, et je vois des erreurs:
- tu fais la boucle de la première à la dernière ligne, et pas de la dernière ligne jusqu'à la première ligne
- il est inutile de faire deux boucles imbriquées
- il ne faut pas utiliser
- tu fais la boucle de la première à la dernière ligne, et pas de la dernière ligne jusqu'à la première ligne
- il est inutile de faire deux boucles imbriquées
- il ne faut pas utiliser
Selection, d'autant moins que tu ne sélectionnes rien.
Pourrais tu m'aiguiller pour la partie suppression des lignes, s'il te plait ?
Je suis un peu perdu et loin d'être un expert en vba :/
Je suis un peu perdu et loin d'être un expert en vba :/
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
29 déc. 2020 à 15:46
29 déc. 2020 à 15:46
je testerais ceci:
For Ligne_en_cours = derniereLigne to 1 step -1
If onglet1.cells(Ligne_en_cours,1) <= ValeurMin Then
onglet1.rows(Ligne_en_cours).Delete
end if
Next Ligne_en_cours