Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour,La boucle suivante ne s'arrête pas.Le traitement : si le contenu de la cellule .Cells(i,1) répond auxcritères,la ligne est maintenue, sinon elle est supprimée.Le pb, c'est que lorsque la boucle atteint son maximum, elle poursuit aulieu de s'arrêter...La variable a représente le nb de lignes.For i = 2 To aIf .Cells(i, 1) >= 3 And .Cells(i, 1) <= 5 ThenElse.Rows(i).Deletei = i - 1a = a - 1End IfNext i--Merci pour vos réponses.
Bonjour, La boucle suivante ne s'arrête pas. Le traitement : si le contenu de la cellule .Cells(i,1) répond aux critères, la ligne est maintenue, sinon elle est supprimée. Le pb, c'est que lorsque la boucle atteint son maximum, elle poursuit au lieu de s'arrêter... La variable a représente le nb de lignes. For i = 2 To a If .Cells(i, 1) >= 3 And .Cells(i, 1) <= 5 Then Else .Rows(i).Delete i = i - 1 a = a - 1 End If Next i -- Merci pour vos réponses.
Bonjour,La boucle suivante ne s'arrête pas.Le traitement : si le contenu de la cellule .Cells(i,1) répond aux crit ères,la ligne est maintenue, sinon elle est supprimée.Le pb, c'est que lorsque la boucle atteint son maximum, elle poursuit aulieu de s'arrêter...La variable a représente le nb de lignes.For i = 2 To aIf .Cells(i, 1) >= 3 And .Cells(i, 1) <= 5 ThenElse.Rows(i).Deletei = i - 1a = a - 1End IfNext i--Merci pour vos réponses.
Bonjour, La boucle suivante ne s'arrête pas. Le traitement : si le contenu de la cellule .Cells(i,1) répond aux crit ères, la ligne est maintenue, sinon elle est supprimée. Le pb, c'est que lorsque la boucle atteint son maximum, elle poursuit au lieu de s'arrêter... La variable a représente le nb de lignes. For i = 2 To a If .Cells(i, 1) >= 3 And .Cells(i, 1) <= 5 Then Else .Rows(i).Delete i = i - 1 a = a - 1 End If Next i -- Merci pour vos réponses.
