Suppression cellules avec décalage

Résolu/Fermé
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010 - 8 mars 2010 à 14:10
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010 - 8 mars 2010 à 17:08
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.
Ci-joint mon fichier avec la condition de suppression : rendu "OUI"

http://www.cijoint.fr/cjlink.php?file=cj201003/cij2MST2zy.xls

Si vous avez des idées.
Merci d'avance.
Cordialement
A voir également:

12 réponses

piopicolo Messages postés 1395 Date d'inscription mercredi 21 mars 2007 Statut Membre Dernière intervention 31 juillet 2023 193
8 mars 2010 à 14:24
Perso, j'essayerais de faire une macro :
- faire un tri des lignes sur la colonne "rendu"
- puis chercher la première ligne "OUI"
- supprimer toute les lignes à partir du premier "OUI".

A+ 
0
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010
8 mars 2010 à 14:26
Je suis entrain de chercher la macro qui correspond le mieux, cependant je voudrais pouvoir supprimer que les cellules et non la ligne en entière.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 mars 2010 à 14:45
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
8 mars 2010 à 15:12
Salut michel_m,
Je me serais fait avoir comme un débutant??

En même temps ça ne doit pas être la première fois.
Bonne journée à toi
0
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010
8 mars 2010 à 14:48
Merci pour ta sage réponse michel_m.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010
8 mars 2010 à 15:20
Doucement les cocos.
Je suis tranquillement au boulot et ne connais pas se Geoda.

Autrement dis se n'est pas la ligne que je veux supprimer mais mes cellules et sans décalage. J'ai ce programme mais il me fait un décalage de mes cellules vers la gauche.
Comment l'éviter?

Sub EffAceLigne()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("D65536").End(xlUp).Row To 2 Step -1
If Cells(i, 4) = "OUI" Then Range("A" & i & ":" & "D" & i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Merci d'avance.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
8 mars 2010 à 15:22
Remplacer ".Delete" par .Clearcontents

ps : le "les cocos" était vraiment superflu! et avoue franchement que la similitude des sujets portait à confusion.
0
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010
8 mars 2010 à 15:33
Je ne dis pas le contraire, ce fut juste une question de hasard.
Merci pour le .Clearcontents la macro fonctionne correctement.
Bonne continuation a vous.
Cordialement.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 mars 2010 à 15:49
De toutes façons, il y a aussi la même question, et pas de veoda, des réponses sur DVP et XLD (et l'origine du OUI et Non sur XL-pratique )....
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
8 mars 2010 à 15:51
?? Je ne te comprends pas là : des réponses sur DVP et XLD??
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 mars 2010 à 15:55
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
8 mars 2010 à 15:59
oui pas faux. Je n'ai cependant pas une vision aussi large que toi, me contentant d'un forum...
Bonne continuation
0
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010
8 mars 2010 à 16:05
Bien entendu mon but étant de trouver une solution à mon fichier excel et par conséquent à ma base de donnée. je cherche des solutions sur le maximum de forums possible ayant d'autre objectifs à répondre lors de ma journée de travail et n'ai pas le temps de m'occuper des soucis de concurrence entre les forums que cela n'en déplaise à Michel_m.

Bonne continuation à vous.
0
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010
8 mars 2010 à 16:54
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 & ":D" & i).Select
Selection.Delete Shift:=xlUp
End If
Next

End Sub

Bonne continuation.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 mars 2010 à 16:59
Le principal, c'est que plusieurs bénévoles bossent pour toi par solidarité, pas vrai ?

ayant d'autre objectifs à répondre lors de ma journée de travail

hé bé, au moins, tu ne te prends pas au sérieux, tes collègues, pardon! tes subalternes, doivent se réjouir quotidiennement de te côtoyer
0
athizy Messages postés 21 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 19 mars 2010
8 mars 2010 à 17:08
Pauvre enfant.
A quoi sert un forum a ton avis? De plus la solution je l'ai trouvé avec un de mes collègues qui se réjouit de tes messages.
Aurais-je touché à ton intégrité ?
Un grand merci à toi pour ton aide et pour tes solutions pertinentes.
Au plaisir mich mich.
0