Discussion :

[thejack42]

Bonjour,
Je débute en VBA, je cherche à sécuriser l'accès à un tcd par comparaison avec un champ texte et un champ "n°agent".
Apparemment, la concaténation des deux variables est fausse.
Voilà ce que j'ai écrit, modifié et remodifié, avec toujours le message "incompatibilité de type"
Quelqu'un peut-il m'aider ?
Merci

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
 
Sub Macro1()
'
' Macro1 Macro
'
Dim vpole As String
Dim vagt As Integer
Sheets("Accueil").Select
vpole = InputBox("veuillez renseigner l'intitulé du pôle de la liste ")
Range("a1").Select
vagt = InputBox("Veuillez renseigner votre n° d'agent sans le 0")
Range("b1").Select
vagt = CStr("b1")
Dim Vtot As String
Vtot = CStr(vpole & vagt)
Range("c1").Select
If (Application.Match("e4:e24", Vtot, 0)) Then ActiveCell.Value = vpole Else mgsbox = "Nom de pôle et d'agent incompatible"
On Error GoTo 0
Range("a1").Select
Sheets("TCD").Visible = True
Sheets("TCD").Select
ActiveSheet.PivotTables("pole").PivotFields("POLE "). _
        ClearAllFilters
ActiveSheet.PivotTables("pole").PivotFields("POLE "). _
        CurrentPage = vpole
Range("a1").Select
 
End Sub

[unparia]

Bonjour

J'étais en train de chercher l'incompatibilité dénoncée dans ce code peu lisible (non indenté et entre balises code), lorsque je suis "tombé" sur cela :

Code :

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

1
2
3
vagt = InputBox("Veuillez renseigner votre n° d'agent sans le 0")
Range("b1").Select
vagt = CStr("b1")

qui n'a rien à voir avec l'incompatibilité en cause mais me décourage à divers titres de participer.

[thejack42]

Je retente ma chance vers vous même si je suis conscient de mes grosses lacunes...
J'ai essayé de clarifier ce que je veux faire ci dessous...

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
Sub Macro1()
'
'
Dim vpole As String
Dim vagt As String
Dim Vtot As String
'
Sheets("Accueil").Select
' Renseignement du champ pole qui sera sélectionner dans le tableau croisé dynamique
vpole = InputBox("veuillez renseigner l'intitulé du pôle de la liste ")
' Renseignement du N° d'agent associé au pole, contrôle de cohérence
vagt = InputBox("Veuillez renseigner votre n° d'agent sans le 0")
' Concaténation des deux variables
Vtot = CStr(vpole & vagt)
' Vérification que la variable vtot existe dans les cellules e4 à e24 sinon retour au départ
If (Application.Match("e4:e24", Vtot, 0)) Then ActiveCell.Value = vpole Else mgsbox = "Nom de pôle et N°agent incompatibles"
'
' Activation de la feuille cachée du tableau croisé qui sera protégée par mot de passe
Sheets("TCD").Visible = True
Sheets("TCD").Select
' Sélection du ole concerné dans le TCD
ActiveSheet.PivotTables("pole").PivotFields("POLE "). _
        ClearAllFilters
ActiveSheet.PivotTables("pole").PivotFields("POLE "). _
        CurrentPage = vpole
Range("a1").Select
 
End Sub

Merci

Bonjour

J'étais en train de chercher l'incompatibilité dénoncée dans ce code peu lisible (non indenté et entre balises code), lorsque je suis "tombé" sur cela :

Code :

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

1
2
3
vagt = InputBox("Veuillez renseigner votre n° d'agent sans le 0")
Range("b1").Select
vagt = CStr("b1")

qui n'a rien à voir avec l'incompatibilité en cause mais me décourage à divers titres de participer.

[unparia]

Je retente ma chance vers vous

Mais tu ne fais pas d'efforts pour augmenter tes chances.
Relis-moi donc -->>

J'étais en train de chercher l'incompatibilité dénoncée dans ce code peu lisible (non indenté et entre balises code),...

EDIT : je vais tout de même faire un tout petit effort en dépit de l'absence du tien :
CurrentPage est un objet. Il n'est pas une chaîne de caractères.