Déplacement de cellule en ligne

[GiBus]

Bonjour,

je cherche a deplacer le contenu colonne B d'un certain nombre de colonne vers la doite en fonction de la valeur de la cellule en colonne A.

Ex: si j'ai 1 en A1 je deplace B2 en C2, si j'ai 6 en A2 je deplace B2 en H2

Attention : il ne faut pas deplacer les colonnes I,J,K etc.

Voir exemple

 

[mromain]

Re : Déplacement de cellule en ligne

bonjour GiBus,

je te propose cette macro

Public Sub test()

Dim curCell As Excel.Range
Set curCell = ThisWorkbook.Sheets("Nom").Range("B3")
While curCell.Value <> vbNullString
    curCell.Offset(0, curCell.Offset(0, -1).Value).Value = curCell.Value
    Set curCell = curCell.Offset(1, 0)
Wend
End Sub

a+

 

[GiBus]

Re : Déplacement de cellule en ligne

merci de ta répone rapide mais j'ai le message d'erreur : l"'indice n'appartient pas a la selection" de quoi ki cause le gars?

precision: je suis sur excel 2000

 

[mromain]

Re : Déplacement de cellule en ligne

re

pour tant, en reprenant ton fichier et en collant la macro, j'ai pas de soucis (sous excel 2007 en tous cas)

je te mets le fichier joint

 

[GiBus]

Re : Déplacement de cellule en ligne

NICKEL!

Merci beaucoup!

C'est moi qui n'etait gouru dans le positionnement de la macro

BYE