PEUT ON Faire des MIRACLES???

[GFE.Jones]

Bonjour à tous.

J'aimerais déplacer la valeur d'une cellule dans une autre. Plus précisement:

J'ai des colonnes avec les quantités produites chaque année. Chaque ligne représentant un certain produit.

J'aimerais maintenant que l'année ou il y a les premières unités produites se retrouve dans la même colonne.
Si un produit est produit pour la première fois en 2009 alors ca va dans la colonne Start Year, et les années suivantes iront sous Y+1, Y+1 etc.
Si un produit commence à être produit en 2013, alors les premiers volumes sont envoyé dans la colonne Start Year, et les années suivantes dans Y+1, Y+2, etc.

Je pourrais le faire à la main mais vu que j'ai 6000 lignes... Franchement, j'en ai pour une semaine!!!!!
Je vous ai mis un fichier pour illustrer mon problème. J'espère que qqun pourra m'aider!!!!

En vous remerciant d'avance pour votre aide.

 

[david84]

Re : PEUT ON Faire des MIRACLES???

Bonsoir,
cf proposition.
A+

 

[néné06]

Re : PEUT ON Faire des MIRACLES???

Bonsoir David84,GFE.Jones

Pour les miracles ,je ne sais pas,mais voici un exemple en VBA

Cordialement

 

[ROGER2327]

Re : PEUT ON Faire des MIRACLES???

Bonjour à tous

Une autre formule matricielle à placer en ligne 2 et recopier à droite et vers le bas :

=DECALER(A2;;MIN(SI($A2:$J2<>0;COLONNE($A:$J);99)-1;10-COLONNE(A:A)))

​

ROGER2327
#4943

Lundi 16 Gueules 138 (Saint Münchhausen, baron, SQ)
22 Pluviôse An CCXIX
2011-W06-4T00:18:00Z

 

[david84]

Re : PEUT ON Faire des MIRACLES???

Re
ci-joint autre proposition VBA à tester (mais bon, à voir si c'est plus rapide que celle proposée par néné06) :

Sub test()
Application.ScreenUpdating = False
Dim c, Col As Integer
    Range([A2], Range("H" & Rows.Count).End(xlUp)).Copy [K2]
    Range([K2], Range("K" & Rows.Count).End(xlUp)).Select
        For Col = 1 To 9
            For Each c In Selection
                If c = 0 Then c.Delete Shift:=xlToLeft
            Next c
        Next Col
    [K1].Select
Application.ScreenUpdating = True
End Sub

A+

 

[laetitia90]

Re : PEUT ON Faire des MIRACLES???

bonjour tous
un autre facon de l'ecrire

 

[Compte Supprimé 979]

Re : PEUT ON Faire des MIRACLES???

Bonjour à tous

@GFE.jones : désolé je ne suis pas dieu ... je ne sais pas faire de miracles 🙂

N'apporte rien à la discussion ... LOL