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