Worksheet_Change

[momo2394]

Bonjour le forum

je reviens à vous car j'ai un souçi avec Worksheet_Change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim derlig As Long, cellule As Range

If Intersect(Target, Range("B1")) Is Nothing Then: Exit Sub
Columns(2).Interior.ColorIndex = 0
derlig = Range("B65536").End(xlUp).Row
For Each cellule In Range(Cells(1, 2), Cells(derlig, 2))
If Left(cellule, 1) = "*" Then

cellule.Interior.ColorIndex = 36
End If

Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim Cell As Range
If Intersect(Target, Range("B10😀65536,G10:G65536,J10:J65536")) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Cell In Target
If VarType(Cell) = vbString And Not Cell.HasFormula Then Cell = UCase(Cell)
Next Cell
Application.EnableEvents = True
End Sub
Dim ligne As Integer
Private Sub Worksheet_Change(ByVal Target As Range)

Jusqu'ici tout fonctionne et dès lors que je rajoute ce code
j'ai une erreur de compilation

If Intersect(Target, [D1😀65536]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True


If ligne <> 1 Then
' si cellule de la colonne A modifiée différente de vide
If Range("D" & ligne).Value <> "" Then
' date dans cellule de la colonne B correspondant N° de ligne sélectionnée
Range("L" & ligne).Value = Now
End If
End If

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' N° de ligne de la cellulle sélectionnée
ligne = Target.Row
End Sub
merci de votre aide

 

[job75]

Re : Worksheet_Change

Bonsoir momo,

A priori je vois un problème avec la variable "ligne" qui n'est pas définie dans Worksheet_Change.

Par ailleurs la définition de "ligne" dans la Worksheet_SelectionChange ne sert à rien (je pense).

A+

 

[kjin]

Re : Worksheet_Change

Bonsoir,
A priori dans le texte , il semble que tu fais appel plusieurs fois à l'événement Change et Selection_Change de la feuille et ça, c'est pas possible.
D'après ce que l'on peut déduire du code fourni et dans l'attente du fichier connexe et d'une explication claire du résultat que le code doit renvoyer

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Derlig As Long, Cellule As Range
If Not IsEmpty(Range("B1")) Then
Columns(2).Interior.ColorIndex = 0
Derlig = Range("B65536").End(xlUp).Row
For Each Cellule In Range(Cells(1, 2), Cells(Derlig, 2))
If Cellule <> "" Then
Cellule.Interior.ColorIndex = 36
End If
Next
End If
If Not Intersect(Target, Range("B1:B65536,G10:G65536,J10:J65536")) Is Nothing Then
If VarType(Target) = vbString And Not Target.HasFormula Then Target = UCase(Target)
End If
If Not Intersect(Target, Range("D1: D65536")) Is Nothing And Target.Row > 1 Then
Target = UCase(Target)
If Range("D" & Target.Row).Value <> "" Then
Range("L" & Target.Row).Value = Now
End If
End If
End Sub

A+
kjin

 

[momo2394]

Re : Worksheet_Change

Salut à tous

Un grand merci
tout fonctionne