Report Donnees Sur Autres Colonne

LAMPOSKO à dit:

Merci Myrta de ton acceuil !!
effectivement le fichier est resté collé a mon Pc !!
en fait je ne trouve pas la manoeuvre adequate depuis la fenetre messages du forum ,,,pour envoyer le fichier !!
peux-tu me renseigner STP ...
Merci

Cliquez pour agrandir...

Sub test()
Dim x As Long
Dim Cel As Range
For Each Cel In Range("D3:K" & Range("D65536").End(xlUp).Row)
    If Cel > 0 And Cel < 37 Then
        Cells(Cel.Row, Cel + 13) = Cel.Value
        Cells(Cel.Row, Cel + 13).Interior.ColorIndex = 35
    Else
        Cel.Interior.ColorIndex = 4
    End If
Next Cel
End Sub

Gorfael à dit:

Salut
si tu ne maîtrise pas les macros, tu peux le faire par formule :
N3 : =SI(ESTNA(RECHERCHEH(N$2;$D3:$K3;1;0));"";RECHERCHEH(N$2;$D3:$K3;1;0))
Pour la couleur verte, une Mise en Forme conditionnelle avec
Condition 1
Case 1 : la formule est
Case 2 : N3<>""
Format : Fond Vert

Tu peux recopier la cellule sur la ligne 3 (jusqu'à la colonne pour 36)
En commençant par recopier en P3, remettre la bordure de gauche comme tu veux, copier jusqu'à 36 et remettre la bordure de droite pour finaliser,
et copier jusqu'en bas ta ligne de N3 à la colonne 36 sur toutes les autres lignes

ou par macro

Code:

Sub test()
Dim x As Long
Dim Cel As Range
For Each Cel In Range("D3:K" & Range("D65536").End(xlUp).Row)
    If Cel > 0 And Cel < 37 Then
        Cells(Cel.Row, Cel + 13) = Cel.Value
        Cells(Cel.Row, Cel + 13).Interior.ColorIndex = 35
    Else
        Cel.Interior.ColorIndex = 4
    End If
Next Cel
End Sub

A+

Cliquez pour agrandir...

LAMPOSKO à dit:

Merci infiniment Gorfael de ta reponse,,,
mais , je crois que je me suis peut-etre mal exprimé ,,En fait :
LES couleurs n'ont pas dimportance !! c'est juste pour vous expliquer visuellement ce que je voudrais obtenir
en fait , que les valeurs des cellulles de MA_PLAGE soient reportées sur la meme ligne (,Recopié) tout simplement dans sa colonne respective : exemple Le nombre 01 qui est en D:3 soit recopié en N:3
Le nombre 02 qui est en E:3 soit recopié en O:3
Le nombre 09 qui est en F:3 soit recopié en V:3
Etc..................................
Le nombre 36 qui est en K:3 soit recopié en AW:3
Ce sont les données que je voudrais reporter , de façon automatique dans le tableau de droite , ce tableau me sert a des fins de visualisation et me parait adapté a mes futurs recherches ,,
en tout cas merci encore si tu peux jeter un oeil a mon fichier joint, et maider a trouver la bonne formule
a plus !!

Cliquez pour agrandir...