aide insertion automatique de lignes sur Excel

**Bendrien** · 03/04/2009, 11h06

Bonjour à tous, je suis nouveau sur le forum.
Je suis actuellement en derniere année de DUT STID et ma formation se termine par un stage en entreprise.
Mon stage a commencé lundi et je me retrouve face a un probleme que je n'avais pas prévu.
Je travaille sur Excel et j'aurais besoin de créer des programmes qui permettent l'insertion automatique de lignes.

actuellement je dispose d'un tableau de la forme suivante:

Produit Date Début Date Fin
AAAA 2006 2009
BBBB 2000 2005

et j'aimerai arriver au resultat suivant:

Produit Date Début Date Fin
AAAA 2006 2006
AAAA 2007 2007
AAAA 2008 2008
AAAA 2009 2009
BBBB 2000 2000
BBBB 2001 2001
BBBB 2002 2002
BBBB 2003 2003
BBBB 2004 2004
BBBB 2005 2005

Même je pense qu'il est impossible d'obtenir ce résultat tel quel en l'automatisant, j'aimerai cependant pouvoir créer le nombre de ligne nécessaire de maniere automatique.

De plus, a peu pres dans le même genre

il existe plusieurs couleurs pour un même produit avecdifférentes épaisseurs possible. J'aimerais donc insérer créer une nouvelle pour chacune des couleurs et pour chaque épaisseur possible.

Actuellement je dispose du tableau suivant:
Produit Descriptif Couleurs
AAA 3mm/4mm t1/t2/t3

J'aimerai obtenir le tableau suivant:
Produit Descriptif Couleurs
AAA 3mm t1
AAA 3mm t2
AAA 3mm t3
AAA 4mm t1
AAA 4mm t2
AAA 4mm t3

Voilà

J'espere avoir été assez clair dans mes explications.

Cordialement.

**DeaD78** · 03/04/2009, 11h19

Ce que je ferais à la va vite mais qui marche serait comme ça :

Tout d'abord, mise en place d'une variable, pour chaque ligne, qui équivaudrait à la différence entre les 2 dates +1. Ainsi, tu connaîtrais le nombre de lignes à insérer.

Puis, tu fais une boucle entre 1 et cette variable où tu écris le même nom de produit, la date de début + la variable à chaque fois dans le tableau source.

Une fois cela fait, ben tu passes à la ligne suivante de ton tableau source.

En suivant cette logique, cela sera automatisé comme tu le souhaites.

Pour le second cas, c'est exactement la même chose : tu comptes le nombre de couleurs que tu stockes dans une variable (en prenant "/" comme caractère séparateur par exemple) et tu continues sur la même chose.

Je te propose d'essayer par toi-même avec ce raisonnement et si tu n'y arrives pas, quelqu'un d'autre ou moi-même, si je trouve le temps, pourra te proposer un petit bout de code à améliorer.

Bonne chance !

**Krovax** · 03/04/2009, 11h23

Même je pense qu'il est impossible d'obtenir ce résultat tel quel en l'automatisant, j'aimerai cependant pouvoir créer le nombre de ligne nécessaire de maniere automatique.

Si c'est possible

est parce que je suis sympa et qu'entre stagiaire faut se serrer les coudes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim anneedeb As Integer
Dim anneefin As Integer
Dim nannee As Integer
Dim i As Integer
Dim j As Integer
Dim DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row 'récupère la dernière ligne de la colonne A
For i = DerniereLigne To 1 Step -1 'on parcour a l'envers car on va rajouter des ligne
    If Cells(i, 1) <> Cells(i + 1, 1) Then 'vérifie que le produit change par rapport au précédent
        anneedeb = Cells(i, 2)
        anneefin = Cells(i, 3)
        Cells(i, 2) = Cells(i, 3)
        nannee = anneefin - anneedeb
        For j = 1 To nannee
        Cells(i, 1).EntireRow.Insert 'on insert une ligne
        Cells(i, 1) = Cells(i + 1, 1)
        Cells(i, 3) = Cells(i + 1, 3) - 1
        Cells(i, 2) = Cells(i, 3)
        Next j
    End If
    Next i

C'est pas vraiment commenté mais exécute le en pas a pas et tu comprendra

Pour le deuxième je te laisse te débrouiller, je suis sympa mais bon le but d'un stage c'est de travailler, c'est plus tard qu'on apprend a faire travailler les autres quand on aura nos propre stagiaires

Edit bonjour Dead je n'ai pas rafraichi d'après ce que j'ai lut ca ressemble a ton idée en version codé