Discussion :

[lucasbecgerion]

Bonjour,

N'ayant pas trop de connaissance sur les macros excel, je viens ici car j'ai un problème de macro.
Quand je clique sur modifier une cellule cela me dit que j'ai une incompatibilité de type mais cela me renvois sur aucun problème de macro donc je ne comprend pas d'où provient le problème.
Merci d'avance !

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
 
Sub Afficher_Form_Modif_Pièces()
Dim Réponse As Integer
 
MaLigne = ActiveCell.Row
 
'Vérifier qu'on est dans la plage des Pièces
If MaLigne < Range("Pièces").Row + 1 Or MaLigne > Range("Pièces").End(xlDown).Row Then
    Réponse = MsgBox("Sélection incorrecte", vbOKOnly, "Modification de ligne")
    If Réponse Then Exit Sub
End If
 
With UF_Pièces
    .Titre.Caption = "Modifier une Pièce"
 
    .Bouton_Dernier.Enabled = True
    .Bouton_Précédent.Enabled = True
    .Bouton_Premier.Enabled = True
    .Bouton_Suivant.Enabled = True
End With
 
Call Initialiser_UF_Pièces
Call Lire_Pièces
 UF_Pièces.Show
End Sub

[MarcelG]

Bonjour et bienvenu sur le Forum,

Le débogage a dû surligner un mot clé.

Ici, Msgbox est déclarée comme variable Integer.
N'y aurait-il pas confusion avec la méthode Inputbox?

Voir l'aide sur cette méthode

La déclaration s'effectuera selon le Type de l'Inputbox.
Pour ma part, j'essaie le plus souvent possible de déclarer les arguments de la méthode que j'utilise. Le plus souvent..
(Prompt:=, Type:=)

[Trystan441]

Bonjor,

Tente de changer

Code :

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

Dim Réponse as integer

Par :

Code :

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

Dim Réponse as String

Bonne journée à toi,

[MarcelG]

Bonjour Trystan,

Tout dépend de la valeur attendue
Voir mon post précédent.

[Trystan441]

Effectivement, et la réponse attendue m'a l'air d'être une valeur numérique,

Cependant, tu peux déja enlever un IF qui e semble en trop :

Code :

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

1
2
3
4
5
6
7
'Vérifier qu'on est dans la plage des Pièces
If MaLigne < Range("Pièces").Row + 1 Or MaLigne > Range("Pièces").End(xlDown).Row Then
 
    Réponse = MsgBox("Sélection incorrecte", vbOKOnly, "Modification de ligne")
    Exit Sub
 
End If

Trystan

[Menhir]

Code :

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

    If Réponse Then Exit Sub

Réponse est un Integer et cette structure correspond à un Boolean.
D'autant plus inutile que le paramètre OkOnly de MsgBox ne permet pas de choisir une réponse.
Donc, cette variable est aussi inutile que la structure If qui la teste.

[patricktoulon]

re
je rejoins menhir sur ce coup la ton msgbox interactif est absolument inutile
tester la reponse ok d'un message avec pour seul bouton le bouton ok heu...
j'ajouterais que pour tester ou délimiter une selection tu a la fonction intersect

conclusion je remplacerais ceci :

Code :

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

1
2
3
4
5
'Vérifier qu'on est dans la plage des Pièces
If MaLigne < Range("Pièces").Row + 1 Or MaLigne > Range("Pièces").End(xlDown).Row Then
     Réponse = MsgBox("Sélection incorrecte", vbOKOnly, "Modification de ligne")
    If Réponse Then Exit Sub
End If

par cela

Code :

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

1
2
3
4
5
6
7
8
 
'Vérifier qu'on est dans la plage des Pièces
        With ActiveSheet
            If Application.Intersect(.Range(.Range("Pièces"), .Range("Pièces").End(xldoxn)), ActiveCell) Is Nothing Then
                MsgBox "Sélection incorrecte": Exit Sub' le msgbox n'a pas besoins dans ces circonstences de parametres bouton puisque c'est juste un avertissement 
                 'et que le exit n'est le resultat que de la condition intersect de l'activecell dans une plage et non et celle du msgbox  
           End If 
        End With