Décaler le haut sans supprimer ligne entière

[anber]

Bonjour le forum,

Je recherche un code de façon à décaler vers le haut un ensemble de cellules suivant critères, mais sans supprimer la ligne entière

Merci [file name=Testsup.zip size=9470]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Testsup.zip[/file]

 

[porcinet82]

Salut Anber,

Je viens de jeter un oeil a ton fichier et je ne comprend pas tres bien ce que tu souhaites.
Tu dis que tu veux supprimer dans ton exemple l'ensemble de A10 à L10, jusque la ok, mais c'est cette phrase qui m'interpelle :

Comment décaler vers le haut sans supprimer la ligne

Peux-tu donner d'autres explications, tu veux faire quoi au juste, supprimer seulement le contenu et garder la ligne vide?

@+

 

[Mytå]

Salut Anber, Porcinet82 et le Forum

Première approche du style :

Sub Supprimer()

Dim Ligne As Integer

With Sheets('feuil1')
Boucle:
For Ligne = .UsedRange.Rows.Count To 1 Step -1
If Left(Cells(Ligne, 5), 1) = 'H' _
Or Left(Cells(Ligne, 5), 1) = 'L' _
Or Left(Cells(Ligne, 5), 1) = 'T' _
Or Cells(Ligne, 5) = '' Then
.Range(Cells(Ligne, 1), Cells(Ligne, 12)).Delete
GoTo Boucle
End If
Next Ligne
End With

End Sub


Myta

 

[Mytå]

Message édité par: Mytå, à: 07/03/2006 16:02

 

[anber]

Bonsoir Porcinet82, le Forum

Merci Porcinet82 pour ton code,

Pour plus d'explication :

Je souhaite supprimer les cellules Ax:Lx dont la cellule Ex corespond aux critères de suppression,
mais je ne veux pas supprimer la ligne entière je veux décaler vers le haut après suppresion de l'ensemble Ax:Lx. Car à la droite de tous cela j'ai d'autres infos et lorsque je supprime les lignes je supprime aussi ces infos.
J'espère avoir été un peu plus clair

Encore merci

Cordialement

 

[Mytå]

Re le forum,

Ander c'est ce que fait mon code.

Myta

 

[anber]

Bonjour Myta, le Forum

De nouveau mais avec le fichier....

Merci Myta pour ta réponse, je joins à nouveau le fichier avec ton code.
Effectivement ton code fait une partie de ce que je souhaite, mais ce sont toutes les lignes que tu
supprimes et décalent vers le haut, toutes les informations de droite (ici le texte de ce que je
souhaite sont détruites)
J'ai mis un peu plus de détails dans le fichier.

Merci

Cordialement [file name=Testsup_20060308071744.zip size=9170]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Testsup_20060308071744.zip[/file]

 

[porcinet82]

Salut Anber, Myta,

Voici un code qui fait ce que tu veux :

Sub Supprimer()
Dim i As Integer

Application.Goto Sheets('feuil1').Range('A1')
For i = Range('a65536').End(xlUp).Row To 1 Step -1
If Left(Cells(i, 5), 1) = 'H' Or Left(Cells(i, 5), 1) = 'L' Or Left(Cells(i, 5), 1) = 'T' Or Cells(i, 5) = '' Then
    Range('A' & i & ':L' & i).Delete Shift:=xlUp
End If
Next i
End Sub

@+

 

[anber]

Bonsoir porcinet82, le forum


Merci pour ton code

Tout fonctionne

Cordialement