Discussion :

[trastrop]

Bonsoir,

J'ai un petit script qui permet de copier et coller sur la feuil3 en fonction de la liste. Mais mon soucis c'est que je n'arrive retirer dans la feuil3 une fois copier en changeant le choix de la liste. Je ne sais pas si j'ai bien expliquer mais je vous envoie un exemple pour mieux illustrer mon exemple


merci d'avance

[alsimbad]

Salut
j'ai modifié un peu ton code, parce que je suis gentil et que c'est le week end et que c'est ton premier post, mais si tu as besoin de nouveau du forum, ça serais bien de respecter une regle de base
aide toi, le forum t'aidera, commence par montrer ou tu en es et pourquoi tu n'y arrive pas, on te dira pourquoi ça coince et comment décoincer.
bon week end

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2:E65536")) Is Nothing Then
With Sheets("Commande traitée")
ligvide = .Range("B65536").End(xlUp).Row
    If Target.Value = "A transferer" Then
    .Cells(ligvide, 2) = Target.Offset(0, -4).Value
    .Cells(ligvide, 3) = Target.Offset(0, -3).Value
    .Cells(ligvide, 4) = Target.Offset(0, -2).Value
    .Cells(ligvide, 10) = Target.Offset(0, -1).Value
    End If
    If Target.Value = "A faire" Then
        For i = ligvide To 2 Step -1
            If .Cells(i, 2) = Target.Offset(0, -4).Value Then
            .Rows(i).Delete
            End If
        Next i
    End If
End With
End If
End Sub

[trastrop]

juste une petite question ...

comment pourrai je faire les bordures une fois copier c'est à dire via le code cidessous je peux copier coller dans la feuil3 en fonction de la selection dans la feuil1 et je voudrais rajouter les bordures pour synthetiser.
Il faut egalement supprimer les bordures qu'on je deselectionne.

j'ai essayé d'utliser la fonction "enregistrer un macro " et enseuite injecter dans le macro mais no good.

merci

[alsimbad]

rajoutes cette ligne

Code :

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

1
2
 
 .Range(.Cells(ligvide, 1), .Cells(ligvide, 15)).Borders.LineStyle = xlContinuous

[trastrop]

je preparer un fichier avec tt mes bespoins ...


merci d'avance pour ton aide

[alsimbad]

hello
ça tombe bien, j'avais rien a faire de mon dimanche !
je te renvoie a mon premier post

aide toi, le forum t'aidera, commence par montrer ou tu en es et pourquoi tu n'y arrive pas