Discussion :

[Tamidu]

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

[pgz]

Bonjour.

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

Code :

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

For imois = 3 To DernCol1

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

Tu peux essayer

Code :

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

For imois = 3 To DernCol1.Column

Cordialement,

pgz

[Tamidu]

Bonjour

C'était bien cela, merci beaucoup

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 :

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

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

[pgz]

Re,

Tu peux faire un truc comme

Code :

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

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

[Tamidu]

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