Problème de macro

[SebyBass]

Bonjour,

J'aimerais pouvoir enregistrer le résultat de ma macro dans une cellule.
Voilà ce que je souhaite :
Je veux que ma cellule D3 donne résultat cellule D5
Puis je modifie la cellule D3 et je veux le résultat en D6 toute en cardant le résultat précèdent en D5
Et ainsi de suite je modifie D3 et résultat en D7 toute en gardant le résultat de D5 et D6.

Voila ma marco:
Sub Macro1()
Range(« D5 »).Value=Range(« D3 »).Value
Application.Goto Reference := »macro1 »
End Sub

Merci a vous,

Cordialement SebyBass

 

[Pierrot93]

Re : Problème de macro

Bonjour,

regarde peut être ceci... mais bon....

Option Explicit
Sub test()
Range("D5:D7").Value = Range("D3").Value
End Sub

sinon voir peut être du coté des boucles "for"...

bonne journée
@+

 

[SebyBass]

Re : Problème de macro

Merci,

Mes je debut en macro, donc ci j'ai bien compri je doit fair ceci:


Sub Macro1()
Option Explicit
Sub test()
Range("D5😀7").Value = Range("D3").Value
End Sub

Cepandent ca me fonctionne pas 🙁

 

[Pierrot93]

Re : Problème de macro

Re,

Cepandent ca me fonctionne pas

ca veut dire quoi ? message d'erreur ou pas le résultat attendu... code proposé fonctionne très bien chez moi.... enfin d'après ce que j'ai compris de ton attente....

 

[SebyBass]

Re : Problème de macro

Re, et merci de ton aide ^^

Alors je marque exactement ça:

Sub Macro1()
Option Explicit
Sub test()
Range("D5: D7").Value = Range("D3").Value
End Sub

et ca me dit "Erreur de compilation: Instruction incorrecte dans une procedure"
et ca me surlige "Option Explicit"

Peux etre ai je fais une erreur de syntaxe ?

 

[Pierrot93]

Re : Problème de macro

Re,

enlève "Sub Macro1()"... tu as 2 déclarations de procédure... et ne garde qu'un "end sub"...

 

[SebyBass]

Re : Problème de macro

Donc la ca marche ^^

Cepandand ça ne garde pas les valeurs précedents.
Moi j'aurais aimé que malgré la modification de D3, les résultats qui en découle ce place dans les cellules qui suive.

Par exemple:
D3 donne D4 puis D3 doonne D5 ect; toute en gardant dans les lignes précedents les valeurs des resultats precedents

Pence tu que ce soit possible ?

 

[Papou-net]

Re : Problème de macro

Bonjour SebyBass, Pierrot, le Forum,

@ sebyBass:

Essaie comme ceci

Option Explicit
Sub test()
Range("D" & Rows.Count).End(xlUp).Offset(1,0).Value = Range("D3").Value
End Sub

Cordialement.

 

[Pierrot93]

Re : Problème de macro

Re, bonjour Papou🙂

essaye ceci, procédure événementielle à placer dans le module de la feuille concernée, click droit sur l'onglet => visualiser le code => tu colles :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$3" Then Exit Sub
Application.EnableEvents = False
With Range("D65536").End(xlUp)
    If .Row < 5 Then
        Range("D5").Value = Target
    Else
        .Offset(1, 0).Value = Target
    End If
End With
Application.EnableEvents = True
End Sub

bon après midi
@+

 

[SebyBass]

Re : Problème de macro

Merci a tous pour votre aide précieuse, ça fonctionne maintenant.

Voila mon macro

Option Explicit
Sub test()
Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("D3").Value
Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("E3").Value
Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("F3").Value
Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("G3").Value
Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("H3").Value
Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("I3").Value
End Sub


Merci encore ^^