variables fixe a passer en variables mobile

roncevaux68 · 16 Mars 2018

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 · 16 Mars 2018

salut

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

VB:

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 · 17 Mars 2018

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 · 20 Mars 2018

en partant de A10 :

VB:

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 · 20 Mars 2018

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 · 20 Mars 2018

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 · 22 Mars 2018

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

variables fixe a passer en variables mobile

roncevaux68

XLDnaute Junior

bérylion

XLDnaute Occasionnel

roncevaux68

XLDnaute Junior

bérylion

XLDnaute Occasionnel

roncevaux68

XLDnaute Junior

laurent950

XLDnaute Barbatruc

roncevaux68

XLDnaute Junior

Discussions similaires