Discussion :

[Conundrum]

Bonjour,

J'ai une commande qui sert à remplacer des données dans une colonne.
Mais je souhaite qu'elle s'arrète à la 1ère cellule vide, puis passer à la commande suivante,
Avez-vous une suggestion ? s'il vous plait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Transform()
    Dim Value As String
    Dim LastLine
 
    LastLine = Range("J" & Rows.Count).End(xlUp).Row
 
    For Each cellule In Range("J2:J" & LastLine)
    Value = cellule.Value
    Select Case Value
    Case "Yes:0,No:1"
        cellule.Value = "No"
    Case "Yes:1,No:0"
        cellule.Value = "Yes"
    Case Else
        cellule.Value = ""
    End Select
    Next
 
End Sub

[halaster08]

Bonjour,

je souhaite qu'elle s'arrète à la 1ère cellule vide, puis passer à la commande suivante,

Plutôt qu'une boucle for utilise une boucle while

Code :

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

Value = cellule.Value

Toi tu cherches les problèmes ! C'est pas une bonne idée de nommer tes variables par un nom déjà utilisé par vba

[Conundrum]

Merci Halaster08,

Je n'ai pas compris !

[Patrice740]

Mais je souhaite qu'elle s'arrète à la 1ère cellule vide, puis passer à la commande suivante,

Je n'ai pas compris : elle s'arrête ou elle continue ????

Code :

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

1
2
3
 
Sub Transform()
    Dim Value As String

Value est un mot réservé au langage VBA, il ne faut pas l'employer pour nommer une variable (tu peux, par exemple, le remplacer par Valeur)

[eric4577]

Bonjour

Perso, si j'ai compris, je ferai avec un "find"

Eric

[Menhir]

Mais je souhaite qu'elle s'arrète à la 1ère cellule vide, puis passer à la commande suivante,

Code :

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

1
2
3
    LastLine = Range("J" & Rows.Count).End(xlUp).Row
 
    For Each cellule In Range("J2:J" & LastLine)

Utilise xlDown au lieu de xlUp dans ton End et fait partir la recherche de la cellule courante.

Code :

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

    For Each cellule In Range("J2", Range("J2").End(xlDow))

[Conundrum]

Bonjour,
Merci pour vos réponses !

J'ai finalement résolu mon problème en réduisant la taille de mon tableau prédéfini, sans avoir à toucher aux quelques lignes de code.

La commande n'a ainsi plus 10 000 lignes à passer en revue, mais une centaine.