Discussion :

[naudju]

Bonjour,

Ma macro a pour but de lire la valeur dans la cellule C2 (qui possède une liste déroulante) qui est un texte et de sélectionner une cellule comme D7 pour "DIFFUS P1" par exemple. Elle se lance correctement, aucun deg détecté, mais rien ne se passe.

Je pense qu'il n'arrive pas à lire la valeur dans C2. Pouvez - vous m'aider s'il vous plait

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
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Dim Wk1 As Workbook
Set Wk1 = ThisWorkbook
 
Dim recherche As String
recherche = Wk1.Sheets("Indi. relevé compteur").Range("C2")
 
With Wk1.Sheets("Indi. relevé compteur")
    If recherche = "PATRIMOINE" Then Range("D185").Select
    If recherche = "DIFFUS P1" Then Range("D7").Select
    If recherche = "HABITAT TOULOUSE" Then Range("D103").Select
    If recherche = "COLOMIERS" Then Range("D210").Select
    If recherche = "BAILLEUR SOCIAL" Then Range("D266").Select
    If recherche = "BATIMENT COMMUNAUX" Then Range("D322").Select
    If recherche = "BORDEAUX" Then Range("D414").Select
End With
 
End Sub

[jerome.vaussenat]

Salut,

Ce que tu peux essayer de faire pour trouver où est l'erreur, c'est un pas à pas.
Place toi dans le code et fait F8 X fois.

A chaque pression tu vois une ligne jaune qui te montre la ligne qui va être exécutée.
Au fur et à mesure, tu peux te placer sur le nom des variables pour voir ce qu'elles contiennent.

Une piste tout de même.
En VBA, les comparaisons sur des chaînes de caractères sont sensibles à la casse. cela veut dire que "patrimoine" n'est pas égal à "PATRIMOINE" !!!
Si dans ta cellule, tu as le texte en minuscule, c'est pas bon.

Pour éviter çà, place en début de module l'instruction suivante

Code :

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

Option Compare text

[naudju]

Bonjour Jérome,

Je sais que la chaîne de caractère est sensible, c'est pour quoi les valeurs que peut prendre C2 sont fixes (toujours les mêmes caractères).

Merci pour F8 X, je ne connaissais pas.

A la ligne 8 recherche n'est égale a rien (recherche = "") alors qu'il devrait être égale a "PATRIMOINE"..

[jerome.vaussenat]

Re,

C'est donc qu'il y a un problème dans l'initialisation de la variable !

Tu mets
Thisworkbook.

Pour toi, cela fait référence :
Au classeur actif ou au classeur contenant la macro ???

Pour Excel, c'est le classeur contenant la macro. Comme on n'a pas le début du code. C'est peut être Activeworkbook ?

Mais comme je ne sais pas où est la feuille "Indi. relevé compteur". et peut être qu'en précisant

Code :

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

recherche = Wk1.Sheets("Indi. relevé compteur").Range("C2").value

[naudju]

Thisworkbook c'est le classeur contenant la macro

Mais vu que je ne fais pas appel à d'autres classeurs extérieurs je l'ai supprimé.

La feuille "Indi. relevé compteur" est dans le classeurs contenant la macro (c'est même la feuille du classeur où se trouve la macro)

voila mon code (en entier)

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
Sub recherche()
'
' recherche Macro
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Dim recherche As String
recherche = Sheets("Indi. relevé compteur").Range("C2").Value
 
With Sheets("Indi. relevé compteur")
    If recherche = "PATRIMOINE" Then Range("D185").Select
    If recherche = "DIFFUS P1" Then Range("D7").Select
    If recherche = "HABITAT TOULOUSE" Then Range("D103").Select
    If recherche = "COLOMIERS" Then Range("D210").Select
    If recherche = "BAILLEUR SOCIAL" Then Range("D266").Select
    If recherche = "BATIMENT COMMUNAUX" Then Range("D322").Select
    If recherche = "BORDEAUX" Then Range("D414").Select
End With
 
End Sub

J'ai toujours le même problème, rien ne se passe et "recherche" n'est égal à rien (recherche = "")

[naudju]

C'est bon mon code fonctionne !

La cellule est bien sélectionnée, mais je souhaiterai qu'en plus que la cellule est sélectionner on se retrouve à l'endroit de la cellule. Actuellement, la cellule est sélectionnée mais la "vue" de l'utilisateur ne change pas.

Il y a t-il un code pour cela ?

[Pierre Fauconnier]

Salut.

Si tu utilises le bloc With... End With, tu dois lier les objets Range à l'objet du With avec un point

Code :

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

1
2
3
With Sheets("Indi. relevé compteur")
    If recherche = "PATRIMOINE" Then .Range("D185").Select
    If recherche = "DIFFUS P1" Then .Range("D7").Select

[patricktoulon]

Bonjour
tu aurais pu utiliser un select case ou switch

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
Option Compare Text ' en haut de module
 
'et dans ta sub  
Dim R As String, Wk1 As Workbook, add As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wk1 = ThisWorkbook
R = Wk1.Sheets("Indi. relevé compteur").Range("C2").Text
add = Switch(R = "PATRIMOINE", "D195", R = "DIFFUS P1", "D7", R = "HABITAT TOULOUSE", "D103", _
           R = "COLOMIERS", "D120", R = "BAILLEUR SOCIAL", "D266", R = "BATIMENT COMMUNAUX", "D322", "BORDEAUX", "D414")
With Wk1.Sheets("Indi. relevé compteur")
    .Range(add).Select
    'If recherche = "PATRIMOINE" Then Range("D185").Select
    'If recherche = "DIFFUS P1" Then Range("D7").Select
    'If recherche = "HABITAT TOULOUSE" Then Range("D103").Select
    'If recherche = "COLOMIERS" Then Range("D210").Select
    'If recherche = "BAILLEUR SOCIAL" Then Range("D266").Select
    'If recherche = "BATIMENT COMMUNAUX" Then Range("D322").Select
    'If recherche = "BORDEAUX" Then Range("D414").Select
End With
End Sub

j'ai laissé le (with/end with) au cas ou tu aurais autre chose a faire apres le select sinon c'est inutile Wk1.Sheets("Indi. relevé compteur").Range(add).Select suffit