Bonjour à Tous
Je vous explique mon problème
Voila j'ai un tableaux de consommateurs électrique. Ma première colonne est réservé à l'indice de révision (Rev A,B,C etc...)
Or je voudrais qu'à chaque fois qu'une valeur sur une ligne change, l'indice de révision passe à B.
Voici le code que j'ai fais et qui marche bien, le seul problème est que je suis obligé de le répeter par le nombre de ligne en changemant à chaque fois les valeurs.
Pouvez vous m'aider SVP:
Dim MemoCell As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRange As Range
If Not (Intersect(Target, Range(Cells(1, 2), Cells(1, 7))) Is Nothing) Then
Cells(1, 1) = "B"
End If
If Not (Intersect(Target, Range(Cells(2, 2), Cells(2, 7))) Is Nothing) Then
Cells(2, 1) = "B"
End If
If Not (Intersect(Target, Range(Cells(3, 2), Cells(3, 7))) Is Nothing) Then
Cells(3, 1) = "B"
End If
End Sub
Merci par avance pour votre aide.
Message édité par djeev le 11-07-2008 à 11:22:52