Ajouts colonnes avec valeurs fixes et variables

Version imprimable

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:

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.

bonsoir,

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

Code:

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

03/01/2014, 09h34
ericmlj78

Merci beaucoup bbil cela marche parfaitement :ccool:

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?

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

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