suppression cellules avec décalage Résolu/Fermé

Question

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

piopicolo · Answer

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+

athizy · Answer

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.

michel_m · Answer

Bonjour,

Vous êtes dans la m^me classe ?
https://forums.commentcamarche.net/forum/affich-16923075-excel-macro-supprimer-ligne-si-c-non-q

athizy · Answer

Merci pour ta sage réponse michel_m.

athizy · Answer

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.

athizy · Answer

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.

michel_m · Answer

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 )....

michel_m · Answer

https://www.excel-downloads.com/threads/suppression-cellules-avec-decalage.137884/
https://www.developpez.net/forums/d888350/logiciels/microsoft-office/excel/suppression-cellules-decalage/

athizy · Answer

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.

athizy · Answer

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.

michel_m · Answer

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

athizy · Answer

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.

Suppression cellules avec décalage

12 réponses

Discussions similaires