XL 2016 Erreur définie par l'application ou par l'objet

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

julstb

XLDnaute Nouveau
bonjour à tous, mon problème porte sur une boucle qui incrémente une variable tant que la valeur d'une cellule est égale à la valeur de la cellule d'en dessous. Le programme fonctionnait parfaitement jusque là puis sans raison cela s'est mis à m'afficher cette erreur. Néanmoins le code s’exécute quand même. Je voudrai du coup savoir à quoi correspond cette erreur? Comment résoudre ce problème?

Voici l'extrait de mon code

Sub copitabl()

i = 2
a = 0
j = 3
b = 2
z = 0

For i = 2 To x

While Worksheets("ouverture de cycle").Range("A" & i) = Worksheets("ouverture de cycle").Range("A" & i + 1)
a = a + 1
i = i + 1
Wend


i = i - a
Worksheets("Ouverture de cycle").Range("A" & i, "D" & i + a).Copy
Worksheets("Comparaison").Range("A" & j).PasteSpecial xlPasteAll

For b = b To x

If Worksheets("Ouverture de cycle_2").Range("A" & b) = Worksheets("Comparaison").Range("A" & i) Then
Worksheets("Ouverture de cycle_2").Range("A" & b, "D" & b).Copy
Worksheets("Comparaison").Range("E" & j + z - 2).PasteSpecial xlPasteAll
z = z + 1
End If

Next b
z = 0
j = j + 1 + a
i = i + a
a = 0
b = 2
Next i

Application.ScreenUpdating = True
End Sub

L'erreur porte sur la ligne "While Worksheets("ouverture de cycle").Range("A" & i) = Worksheets("ouverture de cycle").Range("A" & i + 1)"

Merci d'avance pour votre aide🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
281
Réponses
2
Affichages
511
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Retour