exel, execution de macro

[sleblanc]

Bonjour,
j ai cree une macro sur exel mais quand je l execute elle ne s execute que sur la 4 feuille ( en gros pour qu elle execute il faut que j ouvre 3 feuille pour qu elle puisse s exuecuter sur la 4 eme feuille ) j aimerai qu elle s execute automatiquement sur la page suivant quelque soit la page suivante

donc j ai cherche le code de la macro pour le modifier :

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("AVR PING PTION").Select
Columns("A:M").Select
Selection.Copy
Sheets("Feuil4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:C").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A7").Select
ActiveCell.FormulaR1C1 = "section"
Range("B7").Select
ActiveCell.FormulaR1C1 = "code PF"
Range("C7").Select
ActiveCell.FormulaR1C1 = "PRODUIT"
Range("D7").Select
ActiveCell.FormulaR1C1 = "PV/U"
Range("A8").Select
ActiveCell.FormulaR1C1 = "=IF(RC[4]=""Section :"",RC[5],R[-1]C)"
Range("B8").Select
ActiveCell.FormulaR1C1 = "=IF(RC[3]=""Section :"",RC[6],R[-1]C)"
Range("B8").Select
ActiveCell.FormulaR1C1 = "=IF(RC5=""Section :"",RC[6],R[-1]C)"
Range("B8").Select
Selection.AutoFill Destination:=Range("B8:C8"), Type:=xlFillDefault
Range("B8:C8").Select
Range("D8").Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]=""Section :"",RC[9],R[-1]C)"
Range("A8😀8").Select
Selection.Copy
Range("A9").Select
Selection.End(xlDown).Select
Range("E1048576").Select
Selection.End(xlUp).Select
Range("A6183").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
End Sub


mes connaissance en informatique sont tres limite donc svp help !

merci bcpppp

 

[Mytå]

Re : exel, execution de macro

Salut le forum

Sleblanc, normal tu selectionnes la feuille 4

Sheets("Feuil4").Select

Un début à adapter(Pas de fichier dur dur de faire mieux)

Sub essai()
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("AVR PING PTION").Columns("A:M").Copy Sheets(Sheets.Count).Range("A1")
End Sub

Merci d'utliser les balises codes (Sélection de la macro et #)

Mytå

 

[Gorfael]

Re : exel, execution de macro

Salut sleblanc et le forum

j aimerai qu'elle s exécute automatiquement sur la page suivant quelque soit la page suivante

dim X as integer
Sheets.Add After:=Sheets(Sheets.Count) 
x=Sheets("AVR PING PTION").index
sheets(x).Columns("A:M").Copy 
with Sheets(x+1)
    .PasteSpecial Paste:=xlPasteValues 
    .Columns("A:C").Insert Shift:=xlToRight, copyOrigin:=xlFormatFromLeftOrAbove 
    .Range("A7").FormulaR1C1 = "section" 
    .Range("B7").FormulaR1C1 = "code PF" 
    .Range("C7").FormulaR1C1 = "PRODUIT" 
    .Range("D7").FormulaR1C1 = "PV/U" 
    .Range("A8").FormulaR1C1 = "=IF(RC[4]=""Section :"",RC[5],R[-1]C)" 
    .Range("B8").FormulaR1C1 = "=IF(RC[3]=""Section :"",RC[6],R[-1]C)" 
    .Range("B8").FormulaR1C1 = "=IF(RC5=""Section :"",RC[6],R[-1]C)" 
    .Range("B8").AutoFill Destination:=.Range("B8:C8"), Type:=xlFillDefault 
    .Range("D8").FormulaR1C1 = "=IF(RC[1]=""Section :"",RC[9],R[-1]C)" 
    .Range("A8:D8").Copy
end with
End Sub

Pour le reste, j'ai quelques difficultés à interpréter le code : Tu fais 5 sélections à la suite, sans les utiliser 😕
et tu copies A8 : D8 sur ???? A9 : D6183 ? A9 à dernière ligne de A (qui est A8 ???) A9 à dernière ligne non-vide en E ? Je ne sais pas trop.

Si tu veux qu'on t'aide sur un code faux, ce serait interessant de donner le but de la macro!!!
A+