PROBLEME SUR MON PC

clavervba Messages postés 47 Date d'inscription   Statut Membre Dernière intervention   -  
clavervba Messages postés 47 Date d'inscription   Statut Membre Dernière intervention   -
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?


A voir également:

1 réponse

Réponse 1 / 1
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Salut,

Tu as pensé à activer les macros?

Ta variable "i" est initialisée à une valeur dans ton code?
0
clavervba Messages postés 47 Date d'inscription   Statut Membre Dernière intervention  
 
Tu as pensé à activer les macros?
oui, oui sinon cela ne devais pas passer
0
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Ta variable "i" est initialisée à une valeur dans ton code? Si oui, envois le code d'erreur.
0
clavervba Messages postés 47 Date d'inscription   Statut Membre Dernière intervention   > Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention  
 
voici 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
0
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Le code d'erreur est au démarrage de la macro ou sur une ligne en particulier?
0
clavervba Messages postés 47 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0