Suppression cellules avec décalage
Résolu
athizy
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
-
athizy Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
athizy Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Suppression cellules avec décalage
- Forcer suppression fichier - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Suppression compte gmail - Guide
- Concatener deux cellules excel - Guide
12 réponses
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+
- 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+
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.
Bonjour,
Vous êtes dans la m^me classe ?
https://forums.commentcamarche.net/forum/affich-16923075-excel-macro-supprimer-ligne-si-c-non-q
Vous êtes dans la m^me classe ?
https://forums.commentcamarche.net/forum/affich-16923075-excel-macro-supprimer-ligne-si-c-non-q
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
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.
Merci pour le .Clearcontents la macro fonctionne correctement.
Bonne continuation a vous.
Cordialement.
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 )....
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.
Bonne continuation à vous.
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.
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.
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
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
