Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Suppression de Cellule et Undo

Suppression de Cellule et Undo

10 réponses
Avatar
Albator V
bonjour,

j'ai cree une macro qui insert une cellule en decalant=20
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=3DxlToRight
Application.OnUndo "Supprimer la cellule (d=E9caler=20
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=3DxlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la=20
suppression d'une cellule (ou plusieurs) avec une=20
commande undo. le probleme au niveau du undo, c'est la=20
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=3DxlToLeft
Application.OnUndo "Remettre les cellules (d=E9caler=20
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=3DxlToRight
End Sub

avec le undo, il insert une cellule et decale les autres=20
vers la droite mais comment faire pour qu'il memorise le=20
contenu des cellules supprim=E9es (comme en passant=20
par "inserer.../cellules vers la droite" et ensuite le=20
ctrl+Z) ???

Merci d'avance pour vos lumieres...
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Joël GARBE
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler immédiatement après ? ou
inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a écrit dans le message de
news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les autres
vers la droite mais comment faire pour qu'il memorise le
contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...
Avatar
Xav
Bonjour Albator V

avant de supprimer les cellules, copie leur contenu dans une autre feuille.

Fais une macro Undo qui reviendra insérer des cellules et recopier le
contenu que tu as copié précedemment

--
Cordialement

@+
Xav
"Albator V" a écrit dans le message de
news:365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les autres
vers la droite mais comment faire pour qu'il memorise le
contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...
Avatar
Albator V
Ben...
toutes les manip que tu fais dans toutes (ou presque) les
applications windows ont la possibilite de revenir en
arriere non ??

en fait je cree cette macro que je vais diffuser... et en
cas derreur de manip il est toujours bon de pouvior
revenir en arriere...
-----Message d'origine-----
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler immédiatement
après ? ou

inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a
écrit dans le message de

news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les autres
vers la droite mais comment faire pour qu'il memorise le
contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...


.



Avatar
Albator V
j'y ai pense mais... quand on fait une copie, la
selection est entouree par un cadre clignotant... ya til
possibilite de l'enlever ?

-----Message d'origine-----
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler immédiatement
après ? ou

inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a
écrit dans le message de

news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les autres
vers la droite mais comment faire pour qu'il memorise le
contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...


.



Avatar
isabelle
bonjour Albator,

'Cette méthode n'annule que la dernière opération commandée
'par l'utilisateur avant l'exécution de la macro

Sub Macro1()
Application.Undo
End Sub

isabelle


Ben...
toutes les manip que tu fais dans toutes (ou presque) les
applications windows ont la possibilite de revenir en
arriere non ??

en fait je cree cette macro que je vais diffuser... et en
cas derreur de manip il est toujours bon de pouvior
revenir en arriere...
-----Message d'origine-----
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler immédiatement
après ? ou

inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a
écrit dans le message de

news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les autres
vers la droite mais comment faire pour qu'il memorise le
contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...


.





Avatar
isabelle
oui,
Application.CutCopyMode = False

isabelle


j'y ai pense mais... quand on fait une copie, la
selection est entouree par un cadre clignotant... ya til
possibilite de l'enlever ?

-----Message d'origine-----
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler immédiatement
après ? ou

inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a
écrit dans le message de

news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les autres
vers la droite mais comment faire pour qu'il memorise le
contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...


.





Avatar
Albator V
oui mais dans mon cas, c'est la macro qui fait la
modification, donc pas pris en compte par excel

-----Message d'origine-----
bonjour Albator,

'Cette méthode n'annule que la dernière opération
commandée

'par l'utilisateur avant l'exécution de la macro

Sub Macro1()
Application.Undo
End Sub

isabelle


Ben...
toutes les manip que tu fais dans toutes (ou presque)
les


applications windows ont la possibilite de revenir en
arriere non ??

en fait je cree cette macro que je vais diffuser... et
en


cas derreur de manip il est toujours bon de pouvior
revenir en arriere...
-----Message d'origine-----
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler
immédiatement



après ? ou
inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a
écrit dans le message de

news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les
autres



vers la droite mais comment faire pour qu'il memorise
le



contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...


.

.







Avatar
Albator V
il y a toujours le cadre !!!

-----Message d'origine-----
oui,
Application.CutCopyMode = False

isabelle


j'y ai pense mais... quand on fait une copie, la
selection est entouree par un cadre clignotant... ya
til


possibilite de l'enlever ?

-----Message d'origine-----
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler
immédiatement



après ? ou
inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a
écrit dans le message de

news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les
autres



vers la droite mais comment faire pour qu'il memorise
le



contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...


.

.







Avatar
Albator V
ok c'est bon, je ne savais pas qu'il fallait le mettre a
la fin de la macro (je l'avais mis au debut...
-----Message d'origine-----
il y a toujours le cadre !!!

-----Message d'origine-----
oui,
Application.CutCopyMode = False

isabelle


j'y ai pense mais... quand on fait une copie, la
selection est entouree par un cadre clignotant... ya
til


possibilite de l'enlever ?

-----Message d'origine-----
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler
immédiatement



après ? ou
inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a
écrit dans le message de

news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en
decalant




les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire,
la




suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est
la




memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules
(décaler




vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les
autres



vers la droite mais comment faire pour qu'il
memorise




le
contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite
le




ctrl+Z) ???

Merci d'avance pour vos lumieres...


.

.



.







Avatar
isabelle
il faut le placer après avoir copier,

Sub Macro1()
Range("A1").Copy
Application.CutCopyMode = False
End Sub

isabelle


il y a toujours le cadre !!!

-----Message d'origine-----
oui,
Application.CutCopyMode = False

isabelle


j'y ai pense mais... quand on fait une copie, la
selection est entouree par un cadre clignotant... ya
til


possibilite de l'enlever ?

-----Message d'origine-----
Bonjour, Albator V !

J'ai du rté kekchoz !!!

quel est le but de supprimer pour annuler
immédiatement



après ? ou
inversement ??
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Albator V" a
écrit dans le message de

news: 365d01c4c24c$8a826180$
bonjour,

j'ai cree une macro qui insert une cellule en decalant
les autres vers la droite avec un undo.

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
Application.OnUndo "Supprimer la cellule (décaler
vers la gauche)", "SuppCellGauche"
End Sub

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
End Sub

j'aimerai cree une procedure inverse, c'est a dire, la
suppression d'une cellule (ou plusieurs) avec une
commande undo. le probleme au niveau du undo, c'est la
memoirisation du contenu des cellules...

Sub SuppCellGauche()
Selection.Delete Shift:=xlToLeft
Application.OnUndo "Remettre les cellules (décaler
vers la droite)", "InsertCellDroite"
End Sub

Sub InsertCellDroite()
Selection.Insert Shift:=xlToRight
End Sub

avec le undo, il insert une cellule et decale les
autres



vers la droite mais comment faire pour qu'il memorise
le



contenu des cellules supprimées (comme en passant
par "inserer.../cellules vers la droite" et ensuite le
ctrl+Z) ???

Merci d'avance pour vos lumieres...


.

.