Discussion :

[ericmlj78]

Bonjour,

Je dispose d'un fichier excel organiser en colonnes de A à J (numero de commande / date de fabrication / numero de palette/...) avec des entêtes de colonnes.
Je désirais ajouter trois colonnes sur la gauche du tableau.

Le première colonne insérée met un numero de lignes de 1 à n par commande
J’insère donc une colonne en A et je numéroté avec le code ci-dessous mais je n'arrive pas a gérer le changement de numéro de commande qui peut se produire n'importe ou dans le fichier.

une idée??

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
Sub inserer_num_lignes()
 
Dim Plg As Range, c As Range, i As Long
 
' définition de la plage
Set Plg = ActiveCell.CurrentRegion
 
' insertion d’une colonne à gauche
Plg.Columns(1).Insert
 
' ajout numero
 
i = 1
For Each c In Plg.Columns(1).Cells.Offset(1, -1)
c = i
i = i + 1
Next c
 
End Sub

Les deux colonnes suivantes devront reprendre sur chaque ligne une valeur fixe sur toutes les lignes du tableau mais je n'ai pas trouvé de commande pour faire cela.

J’espère avoir été clair, merci par avance pour votre aide.

[SfJ5Rpw8]

bonsoir,

il faut mémoriser le numéro de commande et repasser à 1 ton compteur i à chaque changement :

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
22
23
24
25
26
Option Explicit
 
Sub inserer_num_lignes()
 
Dim Plg As Range, c As Range, i As Long
Dim mNumCde As String 'Mémorise numéro de commande
' définition de la plage
Set Plg = ActiveCell.CurrentRegion '==> ATTENTION POSITION DU CURSEUR POUR LANCEMENT MACRO!!!
 
' insertion d’une colonne à gauche
Plg.Columns(1).Insert
 
' ajout numero
 
i = 1
mNumCde = Plg.Cells(1, 2) 'Mémorise Numéro de commande
For Each c In Plg.Columns(1).Cells.Offset(, -1)
    If mNumCde <> c.Offset(, 1).Text Then
            i = 1
            mNumCde = c.Offset(, 1).Text 'Mémorise Nouveau numéro de cde
    End If
    c = i
    i = i + 1
Next c
 
End Sub

[ericmlj78]

Merci beaucoup bbil cela marche parfaitement

je vais prendre en compte également ta remarque sur le placement du curseur

encore une petite question, comment pourrais-je faire pour ajouter un nouvelle colonne à gauche avec la même valeur de type alpha sur l'ensemble des lignes?

[ericmlj78]

Alors grace a bbil, j'ai trouvé ma solution la voici !

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
22
23
24
25
Sub deposant()
 
Range("A1").Select
 
Dim Plg As Range, c As Range, i As Long
' définition de la plage
 
Set Plg = ActiveCell.CurrentRegion
 
' insertion d’une colonne à gauche
Plg.Columns(1).Insert
 
' ajout valeur déposant
 
For Each c In Plg.Columns(1).Cells.Offset(0, -1)
 
    c = "BACA"
 
Next c
 
' ajout entete de colonne
 
Range("A1").FormulaR1C1 = "DEPOSANT"
 
End Sub

encore un grand merci !

j’espère avoir l'occasion d'en apprendre encore beaucoup et un jour pouvoir aider ceux qui en auront besoin...