Bonjour,
J'ai créé un code pour traiter les données d'une colonne, je souhaite que cette boucle réalise la meme opération dans les colonnes adjacentes.
J'ai selectionné la cellule de la colonne suivante mais je ne sais pas comment relancer ma boucle.
Le but final est de copier les données d'un tableau de X lignes et Y colonnes dans une autre colonne les unes après les autres :
en colonne U je souhaite avoir les données de la colonne F suivi des données de la colonne G etc...

Voici le bout de code créé:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Macro_Copie_Date() 
 Worksheets("ABC").Select
    Dim Rng As Range
    Dim j As Integer
    Dim i As Integer
    Dim EnfOfCells As Integer
 
    EndOfCells = 50
    i = 0
    j = 0
    Set Rng = Range("F1")
 
    For i = 0 To EndOfCells
        Rng = Rng.Offset(0)
        Rng.Offset(i, j).Select
        If IsDate(Rng.Offset(i, j).Value) Then  
            Rng.Offset(i, j).Copy
            ActiveCell.Offset(0, 15).Select
            ActiveCell.PasteSpecial xlPasteValuesAndNumberFormats
 
        End If
    Next i
    j = j + 1
    i = 0
    Rng.Offset(i, j).Select
Merci d'avance pour votre aide

If you fail to plan, you plan to fail