Pb. macro

nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   -  
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   -
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



Configuration: Windows / Firefox 64.0
A voir également:

3 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
0
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
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
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Re,

Désolé, je suis allé trop vite en tapant la ligne de macro, il faut mettre A3:F12 entre guillemets

0