Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Anomalies sur fichier de suivi


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau Candidat au Club
    Anomalies sur fichier de suivi
    Bonjour les exceliens

    D'abord je vous remercie pour ce magnifique forum, que je trouve très intéressant
    Secondo, j'aimerai bien avoir votre aide pour corriger mon fichier et l'améliorer.
    Je suis débutante en excel Vba et j'ai essayé de créer un fichier de suivi budgétaire
    L'idée est que quand il y aura une demande d'achat je vais ouvrir le fichier , onglet "order" remplir l'userform avec les données et le tableau sera rempli.
    Donc 1er problème le tableau ne se remplit pas complètement, il y a des colonnes qui restent vides
    Deuxième question: est-il possible d'ajouter un code pour actualiser les TCD automatiquement sans être obligé de partir à chaque fois et cliquer sur actualiser tout
    3ème et dernière question je pense rajouter une colonne où je vais mentionner "validé" ou "non validé", possible aussi d'automatiser ça sans etre obligé de partir sur l'onglet "suivi budgétaire" et vérifier si j'ai le budget ou pas
    je sais pas si j'étais assez claire, j'essaye le max d'automatiser ce suivi, donc si vous avez des propositions ou des idées n'hésitez pas à les partager avec moi

    Merciii d'avance

  2. #2
    Membre expert
    salam / bonjour
    commencer par çà :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sheets(3).Range("b" & DL) = Me.Label_info.Caption
    Sheets(3).Range("c" & DL) = CDate(Now)
    Sheets(3).Range("d" & DL) = Me.list_order.List(ligne, 0)
    Sheets(3).Range("e" & DL) = Me.list_order.List(ligne, 1)
    Sheets(3).Range("f" & DL) = CCur(Me.list_order.List(ligne, 2))
    Sheets(3).Range("g" & DL) = CInt(Me.list_order.List(ligne, 3))
    Sheets(3).Range("h" & DL) = Me.list_order.List(ligne, 4)
    Sheets(3).Range("i" & DL) = Me.list_order.List(ligne, 5)
    Sheets(3).Range("J" & DL) = Me.list_order.List(ligne, 6)
    Sheets(3).Range("K" & DL) = Me.list_order.List(ligne, 7)
    Sheets(3).Range("L" & DL) = Me.list_order.List(ligne, 8)


    2/
    Deuxième question: est-il possible d'ajouter un code pour actualiser les TCD automatiquement sans être obligé de partir à chaque fois et cliquer sur actualiser tout
    démarre l'enregistreur automatique des macros ...effectuer l'opération ; arreter l'enregistreur et tu aura ton code sur plateau
    -----------------------------------------------*****-------------------------------------------------------------------------------------------
    Notre seul pouvoir véritable consiste à aider autrui.

  3. #3
    Nouveau Candidat au Club
    salam

    merci beaucoup

###raw>template_hook.ano_emploi###