Sujet Précédent Sujet Suivant

PROBLEME SUR MON PC

Fermé
clavervba Messages postés 47 Date d'inscription vendredi 3 février 2017 Statut Membre Dernière intervention 7 mars 2017 - 24 févr. 2017 à 16:34
clavervba Messages postés 47 Date d'inscription vendredi 3 février 2017 Statut Membre Dernière intervention 7 mars 2017 - 28 févr. 2017 à 09:11
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 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 648
24 févr. 2017 à 16:41
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 vendredi 3 février 2017 Statut Membre Dernière intervention 7 mars 2017
24 févr. 2017 à 16:52
Tu as pensé à activer les macros?
oui, oui sinon cela ne devais pas passer
0
Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 648
24 févr. 2017 à 20:40
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 vendredi 3 février 2017 Statut Membre Dernière intervention 7 mars 2017 > Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020
27 févr. 2017 à 14:12
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 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 648
27 févr. 2017 à 17:59
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 vendredi 3 février 2017 Statut Membre Dernière intervention 7 mars 2017
28 févr. 2017 à 09:11
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