Excel VBA - Décaler une cellule d'une colonne à une autre

Bonjour à tous !

Dans l'un des fichiers que je crée j'ai un petit souci. C'est pour créer un BOM et dans une colonne, j'ai des chiffres allant de 1 à x, ils désignent le level. J'ai déjà crée un code qui créer un nombre de colonne équivalent au chiffre maximum qui se trouve dans cette colonne.
J'aimerais maintenant un code qui puisse décaler la cellule sur la gauche mais suivant la valeur de ce chiffre. Je m'explique, pour un 1 faudrait le décaler à la première colonne, pour 3, la 3ème etc...
Quelqu'un aurait-il une idée d'une fonction dans VBA ?

Bonjour,

Voir range.offset

J'ai essayé avec ce code

Code:

---

1 2 3 4

Dim v As Integer v = Range("F2").value Range("F2").Select ActiveCell.Offset(columnOffset:=-(a - v)).Activate

---

Mais la page que tu m'a donné c'est pour décaler mais seulement la sélection de cellule, mais ça ne décale pas la cellule elle-même non ?

Bonjour,

Dans 99,9999999999999999999999999999999999999999999999 % des cas c'est complètement inutile de sélectionner ou activer une cellule avant de l'utiliser.

Code:

---

ActiveCell.Offset(columnOffset:=-(a - v)).Activate

---

ne marchera jamais.

Supposons que tu sois en A10

Code:

---

activecell.offset(0,-10) = 32

---

va mettre 32 dans a1

Code:

---

activecell.offset(0,10) = 32

---

va mettre 32 dans a20

Code:

---

activecell.offset(10,10) = 32

---

va mettre 32 dans k20

ClementMarcotte J'ai essayé de faire plus simple avec ce code la

Code:

---

1 2 3 4 5 6 7 8

For i = 2 To nbcells Dim v As Integer v = Cells(i, 1).value If v > 1 Then Cells(i, 1).value = Cells(i, v).value ' Copie vers la nouvelle destination Range("A" & i).Clear End If Next

---

Le problème c'est que ça me clear bien tout ce qui au-dessus de 1 mais ça ne met pas les valeurs dans les cellules désirées.

C'est bon j'ai réussi à trouver l'erreur.
Si cela peut aider quelqu'un voici le code que j'ai fait :

Code:

---

1 2 3 4 5 6 7 8

For i = 2 To nbcells Dim v As Integer v = Cells(i, 1).value If v > 1 Then Cells(i, 1).Copy Cells(i, v) ' Copie vers la nouvelle destination Range("A" & i).Clear End If Next

---