Bonjour tout le monde,
J'ai fait un petit programme (voir ci-dessous) sur thisworkbook et le problème c qu'il s'applique sur mes deux feuilles alors que moi je veux qu'il s'applique juste sur une seule et je sais pas comment faire, j'ai essayé avec sheet("feuille1").select("feuille") mais ça marche pas, vu que je suis débutant en vba est-ce que quelqu'un pourra m'aider?
Sub Erreur()
Range("AN10").Select
Range("AN10").Value = "=TODAY()"
Dim i As Integer
For i = 13 To Range("F500").End(xlUp).Row
Range("AN" & i).Value = Range("AN10") - Range("F" & i)
If Range("F" & i) < Range("AN10") Then
UserForm3.Show
Range("A" & i & ":AM" & i).Interior.Color = RGB(255, 0, 0)
ElseIf Range("F" & i) > Range("AN10") Then
Range("A" & i & ":AM" & i).Interior.Color = xlNone
End If
Next i
End Sub
J'ai fait un petit programme (voir ci-dessous) sur thisworkbook et le problème c qu'il s'applique sur mes deux feuilles alors que moi je veux qu'il s'applique juste sur une seule et je sais pas comment faire, j'ai essayé avec sheet("feuille1").select("feuille") mais ça marche pas, vu que je suis débutant en vba est-ce que quelqu'un pourra m'aider?
Sub Erreur()
Range("AN10").Select
Range("AN10").Value = "=TODAY()"
Dim i As Integer
For i = 13 To Range("F500").End(xlUp).Row
Range("AN" & i).Value = Range("AN10") - Range("F" & i)
If Range("F" & i) < Range("AN10") Then
UserForm3.Show
Range("A" & i & ":AM" & i).Interior.Color = RGB(255, 0, 0)
ElseIf Range("F" & i) > Range("AN10") Then
Range("A" & i & ":AM" & i).Interior.Color = xlNone
End If
Next i
End Sub