traduire macros sous excel Fermé

Question

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

bugger · Answer

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

Traduire macros sous excel

1 réponse