Pbavec Worksheet_change(ByVal Target As range Résolu/Fermé

Question

Bonjour à tous,

Voilà ce que j'aimerais faire mais je bloque pour traduire le texte en gras en VBA....

Sub Worksheet_change(ByVal Target As range)

               If Activecell appartient à une plage de cellules fixes Then MsgBox vbOKOnly

End Sub

Dans un second temps : est-il possible d'avoir une plage mobile du type (ligneI, colonneJ : ligneI2, colonneJ2)?

Merci d'avance

Utilisateur anonyme · Answer

Bonjour,

Exemple :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Intersection As Range, Plage As Range

    Set Plage = Range("B5:C8")

    Set Intersection = Application.Intersect(Target, Plage)
    If Intersection Is Nothing Then
        MsgBox "La cellule visée n'est pas dans la plage !"
    Else
        MsgBox "La cellule visée est dans la plage !"
    End If

    Set Plage = Nothing
    Set Intersection = Nothing

End Sub
'

Lupin

Vins · Answer

Merci ça avance, seulement ceci fonctionne quand je clique sur la cellule et non quand je modifie la valeur  de celle-ci (c'est vrai je ne l'avais pas précisé avant, dsl).

Autrement dit, il faudrait que ce programme recalcule automatiquement  et enregistre les anciennes valeurs (ce code sera mis après le then à la place de la msgbox) que lorsque je modifie une valeur de la plage de cellule. Alors qu'avec ce programme il agit quand je clique sur la cellule.

Vins

Utilisateur anonyme · Answer

re :

Il s'agit simplement de changer d'évènement.


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim Intersection As Range, Plage As Range

    Set Plage = Range("B5:C8")

    Set Intersection = Application.Intersect(Target, Plage)
    If Intersection Is Nothing Then
        MsgBox "La cellule visée n'est pas dans la plage !"
    Else
        MsgBox "La cellule visée est dans la plage !"
    End If

End Sub
'

Lupin

Vins · Answer

Je ne connaissais pas cette histoire d'évennement.....! Encore beaucoup à apprendre!

Merci pour ton aide rapide et précise! Je pense pouvoir y arriver seul pour la suite.

Vins

Pbavec Worksheet_change(ByVal Target As range

4 réponses

Discussions similaires