VBA Excel Mettre une commande à la fin du MacroRésolu

Question

Salut...

C'est la première fois que je veux "jouer" avec du VBA...

Je me suis fais un Macro avec Excel

Mon problème est que je dois insérer du Texte dans la derniere Cellule de la Colonne A à la fin des Lignes

En d'autres mots,

J'utilise 100 ligne je dois faire apparaître une ligne de texte dans ma Cellule A101
Si j'utilise 352 Lignes, je dois faire apparaître une ligne de texte dans ma Cellule A353

Mon Macro ouvre un Fichier Texte (il se peut qu'il aille de 5 à 400 lignes de texte) et je dois insérer ce commentaire (&PMGNCMD.END*3D) à la dernière ligne de texte du fichier. 

Je mets le Code du Macro si ca peut aider.... 

P.S. Le Macro est fais qu'avec quelques lignes... Cependant il sera modifier plus tard avec 300 lignes

Sub GPS()
'
' GPS Macro
' Macro enregistrée le 2006-05-18 par Jeff
'
' Touche de raccourci du clavier: Ctrl+t
'
    ChDir "C:\Documents and Settings\jeff\Bureau"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\jeff\Bureau\Copie de GPS.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, _
        1), Array(16, 1), Array(25, 1), Array(31, 1), Array(40, 1), Array(56, 1), Array(62, 1), _
        Array(63, 1), Array(64, 1), Array(66, 1), Array(67, 1), Array(68, 1), Array(70, 1))
    Rows("1:4").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll ToRight:=5
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "= IF(RC[-3]="""",RC[-1],RC[-3])"
    Range("L1").Select
    Selection.AutoFill Destination:=Range("L1:L14"), Type:=xlFillDefault
    Range("L1:L14").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Columns("I:I").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.ClearContents
    ActiveWindow.LargeScroll ToRight:=-1
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=((ABS(INT(RC[-1]*100)-(RC[-1]*100))*100)/60)*1000"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "=ROUND(RC[-1],0)"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]<10,""00""&RC[-1],IF(RC[-1]<100,""0""&RC[-1],RC[-1]))"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE((LEFT(RC[-4],5))*100&""."",RC[-1])"
    Range("D1:G1").Select
    Selection.AutoFill Destination:=Range("D1:G14"), Type:=xlFillDefault
    Range("D1:G14").Select
    ActiveWindow.SmallScroll ToRight:=5
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "=((ABS(INT(RC[-1]*100)-(RC[-1]*100))*100)/60)*1000"
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "=ROUND(RC[-1],0)"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]<10,""00""&RC[-1],IF(RC[-1]<100,""0""&RC[-1],RC[-1]))"
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE((LEFT(RC[-4],5))*100&""."",RC[-1])"
    Range("I1:L1").Select
    Selection.AutoFill Destination:=Range("I1:L14"), Type:=xlFillDefault
    Range("I1:L14").Select
    Range("L1:L14").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Columns("H:K").Select
    Range("K1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.LargeScroll ToRight:=-1
    Range("G1:G14").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Columns("C:F").Select
    Range("F1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").Select
    Selection.Cut
    Range("G1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=3
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "'$PMGNWPL,"
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "',N,0"
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "',W,0000275,M,"
    Range("J4").Select
    ActiveCell.FormulaR1C1 = "',a*2d"
    Range("J5").Select
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[3]="""",""$PMGNCMD,END*3D"",CONCATENATE(R1C11,R1C4,R2C11,R1C5,R3C11,RC[6]&"","",RC[7],R4C11))"
    Range("A2").Select
    Columns("A:A").EntireColumn.AutoFit
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[3]="""",""$PMGNCMD,END*3D"",CONCATENATE(R1C11,R1C4,R2C11,R1C5,R3C11,RC[6]&"","",RC[7],R4C11))"
    Range("A2").Select
    Columns("A:A").EntireColumn.AutoFit
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A14"), Type:=xlFillDefault
    Range("A1:A14").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Columns("D:L").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A1").Select
End Sub

cs_loulou69 · Accepted Answer

Bonjour
Je te propose cela :

ActiveSheet.Cells( Range("A1").End(xlDown).Row+1, 1).Value="&PMGNCMD.END*3D"

sdaouda · Answer

bonjour,
y a t il qlq un qui peut me proposer un code VB sous forme de macro, qui me permettra d inserer des bouttons radio ou selecteur dans un graphique multi courbe, de facon a faire apparaitre ou disparaitre une courbe en selectionnant ou deselectionnant un boutton.

Merci

VBA Excel Mettre une commande à la fin du Macro

2 réponses

Votre réponse

Discussions similaires