Discussion :

[gregbaron]

Bonjour à tous,

J'ai a nouveau besoin de votre aide

Je souhaite étirer un tableau dans lequel je peux planifier les mes réceptions à la semaine (première semaine de réception en colonne F et total cumulé en ligne 40) et les confronter au besoin total (cellule B1)

Pour le moment j'ai une solution fonctionnelle mais pas optimale du tout :
Je calcule, via une valeur cible, en combien de semaine je vais solder mon besoin en fonction de la capacité du fournisseur et j'étends mon tableau en fonction de ce nombre de semaine

Code :

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

1
2
3
'Plannif expeditions
Range("F39:F43").Select 'Séléction du de la première colonne du tableau de plannification
Selection.AutoFill Destination:=Range(Cells(39, 6), Cells(43, 6 + Cells(2, 2).Value - 1)), Type:=xlFillDefault 'Etirement automatique selon le nombre de semaine de production

De ligne 39 a 43 c'est mon tableau en cellule B c'est le nombre de semaine défini par la valeur cible

Je pense que ce serait encore mieux de réaliser une boucle qui sélectionne la dernière colonne du tableau et vérifie si la cellule ligne 40 (total cumulé) est inférieur ou supérieur a la cellule B2 (besoin total)
Si inférieur alors on étire le tableau d'une colonne
puis on fait la même vérification sur la nouvelle colonne
Si supérieur alors on ne fait rien

j'imagine que l'on peut faire une boucle : étirer le tableau jusqu’à ce que la cellule ligne 40 soit supérieur ou égale a B2

Pouvez vous m'aider ?


Un grand merci

[Jean-Philippe André]

Bonjour,
tu peux effectivement faire une boucle, comme par exemple

Code :

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

1
2
3
4
Do Until Range("F40").value >= Range("B2").value
'ton code d'autofill, ligne par ligne
ligne = ligne +1
Loop

[gregbaron]

Bonjour Jea-Phillipe,

en l’occurrence je cherche a étirer à l'horizontale (désolé, je suis sur cet outil depuis un mois donc ça me paraissait évident :/ )
le problème c'est que le total cumulé n'est pas figé :

Je compare F40 a B2 => F40<B2 donc j'étire (+1 colonne) G40 < B2 j'étire..... n40>B2 je ne bouge plus
C'est possible de faire ressortir cette notion de variabilité ou faut-il passer par une cellule figée qui reprend la valeur max de la ligne 40

Par exemple B3 = Max(40:40)

Code :

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

1
2
3
Do Until Range("B3").value >= Range("B2").value
Colonne = colonne+1
loop

[Jean-Philippe André]

Ok,

l'autofill, je l'utilise 99% tu temps en ligne, et 1% du temps en colonne

Ca ne change pas grand chose

Code :

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

1
2
3
4
5
6
7
dim C as Range
Set C = Range("F40")
 
Do Until C.Value = Range("B2").value
'etirage
Set C = C.Offset(0,1)
Loop

[gregbaron]

J.P,

J'ai aussi cette habitude mais dans le cas présent c'est plus visuel

étant donné que je prends plusieurs lignes dans mon range ça me donne ça :

Code :

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

1
2
3
4
5
6
7
dim C as Range, D as Range
Set C = Range("F40")
Set D = Range("F39:F43")
Do Until C.Value = Range("B2").value
'etirage
Set D = D.Offset(0,1)
Loop

et la si j'ai besoin d'avoir 10 colonnes pour atteindre ma valeur, ca va bien m’étirer mon tableau 10 fois ?

Bon déjà en l'état ça coince,

J'ai un debogage sur le ligne

Code :

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

Set D = D.Offset(0,1)

[Jean-Philippe André]

Faut dire que tu changes la variable C en D, fatalement....

quand je mets le commentaire 'etirage, c'est ta ligne avec autofill qu'il faut que tu ecrives hein....

Je te laisse reflechir a ce qui pose probleme