[vba] suppr des cell en fct du contenu d'1cel

Question

Bonjour,
dans mon classeur Excel j'ai deux colonnes (de M9 a N39) à reorganiser en fonction du 
contenu de la premiere (M9:M39).
la premiere donne des nombres >0 et des nombres=0, la seconde donne des dates (N9:N39).
j'aimerai supprimer les lignes pour lesquelles j'ai nb=0 et la cellule à sa droite et faire en sorte qu'il n'y ait pas de blanc entre les lignes dans les deux colonnes.

ex:

la boucle supprime M10 et N10 parceque M10.value=0
et remonte les lignes valides suivantes en 10.

Merci mille fois!

Ivan-hoe · Answer

Bonjour, 
pour la boucle, tu peux utiliser For Each ...Next
pour tester si ta valeur en M est égale à 0, tu peux utiliser If ... Then .... End If
Exemple : 
Dim Cellule As Range
Range("M9:M39").Select
For Each Cellule In Selection
    If Cellule.Value = 0 Then
        'instructions
        '
    End If
Next Cellule
Pour compléter avec l'instruction pour supprimer la ligne, il te suffit de lancer l'enregistrement automatique de macros, de faire la suppression manuellement et de récupérer le code correspondant pour l'intégrer dans ta boucle.
Si tu fais bien Suppression/Décaler les cellules vers le haut, tu n'auras pas de blanc entre les lignes. 
I.

[vba] suppr des cell en fct du contenu d'1cel

1 réponse

Discussions similaires

Newsletters