Discussion :

[jpma75]

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 (...)" :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Franc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jpma75]

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

[jpma75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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