Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 08/03/2010, 14h08   #1
Invité de passage
 
angelo thizy
Inscription : mars 2010
Messages : 8
Détails du profil
Informations personnelles :
Nom : angelo thizy

Informations forums :
Inscription : mars 2010
Messages : 8
Points : 1
Points : 1
Par défaut suppression cellules avec décalage

Bonjour a tous,

J'aimerai savoir comment en fonction d'une valeur dans une colonne, excel me supprime automatiquement certaines cellules tout en me décalant mes cellules vers le haut.

Si vous avez des idées.

Merci d'avance.

Cordialement

Dernière modification par Domi2 ; 08/03/2010 à 14h11. Motif: pièce jointe inutile à ce stade de la discussion
athizy est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/03/2010, 16h54   #2
Membre Expert
 
Avatar de Daranc
 
Inscription : janvier 2007
Messages : 1 015
Détails du profil
Informations forums :
Inscription : janvier 2007
Messages : 1 015
Points : 1 060
Points : 1 060
avec une macro événementielle
mais comme le dirait Cyrano: "C'est un peu court jeune homme!"
si il y avait un soupçon de précision en plus, ce serait pas mal
__________________
Cordialement
Daranc
Daranc est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/03/2010, 16h57   #3
Invité de passage
 
angelo thizy
Inscription : mars 2010
Messages : 8
Détails du profil
Informations personnelles :
Nom : angelo thizy

Informations forums :
Inscription : mars 2010
Messages : 8
Points : 1
Points : 1
Voici une solution qui convient.

Sub Macro1()
Range("A1").Select
DerLigne = Selection.End(xlDown).Row
For i = DerLigne To 2 Step -1
If Cells(i, 4).Value = "OUI" Then
Range("A" & i & "" & i).Select
Selection.Delete Shift:=xlUp
End If
Next

End Sub

Bonne continuation.
athizy est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 17h58.


 
 
 
 
Partenaires

Hébergement Web