Prendre la valeur de la cellule d'en dessous à chaque exécution Résolu

Question

Bonjour à tous ! 

Je suis nouveau sur le forum et j'ai une question qui n'a jamais été soumise il me semble. 

Voici pour l'instant mon code : 

Sub prévision()

    Range("I42").Select
    Dim n As Integer
    n = Workbooks("Rapport Quotidien.xlsm").Sheets("Prévi").Range("C5")
    Range("I42") = n
    
End Sub

Je cherche maintenant à ce qu'à chaque exécution, la valeur que prend I42 change avec la cellule d'en dessous, c'est à dire qu'elle prendra la valeur de C6, puis C7, puis C8 et ainsi de suite ... 

Si vous avez des solutions ou des pistes, personnellement je sèche complètement ... 
Merci !

ccm81 · Answer

Bonjour

' tu prends une cellule de service dans ta feuille Z1 par exemple
' au départ tu mets 5 la cellule Z1
' Z1 sera incrémentée à chaque exécution de la procedure prevision

Sub prévision()
Const cel = "Z1"
dim li as long
Dim n As Integer
li = Range(cel).value
n = Workbooks("Rapport Quotidien.xlsm").Sheets("Prévi").Range("C" & li)
Range("I42") = n
Range(cel).value=li+1
End Sub 
RQ. As tu besoin de préciser le classeur ?

Cdlmnt

ccm81 · Answer

De rien

Si c'est fini, merci de mettre le sujet à Résolu (en haut à droite de ton premier message)

Bonne fin de journée

Prendre la valeur de la cellule d'en dessous à chaque exécution

2 réponses

Discussions similaires

Newsletters