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

Résolu/Fermé
swordi59 Messages postés 2 Date d'inscription lundi 15 juin 2015 Statut Membre Dernière intervention 15 juin 2015 - 15 juin 2015 à 16:23
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 15 juin 2015 à 17:22
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 !

2 réponses

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 15/06/2015 à 17:04
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
0
swordi59 Messages postés 2 Date d'inscription lundi 15 juin 2015 Statut Membre Dernière intervention 15 juin 2015
15 juin 2015 à 17:18
Merci beaucoup ! ça fonctionne !

Non je n'ai pas besoin de préciser effectivement.

Cordialement
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
15 juin 2015 à 17:22
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
0