Selection avec condition

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:

---

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

Bonjour.

Tu ne le précises pas, mais je pense que l'erreur est levée par cette ligne

Code:

---

For imois = 3 To DernCol1

---

ET c'est bien normal, car DernCol1 est une cellule, probablement vide.

Tu peux essayer

Code:

---

For imois = 3 To DernCol1.Column

---

Cordialement,

pgz

Bonjour

C'était bien cela, merci beaucoup :lol:

je ne voudrais pas abuser mais j'ai également un autre petit soucis. Les données de chaque mois sont stockées dans un nouvel onglet à chaque fois. J'aimerais pouvoir selectionner les données de la feuille correspondant au mois renseigné en B2.
Exemple: j'indique en B2 2015-01 j'aimerais que les données de l'onglet 2015-01 soient copié dans l'onglet synthèse. Pour la formule de copie je l'ai fait sans problème j'ai juste du mal dans la déclaration des variables

Code:

---

1 2 3 4 5 6 7 8 9

'Déclaration des variables Dim FeSource As Worksheet Dim FeDest As Worksheet Dim Mois As Variant   'Attribution d'une valeur à une variable Set FeSource = Sheets("Mois") Set FeDest = Sheets("synthèse") Set Mois = Sheets("synthèse").Range("B1")

---

Enfait j'aimerais dire que la feuille FeSource correspond à la feuille du mois écrit en B2 mais je n'arrive pas à le formuler.

En tout cas merci beaucoup pour votre temps et de votre réponse rapide cela faisait des heures que j'étais bloquée

Re,

Tu peux faire un truc comme

Code:

---

1 2 3 4 5 6

'... Dim sMois as string   '... sMois = Thisworkbook.Worksheets("NomFeuille").Range("B2").Value Set FeSource = ThisWOrkbook.Worksheets(sMois)

---

Bien sûr, on peut aussi tout écrire en une ligne mais ce ne serait pas plus clair...

Cordialement,

pgz

Cela fonctionne très bien, merci beaucoup :-)