Sélection colonne dans boucle avec condition

Bonjour

Apres qq recherches...et ne trouvant pas de rep, j'expose mon pb !
Le voici !

Sur la ligne 3, de L3 à BD3 j'ai ceci :
de L3 à O3 Janvier 09
de P3 à S3 février 09
et ainsi de suite jusque Décembre 09 en BD3

Si nous sommes en juin, j'aimerais sélectionner le mois de mai et ainsi de suite.
Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub Macro1() Sheets("FFR_Synthesis_BC").Visible = True Sheets("FFR_Synthesis_BC").Select Dim mydate, mydate2 edit : mydate = Month(Date) 1 mydate2 = Month(Date) - 2 MsgBox Format(mydate, "mmm yyyy") ' pour information BD3 = cells (3,56) tandis que L3 = cells (3,11) 'Range("BD3").Select For colindex = 56 To 11 With Worksheets("FFR_Synthesis_BC").Cells(3, colindex) If (.Value >= mydate) Then Else Application.Goto reference:=Worksheets("FFR_Synthesis_BC").Cells(3, colindex), Scroll:=True End If End With Next colindex Sheets("FFR_Synthesis_BC").Visible = False End Sub
Le problème est que je n'entre meme pas dans la boucle With j'ai l'impression :aie:
Si vous avez des pistes, je vous en remercierais par avance !

A bientot

Quand tu fais une boucle comme celle ci, le pas par defaut est 1, donc dans ton cas tu parts de 56 et tu montes:
57.58.59...
Il faut que tu mettes:
Code:

1 2 3 For colindex = 56 To 11 step-1 ... Next colindex

Salut,

J'ai pas tout regarde mais effectivement tu ne risques pas de rentrer dans la boucle FOR. Tu lui dis d'aller de 56 a 11 donc tu es hors limite des le depart.
remplace

Code:

For colindex = 56 To 11

par

Code:

For colindex = 56 To 11 Step -1

Code:

1 2 3 4 5 6 7 8 9 For colindex = 56 To 11 Step-1 With Worksheets("FFR_Synthesis_BC").Cells(3, colindex) If (.Value >= mydate) Then Else Application.Goto reference:=Worksheets("FFR_Synthesis_BC").Cells(3, colindex), Scroll:=True Exit For End If End With Next colindex
Sans entrer dans tes détails
ajoute le Exit For

Tu es sur qu'il n'y a pas plus simple de résumer toutes tes lignes

Edit: J'ai pas vu le Step -1 (Bonjour Minick); et avec, il va toujours s'arrêter dans la colonne 11 sans le Exit For

Une proposition pour simplifier:

Code:

1
2
3
4
5
6
7
8
9
sub trouver()
dim today as date, mydate as date
dim Plage as range, trouve as range
today = Now()
mydate=DateAdd("m", -1, today)   'renvoie today -1 mois
set Plage=range("L3:DB3")
set trouve=Plage.find(mydate,LookIn:=xlValues, SearchOrder:=xlByRows)
If not trouve is nothing then trouve.select
end sub

Edit: déclaration des variables

Je ne vais pas comprendre quand on écris cette "Terreur":
Code:

1 2 3 4 If Condition Then Else Action End If
Alors que ceci est équivalent à

Code:

If Not Condition Then Action

En plus dans ce cas il suffisait de mettre
Code:

1 2 3 If .Value < mydate Then ... End If

ahhh coool Merci beaucoup !

Je ne savais pas qu'on pouvait mettre un "Exit For"... génial
C'était la solution :)

Merci beaucoup:ccool: