NE TROUVE PAS L 'ERREUR

BONSOIR

je ne trouve pas l'erreur dans ce code , qui ne pas répond correctement

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Not Intersect(Range("E2:E21"), Target) Is Nothing And Target.Count = 1 Then
        With Sheets("Feuil1")
          .Range("C21") = IIf(.Range("C21") >= 10, 22, .Range("C21") + 1)
            .Cells(.Range("C21"), 3) = Target.Value
        End With
      End If
    End Sub

pour ce que je comprend , je reccupère des donnée sur la plage E2 à E21 d'une feuille de calcul sur laquelle le code precédent figure, celles ci sont renvoyée en feuille 1 à partir de la cellule C22 , colonne 22 , ligne 3 , probleme : je n'arrive pas à faire apparaitre les autres valeurs saisies dans la plage E2:E21 sur la feuille 1 , il y a un truc qui m'echappe !!!

merci pour votre contribution sans vraiment vouloir etre embettant !

Salut le forum

.Range("C21") = IIf(.Range("C21") >= 10, 22, .Range("C21") + 1)

Tu comprends cette fonction !!!!

Si C21 >=10 alors C21=22 sinon C21=C21+1

Tu vas toujours écrire sur la ligne 22 car 22 est plus grand que 10

.Cells(.Range("C21"), 3)

Equivault à ligne C21, colonne 3

Mytå

merci pour ta réponse

en corrigeant si j'ecris :

.Range("C21") = IIf(.Range("C21") >= 100, 22, .Range("C21") + 1)

est ce que cela serait correct ?

merci pour ton intervention , c'est résolu je commencait à desesperer !!!!

j'avoue ne pas etre une bonne interface entre la chaise et le clavier d'ou le bug