Pb. macro
Bonjour,
J'ai récupéré ce code VBA que je trouve intéressant ,mais j'aurais voulu limité son action a une certaine plage défini dans cette macro.
problème je n'y arrive pas ,si quelqu'un pouvait m'aider
'Empecher la sélection des cellules contenant des formules
'procédure évenementielle , à placer au niveau de la feuille
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then Selection.Cells(1, 1).Offset(, 1).Select
Next
End Sub
D'avance merci
J'ai récupéré ce code VBA que je trouve intéressant ,mais j'aurais voulu limité son action a une certaine plage défini dans cette macro.
problème je n'y arrive pas ,si quelqu'un pouvait m'aider
'Empecher la sélection des cellules contenant des formules
'procédure évenementielle , à placer au niveau de la feuille
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then Selection.Cells(1, 1).Offset(, 1).Select
Next
End Sub
D'avance merci
Configuration: Windows / Firefox 64.0
3 réponses
-
Bonjour
En début de macro
IF Not Intersect(target,Range(A3:F12)) is Nothing Then
En fin de macro
End if
N'effectuera la macro que si la sélection a changé dans la plage A3:F12
Cdlmnt
Via
-
Bonjour
Merci a toi via55 pour ta réponse
Mais Je joint le classeur avec le lien suivant , car le code plante
https://cjoint.com/c/IAcnnUJBGKc -
Re,
Désolé, je suis allé trop vite en tapant la ligne de macro, il faut mettre A3:F12 entre guillemets
