Discussion :

[Elasrinar]

Bonjour, je ne suis pas très doué avec les macros j'ai fait quelques recherches et j'ai
travailler avec excel 2013 pour créer mon macro.

Je vous explique la situation je me sert d'un fichier excel pour garder les traces des dessins
que moi et mon équipe fesont lors des contrats que nous avons.

par exemple:

ce que je cherche a faire et assez simple j'ai réussi avec 1 seule ligne mais je doit le rendre
interactif au lieu de faire la macro seulement sur la ligne écrite je voudrais qu'elle se fasse
sur la ligne que je sélectionne et elle doit être accessible pour toute les version de excel entre
2003 et 2016.

La commande se trouve a être:
- insert une ligne a la suite de la ligne sélectionner
- copie les cellules des colonnes A,B,D,E de la ligne sélectionner
- coller dans la nouvelle ligne insérer
- ajouter 1 dans la colonne C (ex: ligne sélectionner = 4, ligne insérer= 5)
- changer la couleur de la ligne sélectionner en gris pâle

Voici donc la macro en question.

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
27
Sub Add_Rev()
'
' Add_Rev Macro
' Ajouter une ligne  Copier les cellules précédente Augmenter la revison +1 Rendre la ligne précédente grise
'
' Touche de raccourci du clavier: Ctrl+q
'
    Rows("24:24").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Rows("24:24").Select
    Range("B24").Activate
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("C24").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+1"
    Range("D24").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("E24").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Rows("23:23").Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
End Sub

Sachant pas trop ou me diriger pour accomplir cette tâche je m'en remet a vos soins.

Cordialement Elas