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

[Malick]

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

[Elasrinar]

Merci Milkosec

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

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

[Elasrinar]

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 :

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