vba do loop probleme bloucle

[pasquetp]

bonjour, je ne comprend pas voici deux codes le premier fonctionne et le second plante:

Sub Macro1()
Sheets(1).Range("a1").Select

For a = 1 To 10
Do Until ActiveCell = Sheets(2).Cells(a, 1)

ActiveCell.Offset(1, 0).Select
Loop

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets(1).Range("a1").Select
Next








Sub Macro1()
fin = Sheets(1).Range("A65536").End(xlUp)
Sheets(1).Range("a1").Select

For a = 1 To fin
Do Until ActiveCell = Sheets(2).Cells(a, 1)

ActiveCell.Offset(1, 0).Select
Loop

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets(1).Range("a1").Select
Next

End Sub

dans le deuxieme je rajoute juste: fin = Sheets("erreur").Range("A65536").End(xlUp) et
For a = 1 To fin

Pourriez vous me donner une solution pour que la deuxieme ne plante plus

Merci infiniment de votre aide

End Sub

 

[Compte Supprimé 979]

Re : vba do loop probleme bloucle

Salut PasqueTP


Alors déjà tu as une erreur là

fin = Sheets(1).Range("A65536").End(xlUp)

il faut écrire

fin = Sheets(1).Range("A65536").End(xlUp).Row

A+

​

 

[Robert]

Re : vba do loop probleme bloucle

Bonsoir Pasquetp, Bruno, bonsoir le forum,

Inutile, Pasquetp, de multiplier les posts pour obtenir une réponse. Lis plutôt la Lien supprimé du forum...

 

[Compte Supprimé 979]

Re : vba do loop probleme bloucle

Salut Mister Robert

Effectivement
https://www.excel-downloads.com/threads/aide-vba-boucles.186656/
C'est pas sympa pour les copains 😡

Allez hop pseudo dans liste rouge