Deplacement d'une cellule coloree

Bonjour a tous,

J'ai grand besoin de vos services.

Soit une jolie feuille d'Excel où dans la la première colonne j'ai coloré en jaune une cellule numérotée , il me serai maintenant bien agréable de voir cette cellule déplacée a gauche et recopiée jusqu'au numéro suivant ....

Je joins un fichier pour une explication plus claire avec ce que j'ai et ce que j'aimerai arriver a la fin

Merci par avance

doz

bonjour,

mets-nous un fichier excel plutôt qu'un fichier pdf dont on ne peut rien faire.

Bonjour, Salut h2so4 !

Déplacer à gauche une cellule de la première colonne me paraît hasardeux !

je vous joints le fichier en format .xls

Bonjour,

une proposiiton

Sub aargh()
    With Sheets("ex ")
        .Columns("F:J").Delete shift:=xlToLeft
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To dl
            If Left(.Cells(i, 1), 6) = "Numéro" Then
                Set num = .Cells(i, 1)
            Else
                k = k + 1
                num.Copy .Cells(k, 6)
                .Cells(i, 1).Resize(, 4).Copy .Cells(k, 7).Resize(, 4)
            End If
        Next i
        .Columns("A:E").Delete shift:=xlToLeft
        .Columns("A:E").AutoFit
    End With
End Sub

Merci pour cette réponse rapide h2so4 mais cela ne marche pas!

Enfin je ne suis pas un pro du VBA voila comment j'ai procédé: j'ai ouvert la fenêtre visual basic puis j'ai fais insertion module. et j'ai copié ton code

j'ai cliqué sur macro et effectivement le nom que tu lui as donné apparait mais rien ne se passe.... mauvaise manip de ma part?

bonsoir,

je te confirme que cette macro fonctionne sur le fichier que tu as fourni.

mets-nous ton fichier avec la macro que tu y as copiée.

Bonjour h2so4,

Effectivement ton code marche bien sur l'exemple tronqué que j'ai fourni (fichier EX.xls), je pensais qu'il était représentatif de mon fichier reel.

Je te joins un fichier EX3.xls plus proche de la réalité, avec dans mon fichier reel de plus nombreux numéros en colonne que j'ai supprimé pour l'exemple, d'où mon désir d'automatiser cette tache.

Merci par avance de ton aide.

doz

Bonjour,

voici le code adapté

Sub aargh()
    With Sheets("Feuil2") 'nom de la feuille à adapter
        .Columns("G:N").Delete shift:=xlToLeft
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To dl
            If Left(.Cells(i, 1), 6) = "Numéro" Then
                Set num = .Cells(i, 1)
            Else
                k = k + 1
                If .Cells(i, 1) <> "Type" Then num.Copy .Cells(k, 7)
                .Cells(i, 1).Resize(, 4).Copy .Cells(k, 8).Resize(, 4)
            End If
        Next i
        Exit Sub 'supprimer cette instruction pour enlever les colonnes A à F
        .Columns("A:F").Delete shift:=xlToLeft
        .Columns("A:F").AutoFit
    End With
End Sub

Hello

Je te confirme que ton code marche bien pour le ficher exemple que j'ai envoyé mais pas pour mon classeur!

je ne connais pas VBA mais je suppose que la feuille A se mon classeur doit être adapté à ta 1ère ligne "With Sheets("FeuilA")" mais cela ne marche pas, peut tu me dire comment procéder ?

Merci encore

re-bonjour,

quel est le nom de la feuille ?

A ?

feuille A ?

feuilA ?

autre ?

L'onglet du fichier est nommé 2017 (3)

re-bonjour,

c'est ce nom que tu dois mettre dans l'instruction à la place de Feuil2

With Sheets("Feuil2")

C'est bien ce que j'ai fait mais cela ne marche pas, j'ai renomme l'onglet "Z" et réécrit (" FeuilZ ") dans le code sans succès je ne comprends pas

re-bonjour,

si ton onglet s'appelle Z tu mets Z et pas feuilZ

En fait l'erreur venait DE mes cellules que je n'avaient pas dans les bonnes colonnes.

Le code que tu m'as trouvé va me faire gagner un temps fou et cela me donne envie de comprendre comment fonctionne VBA qui semble extraordinaire

Merci encore h2so4 pour ton aide précieuse