PROBLEME SUR MON PC

clavervba -  
Bonjour,

j'ai crée une petite application sur mon poste de travail au bureau, pour aider ma mere dans le calcul des moyennes pour sa classe, mais lorsque je copie le fichier et je l'ouvre sur mon ordinateur portable mes macros ne marche plus (il reconnais pas la boucle avec le i).
c'est du a quoi svp?



--
palpevba

1 réponse

  1. Pierre1310
    Salut,

    Tu as pensé à activer les macros?

    Ta variable "i" est initialisée à une valeur dans ton code?
    1. clavervba Auteur
      Tu as pensé à activer les macros?
      oui, oui sinon cela ne devais pas passer
    2. Pierre1310
      Ta variable "i" est initialisée à une valeur dans ton code? Si oui, envois le code d'erreur.
    3. clavervba Auteur
      @Pierre1310voici le code:
      Dim j As Integer
      Dim lastRow As Integer
      Dim derniereligne As Integer

      Sub ventilation()

      Application.ScreenUpdating = False

      'boucle permettant de lire toute les feuilles du calsseur
      For j = 4 To 7
      Sheets(j).Select
      lastRow = Range("a1000000").End(xlUp).Row
      For i = lastRow To 6 Step -1 'parcourir des lignes en remontant vers le haut
      Sheets(j).Select
      Rows(i).Select
      Selection.Delete shift:=xlUp
      Next i

      Sheets("Inscription").Select
      derniereligne = Range("a1000000").End(xlUp).Row 'commencer a la fin pour remonter juska haut
      For k = 2 To derniereligne
      Sheets("Inscription").Select
      If Sheets(j).Name = Cells(k, 7).Value Then '7 est la colone de la classe

      Rows(k).Select
      Selection.Copy

      Sheets(j).Select
      lastRow = Range("a1000000").End(xlUp).Row + 1
      Cells(lastRow, 1).Select
      ActiveSheet.Paste

      End If

      Next k

      Next j

      Sheets("Inscription").Select 'revenir sur la fiche inscription
      Application.CutCopyMode = False
      Application.ScreenUpdating = True

      End Sub

      sur mon poste au bureau il fonctionne, mais sur mon pc il me dit: projet ou bibliothèque introuvable
    4. Pierre1310
      Le code d'erreur est au démarrage de la macro ou sur une ligne en particulier?
    5. clavervba Auteur
      Bonjour,
      lorsque je lance la macro.
      l'erreur est au niveau de For i c'est le i.
      mais comme je le disais, sur on poste au bureau il fonctionne.