Discussion :

[Steph.V]

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 ?

[clementmarcotte]

Bonjour,

Voir range.offset

[Steph.V]

J'ai essayé avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[clementmarcotte]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ne marchera jamais.

Supposons que tu sois en A10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activecell.offset(0,-10) = 32

va mettre 32 dans a1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activecell.offset(0,10) = 32

va mettre 32 dans a20

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activecell.offset(10,10) = 32

va mettre 32 dans k20

[Steph.V]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Steph.V]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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