Sujet Précédent Sujet Suivant

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
A voir également:

1 réponse

Réponse 1 / 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