thespeedy20
XLDnaute Occasionnel
Bonjour,
Ma macro actuellement se trouve en worksheet_selection change et quand je la passe en worksheet selection, excel disparaît, en bref plante...
Pouvez-vous me dire pourquoi ? Merci
Oli
Ma macro actuellement se trouve en worksheet_selection change et quand je la passe en worksheet selection, excel disparaît, en bref plante...
Pouvez-vous me dire pourquoi ? Merci
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plg As Range
Dim valeur
Dim valeur_2
Set Plg = Sheets("Professeurs").Range("A1:G39")
With Sheets("Absence formulaire")
If .Range("A10").Value <> "" Then
.Range("B13").Value = WorksheetFunction.VLookup(.Range("A10").Value, Plg, 2, False)
valeur = WorksheetFunction.VLookup(.Range("A10").Value, Plg, 3, False)
Cells(17, 4).Value = Mid(valeur, 1, 1)
For i = 1 To 6: .Cells(17, i + 5).Value = Mid(valeur, i + 1, 1): Next i
For i = 1 To 4: .Cells(17, i + 12).Value = Mid(valeur, i + 7, 1): Next i
valeur_2 = WorksheetFunction.VLookup(.Range("A10").Value, Plg, 4, False)
For j = 1 To Len(valeur_2): .Cells(21, j + 3).Value = Mid(valeur_2, j, 1): Next j
Else
.Range("B13").Value = ""
.Range(.Cells(17, 4), .Cells(17, 16)).ClearContents
.Range(.Cells(21, 4), .Cells(21, 14)).ClearContents
End If
End With
End Sub
Oli