Bonjour à tous,
Je sèche sur un problème relativement mineur, faire une boucle qui saute les lignes sans data notamment ici la 10 et la 17 et j'ai beau jouer avec les step ca ne marche pas.
J'ai donc laissé la boucle sans step de 4 à 9 car pour le moment mon bricolage fonctionne.
Pouvez vous m'indiquez ce que vous feriez ? utiliser step ou non ? Voici le code et le fichier est joint.
Sub Rectangle1_Cliquer()
Dim Plafond As Integer
Dim x As Integer
Plafond = Range("B1").Value
For x = 4 To 9
If Range("B" & x).Value <= 0 Then
Range("B" & x).Font.Color = RGB(155, 0, 0)
Range("B" & x).Font.Bold = True
Else
Range("B" & x).Font.Color = RGB(0, 0, 0)
End If
If Range("B" & x).Value > Plafond Then
Range("C" & x).Value = Range("B" & x).Value - Plafond 'ChrW(&H2192)
Range("B" & x).Value = Range("B" & x).Value - Range("C" & x).Value
Range("D" & x).Value = Range("D" & x).Value + Range("C" & x).Value
Else
End If
Next x
End Sub
Je vous remercie sincèrement.
Variable (D'humeur)