Petit coup de pouce macro excel

Version imprimable

1 pièce(s) jointe(s)

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: Pièce jointe 213783

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:

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

23/06/2016, 20h10
Malick

:salut: Elasrinar

Citation:

Envoyé par Elasrinar

Voici donc la macro en question.

Vous avez utilisé le mauvais bouton pour mettre votre code. En effet, c'est le bouton # qu'il fallait utiliser. Vous pouvez éditer votre post et réécrire votre code via le bouton adéquat.;)

démonstration de l'utilisation du bouton code (#)

Cordialement,
Malick
23/06/2016, 20h42
Elasrinar

Merci Milkosec :D

je comprend pas vraiment tout les code utiliser mais je fait moi même mes macros sur World of Warcraft
le principle est le même sauf que je ne trouve pas vraiment de bon exemple pour arriver a mes fin :D

J'essaie de travailler avec ActiveCell depuis 1h00 environ et je n'arrive a rien si jamais tu as des conseils
pour moi je suis preneur merci :D

J'ai trouver une solution mais la je doit régler le problème qui envoie les ligne au dessus au lieu de en dessous

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 test()
'
' test Macro
'
 
'
    ActiveCell.EntireRow.Insert
    Range("A" & (ActiveCell.Row)).Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("B" & (ActiveCell.Row)).Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("C" & (ActiveCell.Row)).Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+1"
    Range("D" & (ActiveCell.Row)).Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("E" & (ActiveCell.Row)).Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Rows(ActiveCell.Row).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
End Sub