IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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 :

Automatisation d'un planning


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2014
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2014
    Messages : 1
    Par défaut Automatisation d'un planning
    Bonjour à tous! Tout d'abord merci de m'acceuillir parmis vous sur ce forum de partage et d'entreaide!

    Je vous explqiue mon objectif:

    *Je dois automatiser un planning, c'est-à-dire sur chaque ligne j'ai une activité qu'il faut planifié
    (activité à fauche et planning à droite) et les informations seront copier et coller dans une autre fichier (pour l'intégrer dans une base).

    *Lorsque qu'une activité est planifiée à une date, l'utilisateur va inscrire "1" dans la celulle correspondant sur le planning.


    Maintenant voilà mon soucis:

    (Pour optimiser le code (enfin du moins j'essaie :p), j'évite les copy - paste et j'utilise plus du copy- destination:=
    ou copy par .value").

    *lors de la copy_destination:= dans les case correspondante du fichier de destination, un '#" s'affiche au lieu d ela date, donc un problème
    de format à priori, mais je ne vois pas comment faire (j'essaie d'éviter comme dit plus haut le copy-paste).


    *lors de la copie des date, il m'affiche quand meme un "1" décalé.

    Voilà mon fichier est en pièce jointe, je recquiert votre aide svp pour m'aider à avancer.

    Merci d'avance!

    Voilà le code et le fichier:
    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
    22
    23
    24
    Private Sub CommandButton1_Click()
     
       Dim ligneBas As Integer
       Dim j As Integer
       Dim i As Integer
     
       ligneBas = Workbooks("Test atomatisation planning.xlsm").Sheets("test").Range("G65536").End(xlUp).Row
     
       Workbooks.Open "C:\" '--->ouvre un nouveau fichier excel à renommer le chemin
     
       '''''Code pour récupérer les dates de planifications ''''''''''''
     
         For j = 5 To ligneBas
       For i = 28 To 379
     
           If Workbooks("Test automatisation planning.xlsm").Sheets("test").Cells(j, i) = 1 Then
           Workbooks("Test automatisation planning.xlsm").Sheets("test").Range(Cells(4, i), Cells(i, i)).Copy _
           Destination:=Workbooks("nouveau fichier.xlsx").Sheets("feuil1").Range("X3" & i & ":X" & j - 2)
     
           End If
           Next i
       Next j
     
    End Sub
    Fichier: Test atomatisation planning.zip

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    Qu'est_ce qu'on peut tester avec un tel classeur ? Quant à l'affichage de "#", il signifie généralement que la cellule n'est pa assez large.

Discussions similaires

  1. [XL-2010] Automatiser mon planning ?
    Par elsabio dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 10/01/2013, 19h45
  2. Réponses: 1
    Dernier message: 29/03/2011, 21h33
  3. automatiser un planning
    Par ryodo dans le forum Langage
    Réponses: 5
    Dernier message: 13/10/2010, 23h34
  4. Réponses: 0
    Dernier message: 24/03/2009, 18h27
  5. changer l'image d'arrière plan du bureau
    Par etenclin dans le forum MFC
    Réponses: 7
    Dernier message: 22/08/2002, 15h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo