Validation de Données - message de saisie uniquement

Version imprimable

Bonjour,

Dans ce bout de code, je souhaite récupérer, en guise d'info-bulle, les contenus de la colonne A et de la ligne 4 (dates) relatifs à la cellule sélectionnée.

Ça bug sur la ligne "Add Type (...)" :

Citation:

'Erreur d'exécution '1004": Erreur définition par l'application ou par l'objet
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Worksheet_SelectionChange(ByVal target As Range) Dim zone_saisies As String zone_saisies = "e10:ng34" With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween ' .IgnoreBlank = True ' .InCellDropdown = True ' .InputTitle = "Titre" ' .ErrorTitle = "" .InputMessage = Range("A" & ActiveCell.Row).Value & Chr(10) & Format(Cells([4], target.Column).Value, "ddd dd mmm") ' .ErrorMessage = "" ' .ShowInput = True ' .ShowError = True End With End Sub
A noter que dans certaines conditions (que je n'ai pas pu clairement identifier), le résultat s'est affiché correctement. Néanmoins, il ne s'affiche jamais pour certaines lignes sélectionnées.
Je précise que la feuille est protégée par VBA à l'ouverture du fichier.

En vous remerciant par avance pour vos lumières !
Cdt

Bonjour, quelque chose m'interpelle dans ton code. La façon dont tu déclares zone_saisies fait que ce n'est pas une plage de cellules sur laquelle tu peux effectuer des opérations mais une simple chaîne de caractères contenant la valeur texte "e10:ng34".
Si tu veux la déclarer comme plage de cellules, tu peux faire comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal target As Range)
    Dim zone_saisies As Range
 
    ' Définir la plage spécifiée
    Set zone_saisies = ActiveSheet.Range("e10:ng34")
 
    ' Vérifier si la cellule sélectionnée est dans la plage spécifiée
    If Not Intersect(target, zone_saisies) Is Nothing Then
        ' Appliquer la validation de saisie
        With target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
            .InputMessage = Range("A" & target.Row).Value & Chr(10) & Format(Cells(4, target.Column).Value, "ddd dd mmm")
        End With
    End If
End Sub

25/11/2023, 09h17
jpma75
Bonjour,

Merci pour ces préconisations que j'ai scrupuleusement appliquées.

L'erreur apparaît toujours sur la ligne "Add type (...)"

Le problème peut-il venir de la protection de la feuille ?

Nota : j'utilise pourtant "userinterfaceonly:=True"
Code:

1 2 3 4 For Each wSheet In Worksheets wSheet.Visible = True wSheet.Protect Password:="toto", userinterfaceonly:=True Next wSheet
Faut-il déverrouiller ponctuellement la protection du Classeur ??

Cdt
25/11/2023, 09h40
jpma75

PS : Je confirme que si je déprotège le classeur, ça fonctionne !!

Bonsoir,

Pour être plus précis, c'est manifestement la protection de la feuille qui posait problème (malgré UserInterfaceOnly à True)

J'ai ajouté une tempo pour l'affichage du message ; a priori, ça fonctionne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
If Not Intersect(target, zone_saisies) Is Nothing Then
 
        ActiveSheet.Unprotect Password:="toto"
            With target.Validation
                .Delete
                .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
                .InputMessage = Range("A" & target.Row).Value & Chr(10) & Format(Cells(4, target.Column).Value, "ddd dd mmm")
                DoEvents
                Sleep 1200
                .Delete
            End With
        ActiveSheet.Protect Password:="toto", userinterfaceonly:=True
    End If

Et en entête, j'ai ajouté ceci :

Code:

1
2
3
4
5
#If VBA7 And Win64 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sous réserve de remarques sur l'incohérence de ce code, merci encore pour votre aide,
Cdt