J'ai fait une macro pour venir en aide à une collègue et elle fonctionnait jusqu'à maintenant.
Ce soir je l'ouvre pour la peaufiner et là je la lance et il me dit erreur 1004 dès le début du lancement.
Voici le début de ma macro
Code:
Sub Calcul()
Dim DD As Date, TB, Resultat As Single
a = 2
b = 2
Calcul1:
If b > 20 Then
a = a + 1
b = 2
GoTo Calcul1
End If
Cells(a, b).Select
'Vérifie si la cellule est vide
'Si elle est vide vérifie la cellule suivante
If IsEmpty(Cells(a, b)) Then
b = b + 1
GoTo Calcul1
End If
J'ai rajouté lors de mon travail précédent le
Code:
Dim DD As Date, TB, Resultat As Single
Code:
Cells(a, b).Select
Je sollicite donc votre avis et vous remercie par avance.
Edit : J'ai oublié de préciser que quand je fais F8 pour faire du pas à pas, la macro fais un tour (à la fin de celle-ci sous certaines conditions je reviens à Calcul1) et l'erreur se produit au second tour.
Si je clique sur le bouton dédié au lancement de la macro l'eereur se produit immédiatement.
Dernière édition: