Copier une cellules (si)

[Olyxier]

Bonjour le forum

voilà je cherche à recopier une cellule dans une autre à condition que le chiffre 1 soit dans la cellule.
imaginons 20 valeur que je tris dans un ordre croissant ces 20 valeur ce trouvent dans la collone A dans la collone B se trouve les resultat du tris donc de 1 à 20 et je souhaite recopier dans la colonne D les trois valeurs qui sont les plus petites dans la colonne A donc qui ont obtenue le N°1 ;N°2 ;N°3 dans la colonne B

pour cela j'utilise ce code

Private Sub Worksheet_Change(ByVal Target As Range)

If Test = True Then Exit Sub
Test = True
If Target.Address(0, 0) = "B1" Then

Select Case Range("B1").Value

Case 1
Range("A1").Copy Range("D3")
End Select
Case 2
Range("A1").Copy Range("D3")
End Select
Case 3
Range("A1").Copy Range("D3")
End Select
End If

Test = False 'redéfinit la variable test


End Sub

MAIS ce code ne marche pas car j'utilise un code automatique qui met les chiffres de 1 à 20 dans la colonne B et on dirait que le code precedent
ne retouve pas le 1 dans ce cas là car si je place un 1 a la place de celui du tris automatique ca marche donc quel est la solution
Merci à vous est bon dimanche

 

[wilfried_42]

Re : Copier une cellules (si)

salut à toi

je viens de te lire, ???? tu mets un end select apres chaque case ?????

salutations

 

[Olyxier]

Re : Copier une cellules (si)

OUI cela ne sert à rien mais c'est pas ca le probleme car là j'ai juste fais copier coller de la premiere fonction et j'ai oublier du supprimer end select

 

[Pierrot93]

Re : Copier une cellules (si)

Bonjour Olyxier, Wilfried

j'ai pas tout compris de ton problème, de ton code non plus d'ailleurs, peut être qu'un fichier nous aiderait à t'aider...

Bon dimanche
@+