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 :

rien ne se fait , sans notification d'erreur


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Juin 2015
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2015
    Messages : 35
    Par défaut rien ne se fait , sans notification d'erreur
    Bonjour,
    j'ecris un programme depuis plusieurs jours,
    apres avoir ramé je pensais avoir finalement reussi a le faire marcher
    seulement bien qu'aucune erreur apparait le code ne fais pas ce que j'espere
    pouriez vous s'il vous plait m'aider
    voici le code :
    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
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    Sub CopierDonnees()
     
    Dim Entree As Workbook, Sortie As Workbook
     
    Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
     
    ' On verifie que l'on a selectionné un nom de classeur
    If Nomfichierentree <> False Then
    ' On ouvre le classeur
       Set Entree = Workbooks.Open(Nomfichierentree)
       End If
       NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
       If NomFichierSortie <> False Then
          Set Sortie = Workbooks.Open(NomFichierSortie)
          End If
     
     
     
       'Worksheets("Report").Copy After:=Sheets(Worksheets.Count)
       'Columns("C:C").Delete Shift:=xlToLeft
     
       Sheets.Add After:=Sheets(Sheets.Count)
       ActiveSheet.Name = "chantier"
     
     
         Worksheets("Report").Range("1:1,1324:1475").Copy Worksheets("chantier").Range("A1")
    'jusqu'ici tout va bien , mais ensuite a partir de la il ne fait plus rien 
     Dim i As Long
     Dim j As Long
     Dim n As Variant
     
     For j = 8 To 19
      n = 19 - j + 8
          For i = 2 To n
              Cells(i, j).Value = Cells(i, j).Value + Cells(i + 4 * 19, j).Value
              'Cells(2 * i, j).Value = Cells(2 * i, j).Value + Cells(2 * i + 4 * 19, j).Value
              'Cells(3 * i, j).Value = Cells(3 * i, j).Value + Cells(3 * i + 4 * 19, j).Value
              'Cells(4 * i, j).Value = Cells(4 * i, j).Value + Cells(3 * i + 4 * 19, j).Value
     
      Next i
      Next j
     
     Range("A1400:Y1475").Select
       Selection.EntireRow.Delete
     
     
       ' Sheets("Report (2)").Select
        ' ActiveWindow.SelectedSheets.Delete
    merci d'avance pour vos reponses

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    en mode pas à pas, VBA "lis" bien les lignes sur lesquelles tu as l'impression que ça ne fonctionne pas ?
    et il serait opportun de rattacher tes "Cells" à leur feuille, là ça travaille sur la feuille active ... qui est peut être le problème

  3. #3
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Juin 2015
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2015
    Messages : 35
    Par défaut
    eu je suis desole je demare en vba , comment je fais le mode pas a pas ?
    et je voudrais justement que vba s'ocuppe de la feuille active mais je vais essayer de rajouter le nom de la feuille , mais j'avoue que je ne sais pas comment faire
    merci en tout cas de ta reponse

  4. #4
    Membre confirmé
    Homme Profil pro
    Consultant MOA
    Inscrit en
    Juin 2015
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Consultant MOA
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2015
    Messages : 23
    Par défaut
    Pour le mode pas à pas, c'est F8.

    Ludo

  5. #5
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Juin 2015
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2015
    Messages : 35
    Par défaut
    merci ludo
    j'ai teste avec le mode pas a pas et il prend en compte mon code toute les etapes,
    je ne vois pas ou peut se situer le probleme :s?
    j'aimerais essayer d'appele les cellules avec la feuille specifique mais je ne sais pas comment faire

  6. #6
    Membre confirmé
    Homme Profil pro
    Consultant MOA
    Inscrit en
    Juin 2015
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Consultant MOA
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2015
    Messages : 23
    Par défaut
    Dans ta première partie de code, tu as correctement spécifié des feuilles Worksheets("nom_feuille").Range.
    Pour spécifier une cellule d'une feuille, tu fais Worksheets("nom_feuille").Cells(i, j).Value par exemple.

    Ludo

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [MySQL] réponse vide alors que le champs existe dans la table, sans retour d'erreur
    Par ben_skywalker dans le forum PHP & Base de données
    Réponses: 8
    Dernier message: 15/02/2007, 14h20
  2. Réponses: 5
    Dernier message: 14/01/2007, 18h12
  3. [VBA-E]Détection de feuilles inexistantes sans message d'erreur
    Par Jipété dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/11/2006, 08h39
  4. PB d'update qui plante aléatoirement sans renvoyer d'erreur
    Par plc402 dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 01/08/2005, 09h10
  5. "try...except" sans message d'erreur
    Par SchpatziBreizh dans le forum Langage
    Réponses: 4
    Dernier message: 12/07/2005, 09h50

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