For each ne s'arrête pas si la condition n'est pas respectée..

Fermé
Thomus - 5 août 2014 à 19:54
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 6 août 2014 à 08:45
Bonjour,

J'aimerais faire tourner le code suivant sur une plage entière de cellules.
Le problème est que la condition s'arrête dès qu'elle n'est pas respectée or j'aimerais la faire tourner sur toute la plage car sinon il s'arrête sur la cellule du bas et ne se poursuit pas sur les autres colonnes...
Je ne sais pas si c'est très clair mais voici le code :

Sub MettreAJourAgenda()
Dim MyRange As Range
Dim Cell As Range
Set MyRange = ActiveSheet.Range("K11:P14")

For Each Cell In MyRange
If Cell.End(xlToLeft).Value = "103" Then
Cell.Value = "thib"
End If
Next Cell
End Sub




Merci d'avance
A voir également:

1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
6 août 2014 à 08:45
Bonjour,

Je viens de tester et la macro que tu utilises fait exactement ce qu'est censé faire ce code...
Donc...
Peux tu nous dire ce que tu souhaites faire, ainsi que nous donner une description plus approfondie de tes données...
0