Copier ligne entier si plusieurs conditions

Bonjour

il existe plusieurs topic ou ce sujet est traité mais aucun ou plusieurs conditions sont demandés a la fois.

en feuil1 j ai une liste d elements , c est mon fichier de base .

en fonction de la reference se trouvant dans la collone E , je souhaiterais que la ligne soit copier dans un certain endroit.

si E = de 161961 a 161972 alors copier ligne en feuil2 de l1a l 13

si E = de 162961 a 162972 alors copier ligne en feuil2 de l19a l 35

si E = termine par 26 alors copier ligne en feuil2 de l43a l 46

si E = de 151961 a 151972 alors copier ligne en feuil3 de l7a l 19

si E = de 151971 a 151972 alors copier ligne en feuil3 de l21a l 139

pensez vous que ce soit possible avec autant de conditions

j ai essayé comme ca mais je ne m en sors pas

Sub Cherche_Copie_Ligne()

Dim strSearch

Dim rg As Range, rgF As Range

Dim i As Integer

Application.ScreenUpdating = False

strSearch = 161961

Application.ScreenUpdating = False

strSearch = 161962

'On défini ici la plage de cellules contenant les données

' comme étant la région autour de la cellule 1 (A1)

Set rg = Sheets("feuil1").Cells(1).CurrentRegion

merci a vous

Bonsoir,

pour déterminer ta ligne de destination tu peu utiliser un Select Case : :

tien un exemple d'utilisation de select Case :

Sub testCase()
Dim i As Integer
 i = InputBox("Valeur de i")
Select Case i
    Case 10 To 11
        MsgBox "10 to 11"
    Case 11 To 20
        MsgBox "11 to 20"
    Case Else
        MsgBox "Valeur incorrecte"
   End Select
End Sub

as toi de l'adapter en remplaçant la variable i par ton E et les msgbox par l'affectation du numéro de ligne de destination ...

Bonjour

Je te remercie de ta reponse mais je pense que je ne sais pas utiliser ta solution (je debute le vba donc mes bases sont fragiles ).

avec ta methode je pense que pour le resultats final on me demandera a chaque fois quel est la valeur que je veux classer alors que je souhaiterais que des que j ouvre le classeur ou que je remplace des lignes elles se classent toute seul.

je vous remercie de votre reponse si vous en voyez une