je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
currentCell.Delete
Set currentCell = nextCell
Loop
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
Ellimac
Bonjour,
currentCell.clearcontents n'efface que le contenu
Camille
-----Message d'origine----- Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
.
Bonjour,
currentCell.clearcontents
n'efface que le contenu
Camille
-----Message d'origine-----
Bonjour,
je recherche la commande VBA qui permet d'effacer le
contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur
1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
currentCell.Delete
Set currentCell = nextCell
Loop
je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
.
Marc
ca marche po :(
"Ellimac" wrote in message news:0a4101c3c3cf$7e540cf0$
Bonjour,
currentCell.clearcontents n'efface que le contenu
Camille
-----Message d'origine----- Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
.
ca marche po :(
"Ellimac" <anonymous@discussions.microsoft.com> wrote in message
news:0a4101c3c3cf$7e540cf0$a301280a@phx.gbl...
Bonjour,
currentCell.clearcontents
n'efface que le contenu
Camille
-----Message d'origine-----
Bonjour,
je recherche la commande VBA qui permet d'effacer le
contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur
1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
currentCell.Delete
Set currentCell = nextCell
Loop
"Ellimac" wrote in message news:0a4101c3c3cf$7e540cf0$
Bonjour,
currentCell.clearcontents n'efface que le contenu
Camille
-----Message d'origine----- Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
.
Ellimac
Re,
currentCell.select selection.clearcontents
Camille
-----Message d'origine----- ca marche po :(
"Ellimac" wrote in message
news:0a4101c3c3cf$7e540cf0$
Bonjour,
currentCell.clearcontents n'efface que le contenu
Camille
-----Message d'origine----- Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range ("B2")
Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
.
.
Re,
currentCell.select
selection.clearcontents
Camille
-----Message d'origine-----
ca marche po :(
"Ellimac" <anonymous@discussions.microsoft.com> wrote in
message
news:0a4101c3c3cf$7e540cf0$a301280a@phx.gbl...
Bonjour,
currentCell.clearcontents
n'efface que le contenu
Camille
-----Message d'origine-----
Bonjour,
je recherche la commande VBA qui permet d'effacer le
contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur
1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range
("B2")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
currentCell.Delete
Set currentCell = nextCell
Loop
je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range ("B2")
Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
.
.
michdenis
Bonjour Marc,
Pour conserver ta façon de faire :
Dim Rg As Range
Set currentcell = Feuil1.Range("a2") Do While Not IsEmpty(currentcell) Set nextCell = currentcell.Offset(1, 0) If Rg Is Nothing Then Set Rg = currentcell Else Set Rg = Union(Rg, currentcell) End If Set currentcell = nextCell Loop Rg.EntireRow.Delete
Salutations!
"Marc" <fun.x@#nospam#caramail.com> a écrit dans le message de news:3fdef6d1$0$1164$ Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
Bonjour Marc,
Pour conserver ta façon de faire :
Dim Rg As Range
Set currentcell = Feuil1.Range("a2")
Do While Not IsEmpty(currentcell)
Set nextCell = currentcell.Offset(1, 0)
If Rg Is Nothing Then
Set Rg = currentcell
Else
Set Rg = Union(Rg, currentcell)
End If
Set currentcell = nextCell
Loop
Rg.EntireRow.Delete
Salutations!
"Marc" <fun.x@#nospam#caramail.com> a écrit dans le message de news:3fdef6d1$0$1164$636a55ce@news.free.fr...
Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
currentCell.Delete
Set currentCell = nextCell
Loop
Set currentcell = Feuil1.Range("a2") Do While Not IsEmpty(currentcell) Set nextCell = currentcell.Offset(1, 0) If Rg Is Nothing Then Set Rg = currentcell Else Set Rg = Union(Rg, currentcell) End If Set currentcell = nextCell Loop Rg.EntireRow.Delete
Salutations!
"Marc" <fun.x@#nospam#caramail.com> a écrit dans le message de news:3fdef6d1$0$1164$ Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
Frédéric Sigonneau
Bonsoir,
As-tu essayé :
ActiveSheet.Range("B2").MergeArea.ClearContents
Ou, s'il ya plusieurs plages fusionnées dans une feuille :
Sub test() For Each cell In ActiveSheet.UsedRange cell.MergeArea.ClearContents Next cell End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop
Thx in advance,
Marc
Bonsoir,
As-tu essayé :
ActiveSheet.Range("B2").MergeArea.ClearContents
Ou, s'il ya plusieurs plages fusionnées dans une feuille :
Sub test()
For Each cell In ActiveSheet.UsedRange
cell.MergeArea.ClearContents
Next cell
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules
fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
currentCell.Delete
Set currentCell = nextCell
Loop
Ou, s'il ya plusieurs plages fusionnées dans une feuille :
Sub test() For Each cell In ActiveSheet.UsedRange cell.MergeArea.ClearContents Next cell End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
je recherche la commande VBA qui permet d'effacer le contenu de cellules fusionnees sans perdre la fusion.
en Effet avec la macro suivante j'obtiens une erreur 1004 :
Set currentCell = pXLApp.ActiveSheet.Cells.Range("B2") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) currentCell.Delete Set currentCell = nextCell Loop