Comment Transfer des donnée a un emplacement a un [Résolu] - Forum Excel

Comment Transfer des donnée a un emplacement a un Transfer de données portable>portable (Résolu) » Forum - Windows Problem transfer de donnee xp vista (Résolu) » Forum - Windows XP Transfer de données (Résolu) » Forum - Windows Transfer de données (Résolu) » Forum - Nokia Transfer de données d'un PC vers un portable » Forum - Windows

span luky123654 34 réponses

Bonjour,
bonjour je voudrais faire pour trier des donner
je voudrais faire la ligne 11 change tous les mois
ligne 10 elle ne change jamais mais les jours vont a d outre emplacement.
comme le ligne 11 - 0 = T00 9 = T09
ex 1 en E10 vas en E7
ex 3 en G10 vas en F7
ex 4 en H10 vas en AL2
ex 2 enb F10 vas en AK2
la ligne 11 elle elle change tous les moi
que on serais faire une VBA
bien a vous
luky https://mon-partage.fr/f/zCLgQ0nN/



Tag:

Forum

Comment Transfer des donnée a un emplacement a un Transfer de données portable>portable (Résolu) » Forum - Windows Problem transfer de donnee xp vista (Résolu) » Forum - Windows XP Transfer de données (Résolu) » Forum - Windows Transfer de données (Résolu) » Forum - Nokia Transfer de données d'un PC vers un portable » Forum - Windows

Web: www.shapebootstrap.net

34 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

pourquoi le 1 va-t-il en E7?

Merci yg_be 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 22522 internautes ce mois-ci

Reply
réponses:

  • luky123654 on 10 juin 2018 à 18:25

    parce-que la ligne 11 E es 0 et ue la ligne 10 il y a 1 alorq il dois aller en E7 car 0 = aT00

  • yg_be on 10 juin 2018 à 18:33

    dans le fichier que tu as envoyé, il y a partout 0 en ligne 11.

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

bonjour, as-tu commencé à apprendre le VBA?

Reply
réponses:

  • luky123654 on 10 juin 2018 à 17:19

    je connais LE V B A une partie des pour cette formule une ma donner la formule SI il faut pas de V B A
    tu croie que si on cest le faire par V B A?

  • yg_be on 10 juin 2018 à 18:34

    je pense que tu dois utiliser VBA pour faire ce travail.

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

voila le fichier
bien a toi luky

https://mon-partage.fr/f/v1CfXAKh/

Reply
réponses:

  • yg_be on 10 juin 2018 à 19:46

    il y a encore partout 0 en ligne 11, sans doute à cause de la fonction nvert.

  • luky123654 on 10 juin 2018 à 20:03

    sur man avec le calcul de couleur des formule
    voila la preliere partie

    https://mon-partage.fr/f/tmdqblFU/
    tu ces faire les deux ??? comme sa tu comprend mieux

  • yg_be on 10 juin 2018 à 21:56

    maintenant c'est clair, as-tu une idée de comment utiliser vba pour cela?
    pourquoi 29 en E2?

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

les couleur sa vas mais le problème la ligne 11 es en formule non je ne ces pas
le 29 ces le seul qui a 10 couleur

Reply
réponses:

  • luky123654 on 10 juin 2018 à 23:48

    ces pour un 10 es un exemple car on fait 9 machine par jour

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

je propose ce code, qui s'occupe uniquement de T09: 

Sub luky9() 'T09 AK2 Dim cible As Range Dim ncol As Integer Dim fl As Worksheet Set fl = Sheets("travail") Set cible = fl.Cells(2, "ak") For ncol = 5 To 35     If fl.Cells(11, ncol) = 9 Then         cible.Value = fl.Cells(10, ncol)         Set cible = cible.Offset(0, 1)     End If Next ncol End Sub

peux-tu le tester?

