Probleme Boucle Excel

Résolu
Marco -  
 Marco -
Bonjour,

Je souhaite bouclé ce programme jusqu'à temps qu'il n'y est plus rien dans "Liste"A+21
Quelqu'un peut me montrer comment faire ??

Sub tri2()
'
'
Sheets("Liste").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tri").Select
Range("E1").Select
ActiveSheet.Paste

Sheets("Liste").Select
Range("A23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tri").Select
Range("E2").Select
ActiveSheet.Paste

Sheets("Liste").Select
Range("A44").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tri").Select
Range("E3").Select
ActiveSheet.Paste

...

End Sub

A voir également:

4 réponses

Réponse 1 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,

Pas compris ceci: A+21 ???

Merci d'avance
Michel
Vous programmez en VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...(P. Fauconnier/dvp)
1
Réponse 2 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
proposition de macro 

Option Explicit

Sub trier2()
Dim lig1 As Long, lig2 As Long

Application.ScreenUpdating = False
With Sheets("liste")
    lig2 = 1
    For lig1 = 2 To 655536 Step 21
        If IsEmpty(.Cells(lig1, "A")) Then
            Exit For
        Else
            Sheets("tri").Cells(lig2, "E") = .Cells(lig1, "A")
            lig2 = lig2 + 1
        End If
    Next
End With

Sheets("tri").Activate
End Sub
1
Marco
 
Parfait ca marche.
Merci beaucoup de ton aide.
0
Réponse 3 / 4
Marco
 
Bah en faite dans ma feuill "Liste" je veux copier la celulle A2,A23,A44,...(A2+21,A23+21,...)
0
Réponse 4 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
re,

tu souhaites recopier que les valeurs ou tout (formules, formats....) ?
0
Marco
 
Re,
Les valeurs devrait me suffir je pense !
0