Macro sur tableau excel

[pouchiou]

Bonjour à tous,

Je dois réaliser une macro qui modifie un tableau!
Le tableau d'origine comporte 11 colonne et le tableau final devra comporter 6 colonne. Voici la procédure à suivre !!!
-1ere colonne : ne pas modifier
-2eme colonne : ce sont des nombres qu'il faut mettre tous à 1 (attention le tableau peut etre de différente taille, il faut donc adapter)
-3 et 4eme colonne : à supprimer
-5eme colonne : la déplacer à la place de la 3eme colonne!
- 6 et 7eme colonne : à supprimer
- 8eme colonne : déplacer sur la 4eme colonne!
-9eme colonne : à supprimer!
-10eme colonne: à déplacer sur la 5ème colonne!
-11eme colonne : à déplacer sur la 6ème colonne!

Je suis débutant en macro et en visual basic donc si vous pourriez m'aider, çà serait sympa.
Merci beaucoup!!

 

[vbacrumble]

Re : Macro sur tableau excel

Bonjour

Si j'ai bien compris ce que tu veux faire

Voici une macro à tester

Sub Macro1()
Application.ScreenUpdating = False
Columns("E:E").Cut Destination:=Columns("C:C")
Columns("H:H").Cut Destination:=Columns("D:D")
Columns("J:J").Cut Destination:=Columns("E:E")
Columns("K:K").Cut Destination:=Columns("F:F")
Columns("G:I").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub

 

[soenda]

Re : Macro sur tableau excel

Bonsoir le fil, pouchiou, vbacrumble

Un autre essai, la première colonne du tableau est A

Sub b()

    ScreenUpdating = False

    Range("C2:C" & [B65536].End(xlUp).Row).Select

        [C2].Formula = "=IF(ISNUMBER(B2),1,"""")"
        [C2].AutoFill Selection, xlFillDefault
    
        Selection.Copy
        [B2].PasteSpecial xlPasteValues
        
    Range("C:D, F:G, I:I").Delete

End Sub

Le tableau final fait 6 colonnes et semble répondre aux critères ...

A plus

 

[pouchiou]

Re : Macro sur tableau excel

Bonjour

Si j'ai bien compris ce que tu veux faire

Voici une macro à tester

Sub Macro1()
Application.ScreenUpdating = False
Columns("E:E").Cut Destination:=Columns("C:C")
Columns("H:H").Cut Destination:=Columns("D:D")
Columns("J:J").Cut Destination:=Columns("E:E")
Columns("K:K").Cut Destination:=Columns("F:F")
Columns("G:I").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub

Merci pour ta réponse vbacrumble, ta macro est rapide, il y a bien 6 colonnes mais le problème est que la 2eme colonne ne comporte pas des 1 à toutes les lignes.

Idem pour soenda. C'est un peu mieux mais le problème réside dans le fait que les 1 (de la deuxième colonne) ne se mettent que s'il y avait un 0 avant.
Si l'ancienne ligne avait 0.61, ta macro la modifie mais ne met rien à la place.

Voilà merci quand même 🙂 !