Pbavec Worksheet_change(ByVal Target As range

Résolu/Fermé

Vins - 10 août 2007 à 15:58
Vins - 10 août 2007 à 22:32

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

A voir également:

Pbavec Worksheet_change(ByVal Target As range
La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
Input signal out of range change settings to 1600x900-60hz - Forum Windows
Out of range - Forum Windows
D'sub out of range - Forum Ecran
Ecran noir avec 'out of range" sous windows 10 - Forum Ecran

4 réponses

Réponse 1 / 4

Utilisateur anonyme
10 août 2007 à 16:31

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

Réponse 2 / 4

Vins
10 août 2007 à 16:57

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

Réponse 3 / 4

Utilisateur anonyme
10 août 2007 à 17:23

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

Réponse 4 / 4

Vins
10 août 2007 à 22:32

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

Discussions similaires

pb private sub worksheet_selectionchange

input signal out of range

VBA : Range avec références variables..

[Ecran tft] "out of range au démarrage

comment désactiver out of range

Discussions similaires

Newsletters