Etape 4

voila en en voit le bout du tunnel

apres cette etape 4 il ne restera que une seule etape

etape 4

en E11 si jindique le chiffre 0

il mettra en G11 a L11 les chiffres suivant 32-26

si je met en E13 le chiffre 6

il mettra en G13 a L13 les chiffres suivants 27-34-9-22-31

il va chercher ces chiffre en FEUIL2

PS: une chose importante je peut effacer uniquement les chiffres

en E11 et E13

merci pour votre aide

bonsoir si vous avez des question sur l'etape 4 surtout n'hesitez pas

apres il ne reste que une seule etape please

Bonsoir,

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("E11,E13")) Is Nothing Then
    If Len(Target) = 0 Then
      Target.Offset(0, 2).Resize(1, 5).ClearContents
    Else: Target.Offset(0, 2).Resize(1, 5) = Sheets(2).Cells(Target.Value + 1, 2).Resize(1, 5).Value
    End If
  End If
End Sub

Cdt,

Darzou

Bonjour

s'il vous plait vous pouriez me coller le code

je ne sait pas comment on fait merci

voici le fichier ou vous pouvez coller le code pour l'etape 4

merci pour votre comprehension

Alt + F11 et vous copiez le code dans le module de la feuille.

Cdt,

Darzou

meci mais c'est quoi le module de la feuille?

vous pouvez pas me le faire merci

non c'est bon jai réussit milles merci

jouvre un autre fil pour la derniere étape encore merci

pour votre aide et votre patience

angel09 a écrit :

meci mais c'est quoi le module de la feuille?

Après plus de 300 messages sur le forum, je pense qu'il serait temps que vous trouviez par vous même une réponse à cette question.

Je ne peux malheureusement rien faire de plus pour vous sans signe de bonne volonté de votre part...

Cdt,

Darzou

Edit:

Ce n'était pas si difficile après tout...