éliminer lignes excel quand cellules avec contenu xRésolu

Question

Bonjour, 
Je suis débutant dans l'utilisation de macro pour excel. 
J'ai 2.3 problèmes à vous exposer : 
Dans mon fichier excel qui va de j27 --> n27 avec longueur variante de 27 à xxx (où x = maximum 100) j'aimerais tout d'abord supprimer (seulement dans cette région j à n de 27 à xxx) toutes les lignes dans lesquels la cellule n = "Ouverture". 
Merci beaucup

rackamlerouge · Answer

Voici quelques indications pour trouver les instructions plus facilement. Ensuite l'aide d'excel complétera mes explications...
1)
Pour effacer le contenu d'un ensemble de cellule en ligne :
            Worksheets(nomfeuil).Rows(i).ClearContents

nomfeuil = nom de la feuille, stocké dans la variable nomfeuil
i = index de la ligne à effacer (on peut mettre aussi un truc du style "3:5" = ligne de 3 à 5.)
2)
Pour sélectionner un ensemble de cellule :
Worksheets(nom_feuille).Range(cellule_depart & ":IV" & numéro_ligne_fin)

cellule_depart="C3", par exemple
 numéro_ligne_fin=6, par exemple.
3)
Pour supprimer un ensemble de cellules ou ligne de cellules :
    ' Suppression des lignes en trop
    Rows("2:" & ligne_fin).Delete Shift:=xlUp

Si on travaille sur des colonnes l'instruction est "columns...", pour des cellules "cells..."
L'option shift, indique la direction de suppression, donc on doit remonter les cellules en dessous, ou les faire venir les cellules placées à droite ou à gauche.

Sinon pour ton commentaire "toutes les lignes dans lesquels la cellule n = "Ouverture". " devrait donner un truc du genre

If Range("A5").value="Ouverture" then
...
endif

ou 

If Cells(1,5).value="Ouverture" then
...
endif

Voilà j'espère que çà t'aidera. Mais on ne peut pas faire la macro à ta place sinon !

jordane45 · Answer

Bonsoir,

Déjà, pensez à utiliser la coloration syntaxique lorsque vous postez du code (valable pour vous deux !! )

Ensuite, pour une demande aussi 'simple' il suffit bien souvent d'utiliser l'enregistreur de macro pour découvrir comment faire.

Et puis comme le souligne rackamlerouge, il existe une Aide sous Excel qui contient bon nombre de réponses.


Enfin bon... pour cette fois, je vous donne la solution toute faite..

Sub suppr()
'on boucle depuis le bas vers le haut
For l = 100 To 27 Step -1
    If Range("n" & l).Value = "Ouverture" Then
        Range("J" & l & ":N" & l).Select
        Selection.Delete Shift:=xlUp
    End If
Next
End Sub

Cordialement,
Jordane

éliminer lignes excel quand cellules avec contenu x

2 réponses

Votre réponse

Discussions similaires