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

[trastrop]

bonjour,

je n'arrive pas à changer les noms des onglets
copier et coller dans l'autre feuille --> OK
mettre des cadres après copier c'est OK
protege la feuil1 je pense que j'arriverai mais par contre quand je protège la feuille 3 alors je n'arrive pas à copier et ni à coller
ppour la partie envoi mail je pense que j'arriverai

[alsimbad]

je n'arrive pas à changer les noms des onglets

double click sur le nom
clic droit : renommer
vba: worksheet(1).name = "nouveaunom"
recherche sur le forum en tapant "onglet renommer"
sérieusement, c'est agaçant. sans vouloir te faire la morale, je refuse pas de t'aider, c'est même de bon coeur, mais tu peux trouver ça tout seul sans beaucoup d'effort

quand je protège la feuille 3 alors je n'arrive pas à copier et ni à coller

essaye toi même, sur la page d'accueil du forum, tu trouve en haut a droite "recherche dans le forum"
tu tapes protection, et tu as la réponse
amicalement

[trastrop]

je sais que je ne suis unefleche en macro mais j'ai cherché longuement avant de vous poser la queston ....

Pour changement du nom d'un onglet: effectivement je sais faire en manuelle mais ce je cherche c'est plutot à l'ouverture du fichier

porteger la feuille, je sais faire en macro maise seulement à l'ouverture et au fermeture du fichier mais ce que je cherche c'est la suite de :

Code :

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

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

en parallèle c'est de protéger les données copier ... et ca je ne sais pas faire