Discussion :

[iIncoming]

Bonsoir,

Quelqu'un pourrait-t-il m'expliquer, simplement, ce morceau de code ?
En particulier, le passage souligné... Merci beaucoup !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim datechercher As String
Dim i As Integer
With Sheets("Feuil1")
    datechercher = Date
    For i = 17 To 47
        If CDate(.Cells(10, i)) = datechercher Then
            .Range(.Cells(11, i), .Cells(33, i)).Select
            Exit Sub
        End If
    Next i
End With
End Sub

[ffdream62]

Tu cherches une date dans les colonnes (de 17 à 47) de la Feuil1.
Si tu trouves cette date, tu sélectionnes la plage correspondante (entre les lignes 11 et 33).

[casefayere]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim datechercher As String 'voir avec l'aide "F1"
Dim i As Integer 'voir avec l'aide "F1"
With Sheets("Feuil1")
    datechercher = Date
    For i = 17 To 47 'on commence une boucle de 17 à 47
        If CDate(.Cells(10, i)) = datechercher Then 'donc 1ère boucle .cells(10,i) représente .cells(10,17) soit range("P10")
            .Range(.Cells(11, i), .Cells(33, i)).Select ' faire même déduction, on selectionne range("Q11:Q33")
            Exit Sub 'on sort du programme si la condition est remplie
        End If
    Next i 'on passe à la boucle suivante
End With
End Sub

code qui ne sert pas à grand-chose, en l'état

Edit :et qui peut être remplacé sans utiliser de boucle :

Code :

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

1
2
3
4
5
6
7
8
9
Sub toto()
Dim Ch As Range
Set Ch = Range("Q17:AU17").Find(Date, LookIn:=xlValues)
If Not Ch Is Nothing Then
  Range(Cells(11, Ch.Column), Cells(33, Ch.Column)).Select
Else
  MsgBox "pas de correspondance trouvée"
End If
End Sub

[EngueEngue]

Hahaha Merci casefayere! Le code "useless" vient de moi..

[iIncoming]

Bonjour,

Merci pour votre aide casefayere. Le message à propos des correspondances est excellent. En revanche, la fonction de sélection ne fonctionne pas même lorsqu'elle le devrait (lorsque le mois est trouvé).

Le code de EngueEngue fonctionne, mais je ne comprends vraiment pas l'histoire du For i = 17 To 47. D'accord, une boucle, mais une boucle de quoi ? Des cellules 17 à 47 ? Pourquoi ?

Et si je veux l'utiliser ailleurs, je dois remplacer le 17 et le 47 ? Voilà ce n'est pas très clair dans ma tête en fait... Si pourriez m'expliquer comme à un enfant de 5 ans je prends !

[ffdream62]

Comme indiqué dans mon premier message, 17 à 47 sont les n° de colonne (colonne Q à colonne AU)

[EngueEngue]

A = 1 B = 2 C = 3 .... Q = 17 .... AU = 47

[iIncoming]

Super, je viens de comprendre merci beaucoup.
En prime, j'ai trouvé en fouillant un peu comment afficher les numéros de colonnes au lieu de voir les lettres.

Impeccable !