variables fixe a passer en variables mobile

[roncevaux68]

Bonjour,
après des heures et des heures de recherche je m'en remets à vous pour résoudre mon problème.
Je ne suis pas expert,

Je voudrais transformer cette marco avec des variables fixe avec des variables mobile

Partir de la cellule dans laquelle je me trouve la en A10 mais cela peux être aussi A30 ou A50 ou de la position de mon cellule actuellement sélectionnée

macell = ActiveCell.Address(0, 0)
et exécuter la macro

je suppose qui fait utiliser l’Offset(1, 1) pour déplacer le curseur


Sub Macro4()

'

'

'

Range("A10").Select

Range("G11").Select

Selection.Copy

Range("H11").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("C17").Select

Selection.Copy

Range("H12").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("A10").Select

End Sub



Bien cordialement
Stéphane

 

[bérylion]

salut

pas si j'ai bien tout compris, mais ca pourrait ressembler a qqch comme ca :

Sub Macro4()
   With ActiveCell
     .Copy
     .Offset(0, 1).PasteSpecial (xlPasteAll)
     .Offset(6, -4).Copy
     .Offset(1, 1).PasteSpecial (xlPasteAll)
     Application.CutCopyMode = False
     .Select
   End With
End Sub

 

[roncevaux68]

Bonjour bérylion

Merci pour cette macro

Elle fonction bien à condition que je démarre sur la cellule G11 mais je voudrais bien partir de la cellule A10

Car dans mon fichier excel ,J’arrive sur les cellule A10 ,A30 ,A50 …. Jusqu’à A2790 depuis des lien hypertexte

Une dernière chose la cellule A10 sont relier entre elle jusqu’à la cellule G10
A10 = A10 + B10 + C10 + D10 + E10 + F10+ G10

Bien cordialement
Stéphane

 

[bérylion]

en partant de A10 :

Sub Macro4()
   With ActiveCell
     .Offset(1, 6).Copy
     .Offset(1, 7).PasteSpecial (xlPasteAll)
     .Offset(7, 2).Copy
     .Offset(2, 7).PasteSpecial (xlPasteAll)
     Application.CutCopyMode = False
     .Select
   End With
End Sub

 

[roncevaux68]

hello
ça fonction pas car la cellule A10 sont relier entre elle jusqu’à la cellule G10
le résultat c'est qui copie le cellule M10 en N10

 

[laurent950]

Bonsoir,

Sub Macro4()

Dim SuperVariable(0 To 1) As Variant
SuperVariable(0) = Range("G11").Value
Range("H11") = SuperVariable(0)
SuperVariable(1) = Range("C17").Value
Range("H12") = SuperVariable(1)
Range("A10").Select

End Sub

 

[roncevaux68]

merci les amis ,on va en rester la comme la macro fonction bien depuis la cellule en G10 , G30 ,G50 .... Gxx
une dernière chose ,je voudrai exécuter la macro que si seulement sur la colonne en G pour éviter de faire de bêtise