help me svp

[yoco]

bonjour,
je voudrais creer une macro qui permet de :
je suis sur la cellule A1 (contenant une formule qui renvoie une valeur X) ,etende la formule à B1 puis fait copier et coller valeur sur A1.
voici le code VBA mais il ne fonctionne que pour la cellule A1!!!



Selection.AutoFill Destination:=Range("A1:B1"), Type:=xlFillDefault
Range("A1:B1").Select
Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
je voudrais que cela fonctionne ds toutes les cellules ou je pointes le curseur
Merci de votre aide

 

[yoco]

je voudrais que cette macro s'applique a n'importe quelle cellue ou je me trouve
Merci

 

[Mytå]

Bonsoir yoco et le forum

Essaye ceci cela devrait aller

Option Explicit
Sub recopie_incremente()
Dim a As String, b As String
a = ActiveCell.Address
b = ActiveCell.Offset(0, 1).Address
Selection.AutoFill Destination:=Range(a & ":" & b), Type:=xlFillDefault
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

A suivre

P.S. Prière d'accuser réception si cela te convient
ou ne convient pas en répondant sur ce Post ... Merci !

 

[Mytå]

re yoco

oups peut-etre ceci

Option Explicit
Sub recopie_incremente()
Dim a As String, b As String
a = ActiveCell.Address
b = ActiveCell.Offset(0, 1).Address
Selection.AutoFill Destination:=Range(a & ":" & b), Type:=xlFillDefault
ActiveCell.Offset(0, 1).Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

A suivre