Bonjour,
J'essaye d'établie un code afin de selectionner automatiquement une cellule en fonction d'une autre.
Pour être plus précise, j'ai un fichier de synthèse avec en colonne les différents mois de l'année (sous la forme 2015-01, 2015-02...) commençant à partir de C2. Je souhaiterais, en remplissant le nom du mois en B1 selectionner la cellule en dessous du mois correspondant.
Par exemple si j'écris 2015-01 en B1 j'aimerais selectionner la cellule C3 pour commencer la saisis dans la colonne correspondant à 2015-01.
Pour cela j'ai utilisé la fonction For...if...then...next. Cependant un message d'erreur s'affiche (Erreur d'exécution'13':incompatibilité de type) et je ne parviens pas à trouver mon erreur.

Mon code est le suivant

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
Sub Selection()
'
 
 Dim DernCol1 As Range
 Dim imois As Integer
 
 Set DernCol1 = Range("IV2").End(xlToLeft)
 For imois = 3 To DernCol1
 
 If Sheets("synthèse").Cells(2, imois) = Range("B1") Then
 Sheets("synthèse").Cells(3, imois).Select
End If
Next
 
End Sub
Merci d'avance pour votre aide