Explication de code

Version imprimable

Explication de code

Bonsoir,

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

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

22/07/2013, 22h41
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).

Code:

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:

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

23/07/2013, 11h01
EngueEngue

Hahaha Merci casefayere! Le code "useless" vient de moi..
23/07/2013, 12h34
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 !
23/07/2013, 12h40
ffdream62

Comme indiqué dans mon premier message, 17 à 47 sont les n° de colonne (colonne Q à colonne AU)
23/07/2013, 13h42
EngueEngue

A = 1 B = 2 C = 3 .... Q = 17 .... AU = 47
23/07/2013, 17h48
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 !