Traduire macros sous excel

Yannou14 -  
 bugger -
Bonjour,
quelqu'un peut-il m'aider à comprendre les étapes de cette macro qui gloablement permet d'insérer un prix dans un devis :

Sub Saisir_et_insérer_titre_prix()

DialogSheets("Dialog2").Show
Application.Goto Reference:="Point_insertion"
Selection.EntireRow.Insert
Sheets("Cadre").Select
Range("a2:f2").Select
Selection.Copy
Application.Goto Reference:="Point_insertion"
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="Point_insertion"
ActiveCell.Offset(-1, 5).Range("A1").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.Run Macro:="Estim_OAtrx_forges.xls!Format_ligne_du_DE"

End Sub

Si qq1 peut me sorti les grandes lignes cela me permettra d'adapter à mon travail !!!
merci beaucoup
Configuration: Windows XP
Firefox 2.0.0.16

1 réponse

  1. bugger
     
    SAlut voici l'explication...
    Voir commentaires avant la ligne de code

    Montrer la fenetre de dialogue

    DialogSheets("Dialog2").Show

    Aller sur la reference "Point d'insertion"

    Application.Goto Reference:="Point_insertion"

    Insérer une ligne

    Selection.EntireRow.Insert

    Selectionner la region A2:F2 de la feuille appelee Cadre

    Sheets("Cadre").Select
    Range("a2:f2").Select
    En copier le contenu

    Selection.Copy
    Application.Goto Reference:="Point_insertion"

    Et ne coller que les valeurs sur la reference Point-insertion

    ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False

    Copier la cellule F2

    Selection.Copy
    Application.Goto Reference:="Point_insertion"
    ActiveCell.Offset(-1, 5).Range("A1").Select

    Coller la formule dans la case désignee ci-dessus

    Selection.PasteSpecial Paste:=xlFormulas, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False

    Lancer la macro designee ci dessous

    Application.Run Macro:="Estim_OAtrx_forges.xls!Format_ligne_du_DE"

    Simple non ?

    BOn courage pour ton adaptation.

    PS : Si tu veux voir exactement ce que fait la macro, mets un point d'arret sur la premiere ligne du code et fais un suivi pas a pas detaille. Tu pourras voir ce que la macro fait ligne a ligne.

    Manu
    0