Aide sur une macro

[bbanor]

Bonjour le forum

Je cherche un code pour une macro qui supprimerait les lignes dans une matrice. Ces lignes seraient signalées par des croix dans la colonne C. Je vous envoie un petit fichier qui sera plus explicite que ce post.

Merci pour votre aide

 

[roro69]

Re : Aide sur une macro

Bonsoir
Essaye ceci
Bonne soirée

 

[bbanor]

Re : Aide sur une macro

Salut

Merci pour la réponse rapide. Au fait ce serait le contraire que je cherche cad garder les lignes contenant les croix et supprimer les lignes qui ne comportent pas de croix

 

[roro69]

Re : Aide sur une macro

RE
Enlève simplement le x dans le module ou colle le code là dans ton module

Sub supprligne()
For ligne = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(ligne, 3) = "" Then Rows(ligne).Delete shift:=xlUp 'Ici 3 est la deuxième colonne donc C
Next ligne
End Sub

Bonne soirée

 

[bbanor]

Re : Aide sur une macro

S'il te plaît pourrais tu m'expliquer cette partie du code :
Sub supprligne()
For ligne = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
Je ne saisi pas ce qu'elle veut dire.

Merci encore

 

[roro69]

Re : Aide sur une macro

RE;
Pour la ligne de code elle permet de selectionner une zone jusqu'à la dernière écriture.
Bonne soirée

 

[bbanor]

Re : Aide sur une macro

Mais pourquoi : ActiveSheet.UsedRange.Row To 1 Step -1?

Merci

 

[roro69]

Re : Aide sur une macro

Re Voici pour plus d'info:
For ligne = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row
'détermine le numéro de la dernière ligne utilisée

To 1 Step -1
'Pour toutes les lignes en partant de la dernière

A++ Et Bonne soirée à toi

 

[bbanor]

Re : Aide sur une macro

MERCI c'est plus clair maintenant

Bonne soirée