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
anomymousA
bonjour,
Dans l'exemple suivant on déplace la cellule B8 en A8. Le on error resume next est là pour gerer le fait qu'on ne peut pas déplacer une cellule plus à gauche que la colonne A
sub deplacer Dim rg As Range
on error resume next Set rg = Cells(8, 2) rg.Cut rg.Offset(0, -1) end sub
A+
Comment puis-je déplacer latéralement sur la gauche les données d'une cellule dans une cellule adjacente qui est vide ?
bonjour,
Dans l'exemple suivant on déplace la cellule B8 en A8.
Le on error resume next est là pour gerer le fait qu'on ne peut pas déplacer
une cellule plus à gauche que la colonne A
sub deplacer
Dim rg As Range
on error resume next
Set rg = Cells(8, 2)
rg.Cut rg.Offset(0, -1)
end sub
A+
Comment puis-je déplacer latéralement sur la gauche les données d'une cellule
dans une cellule adjacente qui est vide ?
Dans l'exemple suivant on déplace la cellule B8 en A8. Le on error resume next est là pour gerer le fait qu'on ne peut pas déplacer une cellule plus à gauche que la colonne A
sub deplacer Dim rg As Range
on error resume next Set rg = Cells(8, 2) rg.Cut rg.Offset(0, -1) end sub
A+
Comment puis-je déplacer latéralement sur la gauche les données d'une cellule dans une cellule adjacente qui est vide ?
anomymousA
re,
si on veut tester la vacuité de la cellule adjacente avant le déplacement pour ne l'autoriser que si cette cellule est vide, on peut adapter le code comme suit
sub deplacer Dim rg As Range
on error resume next Set rg = Cells(8, 2) if not isempty(rg.offset(0,-1) then rg.Cut rg.Offset(0, -1) end sub
A+
bonjour,
Dans l'exemple suivant on déplace la cellule B8 en A8. Le on error resume next est là pour gerer le fait qu'on ne peut pas déplacer une cellule plus à gauche que la colonne A
sub deplacer Dim rg As Range
on error resume next Set rg = Cells(8, 2) rg.Cut rg.Offset(0, -1) end sub
A+
Comment puis-je déplacer latéralement sur la gauche les données d'une cellule dans une cellule adjacente qui est vide ?
re,
si on veut tester la vacuité de la cellule adjacente avant le déplacement
pour ne l'autoriser que si cette cellule est vide, on peut adapter le code
comme suit
sub deplacer
Dim rg As Range
on error resume next
Set rg = Cells(8, 2)
if not isempty(rg.offset(0,-1) then rg.Cut rg.Offset(0, -1)
end sub
A+
bonjour,
Dans l'exemple suivant on déplace la cellule B8 en A8.
Le on error resume next est là pour gerer le fait qu'on ne peut pas déplacer
une cellule plus à gauche que la colonne A
sub deplacer
Dim rg As Range
on error resume next
Set rg = Cells(8, 2)
rg.Cut rg.Offset(0, -1)
end sub
A+
Comment puis-je déplacer latéralement sur la gauche les données d'une cellule
dans une cellule adjacente qui est vide ?
si on veut tester la vacuité de la cellule adjacente avant le déplacement pour ne l'autoriser que si cette cellule est vide, on peut adapter le code comme suit
sub deplacer Dim rg As Range
on error resume next Set rg = Cells(8, 2) if not isempty(rg.offset(0,-1) then rg.Cut rg.Offset(0, -1) end sub
A+
bonjour,
Dans l'exemple suivant on déplace la cellule B8 en A8. Le on error resume next est là pour gerer le fait qu'on ne peut pas déplacer une cellule plus à gauche que la colonne A
sub deplacer Dim rg As Range
on error resume next Set rg = Cells(8, 2) rg.Cut rg.Offset(0, -1) end sub
A+
Comment puis-je déplacer latéralement sur la gauche les données d'une cellule dans une cellule adjacente qui est vide ?
