Discussion :

[fabiencal]

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 :

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
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
Si vous avez des pistes, je vous en remercierais par avance !

A bientot

[diude54]

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 :

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

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

[Minick]

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 :

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

For colindex = 56 To 11

par

Code :

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

For colindex = 56 To 11 Step -1

[mercatog]

Code :

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

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

[diude54]

Une proposition pour simplifier:

Code :

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

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

[mercatog]

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

Code :

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

1
2
3
4
If Condition Then
Else
   Action
End If

Alors que ceci est équivalent à

Code :

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

 If Not Condition Then Action

[diude54]

En plus dans ce cas il suffisait de mettre

Code :

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

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

[fabiencal]

ahhh coool Merci beaucoup !

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

Merci beaucoup