Deplacement lateral de donnees par une macro

re,

t'ai déjà répondu dans ton message précédent.

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 vide du même rang ?

Merci pour ton action, mais en réalité comme je suis un naïf avec EXCEL, je
cherche le moyen de déplacer des données des colonnes vers la gauche selon
l'exemple ci-dessous
A B C D
1 DUDU DODO DYDY
2 JUJU JOJO
3 FUFU FYFY

A B C D
1 DUDU DODO DYDY
2 JUJU JOJO
3 FUFU FYFY

Merci Robert

re,

t'ai déjà répondu dans ton message précédent.

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 vide du même rang ?

re,

dans l'exemple qui suit on va supposer :

1-il y a toujours une cellule vide dans la colonne A à gauche de la plage à
déplacer
2-quelle que soit la ligne , la plage à déplacer ne finit pas en colonne 256
3-les plages à deplacer sont aux lignes 10,11 et 12

si les 3 conditions ci-dessus ne sont pas remplies, il faudra adapter le code.

Dim rg As Range

For I = 1 To 3
debcol = Cells(I + 9, 1).End(xlToRight).Column
fincol = Cells(I + 9, 256).End(xlToLeft).Column
Set rg = Range(Cells(I + 9, debcol), Cells(I + 9, fincol))
rg.Cut Cells(rg.Row, rg.End(xlToLeft).Column)
Next

A+

Merci pour ton action, mais en réalité comme je suis un naïf avec EXCEL, je
cherche le moyen de déplacer des données des colonnes vers la gauche selon
l'exemple ci-dessous
A B C D
1 DUDU DODO DYDY
2 JUJU JOJO
3 FUFU FYFY

A B C D
1 DUDU DODO DYDY
2 JUJU JOJO
3 FUFU FYFY

Merci Robert

re,

t'ai déjà répondu dans ton message précédent.

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 vide du même rang ?