Discussion :

[MatAir]

Bonjour,
j'ai une feuille excel contenant dans une seule colone des données regroupées en bloc de 3:

nom1
valeur1.1
valeur1.2
nom2
valeur2.1
valeur2.2

Je voudrais etre en mesure de copier ce bloc de 3 cellules dans une autre colone de façon a avoir cette structure

nom1 nom2
valeur1.1 valeur2.1
valeur1.2 valeur2.2

comment je pourrais procéder
merci d'avance

[mercatog]

Bonjour

Une proposition

Données initiales: A2:Ax (avec x=3n+1, n: nombre de groupes) et en A1 titre de la colonne. Ici tu peux adapter

Les groupes sont composés par 3 cellules

Adapte le nom de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim LastLig As Integer, i As Integer
 
Application.ScreenUpdating = False
With Sheets("Feuil6")                            ' à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 7 Step -3
        .Range(.Cells(i - 2, 1), .Cells(i, 1)).Cut
        .Range("B2:B4").Insert
    Next i
End With
End Sub

PS: Attention quand même si le nombre de groupes dépasse le nombre de colonnes maximales de ta feuille.

[MatAir]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim LastLig As Integer, i As Integer
 
Application.ScreenUpdating = False
With Sheets("Feuil6")                            ' à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 7 Step -3
        .Range(.Cells(i - 2, 1), .Cells(i, 1)).Cut
        .Range("B2:B4").Insert
    Next i
End With
End Sub

Si je comprends bien le Lastlig va chercher la dernière ligne avec des données
mais pourquoi le 7, si je veux que l'opération se fasse pour tout les groupe de 3 sauf le premier je devrais mettre 4(je n'aie pas d'entête)????

Dernier point je voudrais que le troisième groupe soit dans la colone C le 4e dans la colone D. A première vu, on dirait que le code va copier le groupe de 3 toujours dans la colone B et toujours dans les 3 même cellules??

merci pour ton aide
mathieu

[mercatog]

Si tes données commencent en A1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim LastLig As Integer, i As Integer
 
Application.ScreenUpdating = False
With Sheets("Feuil6")                                                ' à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 6 Step -3
        .Range(.Cells(i - 2, 1), .Cells(i, 1)).Cut
        .Range("B1:B3").Insert
    Next i
End With
End Sub

Pourquoi j'arrête en ligne 6?
Je ne veux pas traiter le premier groupe

PS
Je copie le dernier groupe en B, j'insère une colonne (le dernier devient en C) et je copie l'avant dernier groupe en B...etc

[MatAir]

Bon,
Je vois bien que mon dernier message, que je viens d'effacer, était mal ciblé.

With Sheets("Feuil6")

C'est la ligne qui pose problème, j'ai essayé avec le nom de la feuille(celui que je lui aie donné) et le nom par défaut et aucun des 2 fonctionnent

je reçois l'erreur d'exécution 9 - L'indice n'appartient pas à la sélection

Étant donné que je ne connais pas grand chose a vba, je lance simplement ma routine "dans la feuille" voir l'image ci-joint

Je sais pas si je suis plus clair
merci

[mercatog]

Selon ton image

Code :

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

With Sheets("2004")

ou bien

Code :

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

With Feuil6

[MatAir]

J'ai essayé les 2 et aucun ne fonctionnait, j'ai modifié le code de façon à ne pas avoir besoin de cette ligne. Par contre, après avoir rouler la routine pas à pas, la ligne 9 pose problème.
J'ai réussi à copier quelques paquet de 3 cellules mais là j'ai une

erreur d'exécution 1004
erreur défini par l'application ou l'objet.

J'ai placé des espions et il prend bien la dernière cellule, le i se décrémente bien mais là je suis bloqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim LastLig As Integer, i As Integer
 
Application.ScreenUpdating = False
                                              ' à adapter
    LastLig = Feuil6.Cells(Feuil6.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 6 Step -3
        Feuil6.Range(Feuil6.Cells(i - 2, 1), Feuil6.Cells(i, 1)).Cut
        Feuil6.Range("B1:B3").Insert
    Next i
 
End Sub

Encore merci
Prend ton temps pour répondre je part pour la fin de semaine

[MatAir]

Bon j'ai trouvé,

je sais pas pourquoi mais il considèrait que les cases vides étaient utilisé donc le nombre de colones maximum était atteint