Discussion :

[escalopepane]

Bonjour a tous,

Voila mon bout de code:

Code :

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

1
2
3
    Range("C1").Value = c
    If c <> " " Then
    ...

J'aimerai faire une condition qui vérifie si ma case est vide. cela ne marche pas visiblement et je ne comprend pas pourquoi. Je declare ma variable c en string, Quelqu’un aurait-il une solution?

merci

[Marc-L]

Bonjour,

merci d'utiliser la prochaine fois l'icône # dédiée au code …

Egal à espace ne veut donc pas dire égal à vide ‼

Suffit d'enlever l'espace des guillemets …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[escalopepane]

Dak merci mais cela ne marche toujours pas alors je vous montre mon code en entier:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
    Dim i As Integer
    Dim c As String
    i = 1
    c = Range("A" & i).Borders.Value
    If c <> "" Then
        If Range("A" & i).Value = 1 Then
            Range("A" & i).Borders.Value = 1
        End If
        i = i + 1
        c = Range("A" & i).Value
    End If
End Sub

En fait j'ai une serie de "1", "2" et "3" sur ma colonne A et j'aimerai parcourir cette colonne et entourer tout les 1 jusqu'à ce qu'on tombe sur une case vide. Seulement c'est bizarre, en pas à pas j'observe que c prend la valeur "4192" en chaine de caratere et le premier if ne fait qu'une itération.

PS: ma premiere case A1 n'est pas vide.

[Marc-L]

Non c'est tout à fait normal vu la ligne n°6 ‼

Comparer donc ce qu'elle fait et ce qu'elle devrait faire …

Rien qu'en la comparant avec la ligne n°8 …

Ne pas confondre valeur d'une cellule et bordures d'une cellule …

[gFZT82]

Bonjour,

Une proposition

Code :

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

1
2
3
4
5
6
Sub test()
Dim Cel As Range
    For Each Cel In Range("A1:A" & Range("A1").End(xlDown).Row)
        If Cel = 1 Then Cel.Borders.Value = 1
    Next Cel
End Sub

Cordialement.

[escalopepane]

Effectivement j'avais pas fais attention. je retape le code sans "borders":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
    Dim i As Integer
    Dim c As String
    i = 1
    c = Range("A" & i).Value
    If c <> "" Then
        If Range("A" & i).Value = 1 Then
            Range("A" & i).Borders.Value = 0
        End If
        i = i + 1
        c = Range("A" & i).Value
    End If
End Sub

Cette fois en pas a pas c prend bien la valeur "3" (Ma valeur dans A1), i s'incremente bien, mais contre toute attente l'instruction ne reboucle pas au if mais sort avec un c egal à "3"..

[Marc-L]

Quelle boucle ?

Il n'y en a pas !

Code :

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

1
2
3
4
5
6
7
8
Sub Demo()
    R& = 1
 
    Do Until Cells(R, 1).Value = ""
        If Cells(R, 1).Value = 1 Then Cells(R, 1).Borders.Value = 0
        R = R + 1
    Loop
End Sub

Comme la proposition de gFZT82, cela revient au même !

Je serais passé par [A1].CurrentRegion.Columns(1) …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
La connaissance, c'est comme la confiture, moins on en a plus on l'étale !