Discussion :

[nakou13]

Bonjour à tous,
Je suis débutante en VBA et encore plus en forum, alors désolé par avance si ma question est triviale.

J'ai créé une macro qui attribue un code couleur en fonction du nombre présent dans une cellule, en partant d'une ligne i jusqu'à la fin de la feuille.
Mais mes nombres peuvent être séparés par des lignes sans valeur.

Je souhaite que, si la cellule est vide, la macro passe à la ligne suivante.

Ma ligne de code est :

Code :

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

1
2
3
    If Worksheets("nom de ma feuille").Cells(i, 10) = "" Then
       ActiveSheet.Cells(i + 1, 10).Select
    End If

C'est l'expression du terme "vide" qui semble poser probleme (si je mets quoique soit d'autre à la place ca marche tres bien). On n'utilise pas "" pour dire "vide"?

J'ai également essayé le:

Code :

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

1
2
3
4
If Worksheets("nom de ma feuille").Cells(i, 10).Value = "" Then ' (ça lui plait pas)
If IsEmpty Worksheets("nom de ma feuille").Cells(i, 10) = True Then ' (ca lui plait encore moins)
If Worksheets("nom de ma feuille").Cells(i, 10) = empty Then ' (on peut rêver)
If Worksheets("nom de ma feuille").Cells(i, 10) Is Empty Then ' (toujours pas)

Merci d'avance pour vos réponse!

[ouskel'n'or]

Bonjour Nakou, bienvenue sur le forum
Ton code est correct mais je soupçonne "autre chose" : Dans ces lignes

If Worksheets("nom de ma feuille").Cells(i, 10) = "" Then
ActiveSheet.Cells(i + 1, 10).Select

si tu es dans une boucle où tu incrémentes i, à i + 1 tu reviens sur la même ligne.
Pour qu'on puisse t'aider tu devrais nous mettre la boucle complète.
A+

[AlainTech]

Essaie:

Code :

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

If IsEmpty(Worksheets("nom de ma feuille").Cells(i, 10)) Then

Et si "ça ne marche pas", c'est que la cellule n'est pas vide.

[jojo95]

Sinon tu peux faire avec une boucle...

Code :

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

1
2
3
4
5
 
range("xx").select
do while activecell <> ""
selection.offset(1,0)
loop

[PPz78]

Ton mode de programmation ressemble à mes habitudes, aussi je te propose le code suivant :

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()
 
    For i = 1 To 1000       ' Limite à adapter à tes besoins
 
 
    If Worksheets("nom de ma feuille").Cells(i, 10) = "" Then
        ' Mettre ici les traitements liés au cas cellule vide
 
    Else
         ' Mettre ici les traitements liés au cas cellule occupée
 
    End If
 
End Sub

[nakou13]

Merci a tous pour vos réponses, et désolé pour le délai de la mienne mais j'habite à l'autre bout du monde. J'ai un peu de mal avec les décalages horaires!!

Pour vos solutions:
-celle d'Alain Tech ne marche pas
-celle de Jojo 95 me dit qu'il attend un = au niveau de selection.offset (1,0)
-celle de PPz78 ne marche pas non plus.

Je me doute que le problème vient de chez moi, donc je vais essayer d'etre plus claire dans mes lignes de code:

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
21
22
23
24
25
26
27
28
Sub MiseEnFormeBase()
 
  Dim ligne_fin As Variant
  ligne_fin = Worksheets("xx").Range("J14").End(xlDown).Address
  ligne_fin = Worksheets("xx").Range(ligne_fin).Row
 
  Dim i As Integer
 
  For i = 14 To ligne_fin
 
    Range("J" & i).Select
 
    If Worksheets("xx").Cells(i, 10) = "" Then
        ActiveSheet.Cells(i + 1, 10).Select
    End If
 
    If Worksheets("xx").Cells(i, 10) = 100 Then
        With Selection.Interior
            .ColorIndex = 3
            .Pattern = xlSolid
        End With
    End If
 
(... continue avec l'attribution de couleur selon la valeur de la cellule...)
 
 Next i
 
End Sub

Qu'en pensez vous?

Merci bien!!