Discussion :

[Teckosse]

bonjour je n'arrive pas a modifier un code ,
explication :ce code permet de copier une plage de cellule dans une autre feuille avec condition
mais ce que je cherche ses la modifier pour copier cette feuille dans une feuille nommé 08 si la condition et 08 sans enlever la première condition
merci pour les personne qui pourrais m'aider
je vous joint le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim iHO As Long
Dim AG As Worksheet
Dim HO As Worksheet
Dim lastRow As Long
 Set AG = Worksheets("Transferes")
 Set HO = Worksheets("02")
 lastRow = AG.Cells(Application.Rows.Count, 1).End(xlUp).Row
 iHO = 1
 For iAG = 1 To 1198
 If AG.Cells(iAG, 20).Text = "02" Then
 AG.Range(iAG & ":" & iAG).copy HO.Cells(iHO, 1)
 iHO = iHO + 1
 End If
 Next

[Menhir]

Ta demande n'est pas claire mais à la lecture du code, je crois avoir compris.
Tu peux utiliser un Select Case plutôt qu'un If.
https://docs.microsoft.com/fr-fr/off...case-statement

Cela dit, si ta condition correspond au nom de ta feuille, il serait plus simple de ne pas mettre la référence de ta feuille dans une variable mais de l'appeler avec un Worksheets indicé avec la valeur de ta "condition".
Comme ça, tu n'aurais besoin ni de If, ni de Case.

[Teckosse]

je te remercie je vais lire le lien que tu ma donner

[unparia]

Bonjour
Juste au passage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AG.Range(iAG & ":" & iAG)

n'est rien d'autre que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AG.rows(iAG)

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function transfert(col, valsheet)
    Dim firstcell As Range
    With Sheets("Transferes")
        Set firstcell = .Columns(col).Find(valsheet, LookIn:=xlValues)
        If Not firstcell Is Nothing Then
            With .Range(firstcell, .Cells(Rows.Count, col).End(xlUp))
                .AutoFilter Field:=1, Criteria1:=valsheet
                .EntireRow.Copy Sheets(valsheet).Cells(1, 1)
                .AutoFilter
            End With
        End If
    End With
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test()
transfert 20, "02" 'tranfert les lignes avec "02" en colonne 20 du  sheets("tranferes") dans le sheets("02")
transfert 20, "08" 'tranfert les lignes avec "08" en colonne 20 du  sheets("tranferes") dans le sheets("08")
End Sub

[Teckosse]

bonjour patricktoulon ton code fonctionne a la perfection et me fait économiser des feuil et macros