PROBLEME SUR MON PC
clavervba
Messages postés
48
Statut
Membre
-
clavervba Messages postés 48 Statut Membre -
clavervba Messages postés 48 Statut Membre -
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
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
-
Salut,
Tu as pensé à activer les macros?
Ta variable "i" est initialisée à une valeur dans ton code?
-
-
- 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
-
-
-
