Discussion :

[thomanneca]

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 (je ne sais pas pourquoi le code est barré désolé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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

[parmi]

Bonjour,

Qu'est-ce qui te fait croire qu'elle s'arrête ?

[thomanneca]

Car "thib" ne s'écrit que dans la première cellule.

En réalité, dans ma première colonne, j'ai par ex en vertical 103, 104, 105, etc et ma plage commence dans la deuxième colonne à côté de 103.
Thib ne s'écrit que dans la première cellule alors que si le FOR EACH fonctionnait, il devrait y avoir une ligne remplie de thib.

Suis-je clair?

[SfJ5Rpw8]

Bonsoir,

tu peu préciser ? elle as quel numéro ta première colonne ? 11 ?

[thomanneca]

c'est ca oui m plage est "K11:P14"

en fait, je viens de l'essayer dans une autre plage et cela fonctionne.

Est-il possible que des cellules fusionnées puissent poser problème et arrêter le code car "cellule vide" ?

[SfJ5Rpw8]

Tu dois avoir une mauvaise idée de ce à quoi correspond le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cell.End(xlToLeft)

pour comprendre place toi sur une cellule actionne la touche FIN puis la flèche vers la gauche ... et alors le curseur ce retrouve sur la cellule dont tu teste la valeur.... as toi de tester en te plaçant sur les diverses cellules de ta plage ...

[parmi]

En faisant des tests, s'il n'y a rien d'écrit dans les colonnes L à P, seule la colonne L est remplie de "thib"
S'il y a des valeurs dans toutes les cellules, elles se remplissent toutes.
Tu peux faire le test en effaçant certaines données pour voir le résultat.

[thomanneca]

En réalité, le code cell.end(xltoleft) me donne bien ce que je souhaite mais visiblement, le fait que certaines cellules soient fusionnées bloque mon code. Je viens de tester cela et il s'arrête sur la cellule fusionnée..

Merci beaucoup, je vais tenter autre chose.

Bonne soirée