Discussion :

[Aquarium33]

Bonjour,

Je ne sais pas pourquoi ce bout de code ne fonctionne pas . ça bloque au niveau de la ligne :

Set cellule = Worksheets("Test fonctionnel").Range("A:F")

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 
Const CSTR_RESULTAT_TEST = "résultat test"
Const CSTR_RESULTAT_EXECUTION = "résultat exécution"
Const CSTR_PAS_AFFICHAGE = "pas d'affichage"
 
Const CINT_POSITION_IMAGE_RESULTAT_TEST = 6
Const CINT_POSITION_IMAGE_RESULTAT_EXECUTION = 5
Const CINT_POSITION_IMAGE_RESULTAT_NE_PAS_AFFICHER = -99
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellule As Range
Dim Position_image As Integer
Dim Pint_colonne_courante As Integer
Dim Pstr_nom_image As String
' je vais contrôler si je dois ou non afficher,
' si je dois afficher ce que je dois afficher
Mafenetre.Lbl_pb_image.Visible = False
 
Set cellule = Worksheets("Test fonctionnel").Range("A:F")
 
Debug.Print "cellule = " & cellule
 
Select Case cellule.Value
    Case CSTR_RESULTAT_TEST:
        Position_image = CINT_POSITION_IMAGE_RESULTAT_TEST
    Case CSTR_RESULTAT_EXECUTION:
        Position_image = CINT_POSITION_IMAGE_RESULTAT_EXECUTION
    Case CSTR_PAS_AFFICHAGE:
        Position_image = CINT_POSITION_IMAGE_RESULTAT_NE_PAS_AFFICHER
End Select
 
 
If Position_image = CINT_POSITION_IMAGE_RESULTAT_TEST Or Position_image = CINT_POSITION_IMAGE_RESULTAT_EXECUTION Then
    Pint_colonne_courante = Target.Column
    Pstr_nom_image = Target.Offset(0, Position_image - Pint_colonne_courante).Value
    If Pstr_nom_image <> "" Then
         If UCase$(Right$(Pstr_nom_image, 4)) = ".JPG" Then
             If Dir(Pstr_nom_image) <> "" Then
                 Mafenetre.Picture = LoadPicture(Pstr_nom_image)
                 Mafenetre.Show False
             Else
                 Mafenetre.Picture = LoadPicture("")
                 Mafenetre.Lbl_pb_image.Caption = "Image Non Trouvée ???"
                 Mafenetre.Lbl_pb_image.Visible = True
 
             End If
        Else
            Mafenetre.Picture = LoadPicture("")
            'Mafenetre.Hide
        End If
    Else
        Mafenetre.Picture = LoadPicture("")
        'Mafenetre.Hide
    End If
Else
    ' je n'affiche pas
    'Mafenetre.Hide
End If
End Sub

Merci d'avance pour toute aide de votre part.

Bonne journée

Aquarium33

[Jean-Philippe André]

salut,

pourrait-on avoir l'erreur qui est générée dans ton cas stp ?

Sans cette information, difficile de te donner une raison précise

[Aquarium33]

Bonjour,

Je vous remercie pour votre réponse.

Voici l'erreur générée :

Erreur d'esécution '13' :
Incompatibilité de type

Aquarium33

[Jean-Philippe André]

Es-tu certain que c'est cette ligne là et non pas la suivante

Code :

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

Debug.Print "cellule = " & cellule

qui poserait problème ?
quelle information de ta plage de cellule souhaites-tu afficher avec ton debug.print ?

[Aquarium33]

Salut,

je viens d'enlever la ligne :

Debug.print "cellule =" & cellule

et ça ne fonctionne toujours pas.

l'erreur persiste :

Erreur d'exécution '13' :
Incompatibilité de type

Alors que si je mets :

Set cellule = Worksheets("Test fonctionnel").Range("F6") au lieu de *

Set cellule = Worksheets("Test fonctionnel").Range("A:F"). tout fonctionne.

Seulement mon objectif est d'afficher un image quelque soit la colonne.

Merci de me votre aide
aquarium33

[Jean-Philippe André]

je n'arrive pas à reproduire l'erreur chez moi

de quelle image parles-tu ? en quoi les colonnes récupérées serviront-elles dans la suite de ton code ?

[Aquarium33]

Salut,

Au fait, dans ma feuille "Test fonctionnel", il faut décrire les résultats d'un test de fonctionnement d'un code donné. S'il y a une erreur, je fais une capture d'écran et je mets le lien de l'image dans la colonne F. Et l'objectif serait que qu'on je me positionne dans une cellule et quelque soit la colonne : s'il existe une image il l'affiche sinon la fenêtre "MaFenêtre" s'affiche sans aucune image.

Code :

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

1
2
3
4
5
6
7
8
Const CSTR_RESULTAT_TEST = "résultat test"
Const CSTR_RESULTAT_EXECUTION = "résultat exécution"
Const CSTR_PAS_AFFICHAGE = "pas d'affichage"
 
Const CINT_POSITION_IMAGE_RESULTAT_TEST = 6  (la valeur 6 : pour colonne F)
 
Const CINT_POSITION_IMAGE_RESULTAT_EXECUTION = 5 (la valeur 5 : pour colonne E)
Const CINT_POSITION_IMAGE_RESULTAT_NE_PAS_AFFICHER = -99

ces constantes doivent être écrites en haut de leurs colonnes respectives sinon aucune image ne s'affichera même si le lien existe.

Merci d'avance pour votre aide

aquarium33