Effacé contenu ciblé dans des cellules

Marsh Posté le 13-12-2013 à 11:12:29

Bonjour,

J'aimerais effacé toutes les ligne ou il y a marqué " -1 " dans la colonne B dans mon classeur, j'ai essaye plusieurs codage mais j'ai jamais réussie.

Si quelqu'un aurait une solution...

Bonne journée et merci d'avance

Message édité par micka671 le 13-12-2013 à 11:26:12

---------------
Cordialement

Reply

Marsh Posté le 13-12-2013 à 11:12:29

Reply

Marsh Posté le 13-12-2013 à 11:42:09

Question préliminaire, as-tu réellement besoin d'effacer complètement ces lignes? Parce que l'utilisation d'un filtre permet de faire cela, mais les données ne sont pas perdues.

Reply

Marsh Posté le 13-12-2013 à 12:48:20

Oui oui les effacer complétement

Reply

Marsh Posté le 13-12-2013 à 13:25:44

Code :

Sub supprLignes()
Dim i As Long
For i = 1 To Range("B1" ).End(xlUp).Row Step 1
If Cells(i, 2).Value = -1 Then
Rows(i).Delete
i = i - 1
End If
Next i
End Sub

Reply

Marsh Posté le 13-12-2013 à 14:06:28

Merci beaucoup, mais la pour l'instant ca ne m'efface que dans la cellule B1;

Reply

Marsh Posté le 13-12-2013 à 14:16:05

Oups, trompé de sens :

Code :

Sub supprLignes()
Dim i As Long
For i = 1 To Range("B1" ).End(xlDown).Row Step 1
If Cells(i, 2).Value = -1 Then
Rows(i).Delete
i = i - 1
End If
Next i
End Sub

Message édité par MaybeEijOrNot le 13-12-2013 à 14:16:22

Reply

Marsh Posté le 13-12-2013 à 14:44:06

Niquel merci beaucoup

Et si je veux effacé et pas supprimé les ligne y a quoi a changer ? ( oui je suis chiant.. )

Reply

Marsh Posté le 13-12-2013 à 15:55:52

Tu remplaces :

Code :

Rows(i).Delete

par :

Code :

For j = 1 To Cells(i,1).End(xlRight).Column Step 1
Cells(i,j).value = ""
Next j

Ne pas oublier de déclarer j :

Code :

Dim j As Long

Reply

Marsh Posté le 13-12-2013 à 15:57:25

Niquel Merci beaucoup

Bonne soirée et bonne fête

Reply

Marsh Posté le 13-12-2013 à 16:06:07

Ce n'est pas ma fête aujourd'hui. :non:

J'ai certes compris ce que tu voulais dire mais comme on est dans la partie programmation, il faut se rendre compte qu'une bête faute comme celle là ne pardonne pas.

Reply

Effacé contenu ciblé dans des cellules

Sujets relatifs:

Leave a Replay