Discussion :

[AlexFEBo]

Bonjour,

J'aimerais utiliser une macro afin de me faciliter un travail d'analyse de données, je suis débutant avec les macros excel, j'ai essayé de me débrouiller mais je bloque maintenant...


J'ai une grande quantité de données (voir photo) et j'aimerais:
1) Insérer une colonne vierge entre chaque colonne
2) Insérer une formule dans cette nouvelle colonne créée (par exemple dans la colonne vierge D: =C1-C$1)
3) Étendre la formule jusqu'en bas de mes données (ligne N°200).

En fouillant un peu sur le net (ce forum ) j'ai pu modifier un code pour insérer les colonnes vierges:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub InsertCol()
 
Dim NbCol As Long, i As Long
 
'On récupère le numéro de la dernière colonne remplie et on l'affecte à la variable NbCol
NbCol = Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column
 
For i = NbCol + 1 To 4 Step -1
 
    Columns(i).Insert 'Fait l'insert pour la colonne concernée
 
Next i
 
End Sub

Ensuite pour insérer ma formule et l'étendre ça devient très compliqué pour moi...

J'arrive plus ou moins à comprendre 'le language' mais impossible d'écrire quelque chose qui fonctionne.

Merci d'avance pour votre aide!

[eriiic]

Bonjour,

un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub InsertCol()
    Dim NbCol As Long, nblig As Long, i As Long
    'On récupère le numéro de la dernière colonne remplie et on l'affecte à la variable NbCol
    NbCol = Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column
    nblig = Cells(Rows.Count, 1).End(xlUp).Row - 1
    For i = NbCol + 1 To 4 Step -1
        Columns(i).Insert    'Fait l'insert pour la colonne concernée
        Cells(2, i).Resize(nblig).Formula = "=RC[-1]-R2C6"
    Next i
End Sub

Vu qu'il devrait toujours y avoir une ligne de titre, je commence à la ligne 2.
Plutôt que de sauter 2 lignes à chaque fois (ce qui fait qu'on a 3 fois moins d'infos sous les yeux), indente ton code et utilise l'icone # pour garder sa lisibilité.
eric

[AlexFEBo]

Merci beaucoup pour vos conseils.

j'ai modifié en conséquence.

Malheureusement sur mon ordinateur personnel je ne peux pas lancer Visual Basic (VBE6EXT.OLB ne peut pas se lancer), je testerais donc ce code lundi.

Merci encore!

[AlexFEBo]

Code testé, merci beaucoup!

J'ai modifié la formule dans le code qui me faisait une différence et non une division entre mes cellules.
J'ai aussi modifié le nom des variables afin de m'y retrouver plus tard en revenant dessus.

Voila ce que ça donne maintenant:

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
Sub Insert_columns()
 
'Déclaration des variables
Dim NbColumns As Long, i As Long, NbLanes As Long
 
'Determiner les dernières colonnes et lignes
NbColumns = Range("A1").End(xlToRight).Column
NbLanes = Cells(Rows.Count, 1).End(xlUp).Row - 1
 
'Boucle
For i = NbColumns + 1 To 3 Step -1
 
Columns(i).Insert
Cells(2, i).Resize(NbLanes).Formula = "=RC[-1]/R2C[-1]"
 
Next i
 
End Sub

Juste un petite question pour etre sur de bien comprendre: pour la variable NbLanes, à quoi sert le -1 final de la ligne 8?

Merci encore pour votre aide!

[eriiic]

Bonjour,

je t'avais précisé que pour moi une BDD correcte doit avoir une ligne de titre.
Dans ce cas il faut soustraire 1 au nombre total de lignes et démarrer en ligne 2 pour mettre la formule.
eric

[AlexFEBo]

Ok merci.

Concernant la partie titre c'est que je vais m’atteler à faire maintenant.

Je récupère mes données (non mises en forme) d'un autre logiciel, il me semblait plus simple de faire travailler la macro sur les "raw datas" puis d'essayer de faire un seconde macro afin d’insérer et de mettre en forme ma ligne de titre.

[eriiic]

Travailles comme ça te parait le mieux pour toi.
Le tout est d'adapter au contexte.
eric