Pbavec Worksheet_change(ByVal Target As range
Résolu
Vins
-
Vins -
Vins -
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
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
- Do not turn off target traduction - Forum Samsung
- Samsung galaxy tab S Bloquer Downloading do not turn off target - Forum Téléphones & tablettes Android
- Downloading..Do not turn off the target...???? ✓ - Forum Samsung
- Samsung bloqué: downloading ... do not turn off target - Forum Samsung
- Vba range avec variable ✓ - Forum VB / VBA
4 réponses
Bonjour,
Exemple :
Lupin
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
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
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
re :
Il s'agit simplement de changer d'évènement.
Lupin
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