Problème de macro

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #2

Re : Problème de macro

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

S

SebyBass

XLDnaute Nouveau

• 11 Juillet 2013

• #3

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 🙁

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #4

Re : Problème de macro

Re,

Cepandent ca me fonctionne pas

Cliquez pour agrandir...

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....

 

Vote positif 0 Vote négatif

S

SebyBass

XLDnaute Nouveau

• 11 Juillet 2013

• #5

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 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #6

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"...

 

Vote positif 0 Vote négatif

S

SebyBass

XLDnaute Nouveau

• 11 Juillet 2013

• #7

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 ?

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 11 Juillet 2013

• #8

Re : Problème de macro

Bonjour SebyBass, Pierrot, le Forum,

@ sebyBass:

Essaie comme ceci

Code:

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

Cordialement.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #9

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

S

SebyBass

XLDnaute Nouveau

• 11 Juillet 2013

• #10

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 ^^

 

Vote positif 0 Vote négatif