Amélioration Code [Résolu/Fermé]

Signaler
Messages postés
112
Date d'inscription
mercredi 27 juillet 2016
Statut
Membre
Dernière intervention
2 juin 2020
-
Messages postés
112
Date d'inscription
mercredi 27 juillet 2016
Statut
Membre
Dernière intervention
2 juin 2020
-
Bonjour,

J'aimerais ajouter des colonnes et réorganiser le résultats du code suivant :

Set ws = Sheets("Edit")
        For col = 0 To UBound(cls)
            ws.Cells(1, col + 1).Value = wo.Cells(1, cls(col)).Value
        Next col
        ws.[A1].Activate
    End If
    On Error GoTo 0
    lgs = ws.UsedRange.Rows.Count + 1
    For lgo = 2 To wo.UsedRange.Rows.Count
        If LCase(wo.Cells(lgo, "AE")) = "récolte" _
            And wo.Cells(lgo, "BU") > 0 _
            And LCase(wo.Cells(lgo, "G")) = "vert" Then
                For col = 0 To UBound(cls)
                    ws.Cells(lgs, col + 1).Value = wo.Cells(lgo, cls(col)).Value
                    Next col
                lgs = lgs + 1
        End If
        Next lgo


Le résultat donnerait :
A : données de la B
B : Date du jour
C : données de la colonne G
D : colonne vide avec pour titre "Numéro"
E : concaténer(j; " "; i)
E : données de la colonne BU
G : colonne contenant "date du" & format(Month(Date) - 1;"mm-yyyy")
H : données de la B

Merci pour votre aide, et bonne année!


1 réponse

Messages postés
112
Date d'inscription
mercredi 27 juillet 2016
Statut
Membre
Dernière intervention
2 juin 2020
1
Oups,
Il s'agit d'Excel
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 683
Bonjour,

La VBA c'est ici, ça concerne Excel, Word, PowerPoint, Outlook, ....
Messages postés
112
Date d'inscription
mercredi 27 juillet 2016
Statut
Membre
Dernière intervention
2 juin 2020
1
Merci Patrice33740,
J'ai préféré préciser en voyant les demandes sur d'autres discussions.
Bonne fin de journée,
PS : Si tu veux bien m'aider, je viens d'ouvrir un poste :) Merci d'avance.