Ajout récupération données dans VBA

[JJ1]

Bonsoir,

J'utilise un code simple de copie de valeurs:

Sub Clic()
Dim B As Long, O As Integer
[CM1] = 0
Randomize
Application.Calculation = xlCalculationManual
B = 0
While B < 100
Application.Calculate
B = B + 1
If [CM3] > O Then
Range("U5:AD5").Copy
Range("U2").PasteSpecial Paste:=xlPasteValues
O = [CM3]: [CM1] = O
Randomize
[A1].Select
End If

'code à rajouter

Wend
End Sub

Je voudrais récupérer les 5 précédentes valeurs de la colonne précédant un 4 ou un 5 (colorié en jaune dans mon tableau) à partir de CR1.
J'ai mis un premier exemple pour la série en cours.

Le Do While va créer des nouvelles séries avec d'autres valeurs en colonne CM, je voudrais qu'elles s'ajoutent en CR à la queue-leu leu.
Je joins l'exemple. Le nombre de valeurs en CM est autour de 800 lignes (le nombre de 4 ou de 5 est variable dans la colonne suivant la série)

merci de votre aide car je n'y parviens pas.

Bonne soirée

 

[Kevin B]

Re : Ajout récupération données dans VBA

Bonjour,

Regarde si cette macro te conviens.

Cdt

Kevin

 

[JJ1]

Re : Ajout récupération données dans VBA

Bonjour Kevin,

Excuse-moi pour le temps à te répondre mais je n'étais pas chez moi.
J'ai appliqué ton code vba dans mon fichier et c'est parfait.
merci pour ton aide.

Bonne soirée