Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

PEUT ON Faire des MIRACLES???

  • Initiateur de la discussion Initiateur de la discussion GFE.Jones
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

GFE.Jones

Guest
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.
 

Pièces jointes

Re : PEUT ON Faire des MIRACLES???

Bonjour à tous
Une autre formule matricielle à placer en ligne 2 et recopier à droite et vers le bas :
Code:
=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
 
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) :
Code:
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+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
780
N
Réponses
1
Affichages
639
W
Réponses
12
Affichages
2 K
winzek
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…