Reply
réponses:

  • auteur on

  • luky123654 on 12 juin 2018 à 07:39

    bonjour
    super sa marche bien merci tu vas faire la suite
    tu es sympas
    bien à toi
    luky

  • yg_be on 12 juin 2018 à 08:39

    je vais faire la suite

  • luky123654 on 12 juin 2018 à 18:12

    bonjour
    cool bonne journée et un grand merci

  • yg_be on 12 juin 2018 à 19:25

    voilà: 

    Sub lukytout() Dim fl As Worksheet Set fl = Sheets("travail") Call luky1(fl, fl.[e2], 10) Call luky1(fl, fl.[e3], 8) Call luky1(fl, fl.[e4], 6) Call luky1(fl, fl.[e5], 4) Call luky1(fl, fl.[e6], 2) Call luky1(fl, fl.[e7], 0) Call luky1(fl, fl.[ak2], 9) Call luky1(fl, fl.[ak3], 7) Call luky1(fl, fl.[ak4], 5) Call luky1(fl, fl.[ak5], 3) Call luky1(fl, fl.[ak6], 1) End Sub Private Sub luky1(feuille As Worksheet, endroit As Range, valeur As Integer) Dim ncol As Integer For ncol = 5 To 35     If feuille.Cells(11, ncol) = valeur Then         endroit.Value = feuille.Cells(10, ncol)         Set endroit = endroit.Offset(0, 1)     End If Next ncol End Sub

  • luky123654 on 12 juin 2018 à 19:21

    j ais vue que si tu enlever les 3 première ligne et tu change les valeur 9 a 10 et tu mais le reste tu c'est tous faire super je teste j ais essayer avec 10 ,9, 8 et sa marche .ces super .
    je vais avec le tien si tu a envie de le faire après j ais une autre question merci .tu ma donner la joie
    bien à toi
    luky

  • luky123654 on 13 juin 2018 à 19:45

    bonjour
    sa marche bien merci
    une question si je devrais faire sur plusieurs feuille sa pourrais marcher et que les feuille L1 M1 K1 marcel luky
    bien à toi
    luky

  • yg_be on 13 juin 2018 à 20:11

    peut-être ainsi: 

    Sub lukytout() Call lukyfl(Sheets("travail")) Call lukyfl(Sheets("L1")) Call lukyfl(Sheets("M1")) Call lukyfl(Sheets("K1")) End Sub Private Sub lukyfl(fl As Worksheet) Call luky1(fl, fl.[e2], 10) Call luky1(fl, fl.[e3], 8) Call luky1(fl, fl.[e4], 6) Call luky1(fl, fl.[e5], 4) Call luky1(fl, fl.[e6], 2) Call luky1(fl, fl.[e7], 0) Call luky1(fl, fl.[ak2], 9) Call luky1(fl, fl.[ak3], 7) Call luky1(fl, fl.[ak4], 5) Call luky1(fl, fl.[ak5], 3) Call luky1(fl, fl.[ak6], 1) End Sub Private Sub luky1(feuille As Worksheet, endroit As Range, valeur As Integer) Dim ncol As Integer For ncol = 5 To 35     If feuille.Cells(11, ncol) = valeur Then         endroit.Value = feuille.Cells(10, ncol)         Set endroit = endroit.Offset(0, 1)     End If Next ncol End Sub

  • luky123654 on 13 juin 2018 à 20:40

    salut il y a sa qui bloc
    Private Sub luky1(feuille As Worksheet, endroit As Range, valeur As Integer)
    luky

  • yg_be on 13 juin 2018 à 20:52

    il faudra que tu m'en dises plus, ou que tu partages le fichier.
    un message d'erreur?

  • luky123654 on 14 juin 2018 à 20:25

    OK je envoie le teste 3 pour moi comme sa j ais des modules pour moi travailler avec les ouvriers et mes machine
    je peux faire par nom par mois et c'est bien tu m'aide et je et apprend les V B A moi avant je fessais V B A aller sur crée une macro et je passais des heures mais des foie les fichier avais dure quand activais
    je voie avec toi tu a moin de ligne que moi et sa vas plus vite .
    bien de m ' aider
    https://mon-partage.fr/f/dqwyHs2m/
    luky

  • yg_be on 14 juin 2018 à 20:34

    il y a une ligne "end sub" en trop à la fin de ton module.

  • luky123654 on 15 juin 2018 à 22:13

    Ouï tu as raison je regarde ce weekend passe un bon weekend luky

  • luky123654 on 17 juin 2018 à 00:31

    je me demande comment je pourrais faire que tous les T10 soie ensemble
    ex T 10 de L1 +M1+K1 les 3 pages vas dans la feuille 4/3 sur une seul ligne en A1
    T09 de L1+M1+K1 les 3 pages vas dans la feuille 4/3 sur une seul ligne en A2
    les trois sur une seul ligne en T10
    l1 T10= 3-4
    M1 T10= 6-8
    K1 T10=7-9
    feuilles 4-3 T10 3-4-6-8-7-9
    es que ces possible en VBA
    bien à toi
    luky

  • yg_be on 17 juin 2018 à 09:17

    oui, c'est possible.

  • luky123654 on 17 juin 2018 à 12:04

    Cool bonjour tu serais le faire pour moi bon dimanche luky

  • yg_be on 17 juin 2018 à 17:23

    peux-tu m'envoyer un fichier d'exemple?

  • yg_be on 17 juin 2018 à 18:20

    peut-être ainsi (attention de mettre le nom de la feuille de destination à la place de "4d3": 

    Option Explicit Const lfl As String = "L1,M1,K1" Const dest As String = "A1,A2" Const src As String = "E2,AK2" Const fdest As String = "4d3" Sub rass() Dim fls() As String, shs() As Worksheet, dests() As String, srcs() As String Dim i As Integer, nf As Integer, nc As Integer, j As Integer Dim cible As Range, source As Range fls = Split(lfl, ",") nf = UBound(fls) ReDim shs(nf) For i = 0 To nf     Set shs(i) = Sheets(fls(i)) Next i dests = Split(dest, ",") srcs = Split(src, ",") nc = UBound(dests) For j = 0 To nc     Set cible = Sheets(fdest).Range(dests(j))     For i = 0 To nf         Set source = shs(i).Range(srcs(j))         Do While source.Value <> ""             cible.Value = source.Value             Set cible = cible.Offset(0, 1)             Set source = source.Offset(0, 1)         Loop     Next i Next j End Sub

  • luky123654 on 17 juin 2018 à 18:24

    ok voila le tableau

    https://mon-partage.fr/f/vKWPJW1X/

    ex T 10 de L1 +M1+K1 les 3 pages vas dans (la feuille total) sur une seul ligne en A1
    T09 de L1+M1+K1 les 3 pages vas dans( la feuille total) sur une seul ligne en A2
    les trois sur une seul ligne en T10
    l1 T10= 3-4
    M1 T10= 6-8
    K1 T10=7-9
    feuilles total T10 3-4-6-8-7-9
    jais mis les couleur pour toi voir
    bien à toi
    luky

  • yg_be on 17 juin 2018 à 18:40

    alors, ainsi: 

    Option Explicit Const lfl As String = "L1,M1,K1" Const dest As String = "E3,E4,E5,E6,E7,E8,E9,E10,E11,E12,E13" Const src As String = "E2,AK2,E3,AK3,E4,AK4,E5,AK5,E6,AK6,E7" Const fdest As String = "total" Sub rass() Dim fls() As String, shs() As Worksheet, dests() As String, srcs() As String Dim i As Integer, nf As Integer, nc As Integer, j As Integer Dim cible As Range, source As Range fls = Split(lfl, ",") nf = UBound(fls) ReDim shs(nf) For i = 0 To nf     Set shs(i) = Sheets(fls(i)) Next i dests = Split(dest, ",") srcs = Split(src, ",") nc = UBound(dests) For j = 0 To nc     Set cible = Sheets(fdest).Range(dests(j))     For i = 0 To nf         Set source = shs(i).Range(srcs(j))         Do While source.Value <> ""             cible.Value = source.Value             Set cible = cible.Offset(0, 1)             Set source = source.Offset(0, 1)         Loop     Next i Next j End Sub

  • luky123654 on 20 juin 2018 à 00:11

    bonjour je voudrais sa voir si possible

    Function Couleur(cl As Range) As Long
    Application.Volatile
    Couleur = cl.Interior.ColorIndex
    End Function
    Function NVert(cl As Range) As Integer
    Application.Volatile
    Dim cel As Range
    NVert = 0
    For Each cel In cl
    If Couleur(cel) = 14 Then
    NVert = NVert + 1
    Else
    Exit For
    End If
    Next
    End Function

    j ais sa pour calculer les couleur
    mais quand je fait insertion de ligne sur la ligne 12
    la macro fait le calcul de nv vert (E13 au lieu de E12
    tu serais faire quelque chose
    un grand merci d avance
    luc
    voici le tableau
    Et qui aussi pour L1 M1 K 1
    https://mon-partage.fr/f/Ac8aF2JD/

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

super j'ais mis dans les case et sas marche bien merci

Reply

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed