boulou
XLDnaute Occasionnel
Bonsoir à tous.
Pour quelle raison ces 2 instructions ne peuvent elles pas cohabiter ? Quels sont vos conseils ?
Merci ddès à présent de votre aide.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("N2:N52"), Range("P252"), Range("R2:R52"), Range("T2:T52"))) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Count = 1 And ActiveSheet.Shapes("monshape").Visible = True Then
If Err <> 0 Then creeShape
ActiveSheet.Shapes("monshape").Select
ActiveSheet.Shapes("monshape").Left = ActiveCell.Left
ActiveSheet.Shapes("monshape").Top = ActiveCell.Top + ActiveCell.Height + 3
Selection.Characters.Text = ActiveCell
ActiveCell.Select
End If
End Sub
'Transfert de la réponse
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("n2:t52")) Is Nothing Then
Range("f22:m25").Value = Application.Transpose(Target.Resize(, 2).Value)
'Range("m25").Value = Application.Transpose(Target.Resize(, 2).Value)
' Cumul compteurs
If Range("M23") = Range("M32") Then
Range("I14") = Range("I14") + Range("G14")
End If: End If
End Sub
Pour quelle raison ces 2 instructions ne peuvent elles pas cohabiter ? Quels sont vos conseils ?
Merci ddès à présent de votre aide.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("N2:N52"), Range("P252"), Range("R2:R52"), Range("T2:T52"))) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Count = 1 And ActiveSheet.Shapes("monshape").Visible = True Then
If Err <> 0 Then creeShape
ActiveSheet.Shapes("monshape").Select
ActiveSheet.Shapes("monshape").Left = ActiveCell.Left
ActiveSheet.Shapes("monshape").Top = ActiveCell.Top + ActiveCell.Height + 3
Selection.Characters.Text = ActiveCell
ActiveCell.Select
End If
End Sub
'Transfert de la réponse
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("n2:t52")) Is Nothing Then
Range("f22:m25").Value = Application.Transpose(Target.Resize(, 2).Value)
'Range("m25").Value = Application.Transpose(Target.Resize(, 2).Value)
' Cumul compteurs
If Range("M23") = Range("M32") Then
Range("I14") = Range("I14") + Range("G14")
End If: End If
End Sub