VBA selection.find

[hypo78]

Bonjour à tous,

je cherche à identifier une colonne par l'utilisation de find.
la plage de recherche est composée de formules dont les résultats sont des dates.
j'ai un code qui fonctionne lorsque je fais une recherche de 1 à 9 et qui plante pour les dates supérieures.

col = Format(datedesaisie, "dd")
    col = CInt(col)
    colonne = CInt(colonne)
    

    
    Range("O9:BW9").Select
    Selection.Find(What:=col, LookIn:=xlValues, lookat:=xlWhole).Activate
    colonne = ActiveCell.Column

Merci

 

[Guest]

Re : VBA selection.find

Bonjour,

'recherche de la colonne du jour
    col = Day(datedesaisie)
    'La cellule sera la Col*2-1 ème colonne de la plage
    Range("O9:BW9")(1, col * 2 - 1).Select

A+

 

[hypo78]

Re : VBA selection.find

Bonjour Hasco,

çà à l'air de fonctionner sur mon fichier mais pourrais-tu m'expliquer (1,Col*2-1).

Merci

 

[Guest]

Re : VBA selection.find

Re,

Un objet range est un tableau de cellules donc pouvant être indicé (ligne,colonne)

Range("O9:BX9")(1,1) est la première cellule de la première ligne
Tu as entre O9:BX9 62 colonnes fusionnées par zone de deux
Col peut aller de 1 à 31
col*2 ira de 2 à 62
moins 1 pour avoir la colonne de gauche (première cellule des deux cellules fusionnées de chaque zone)

A+

 

[hypo78]

Re : VBA selection.find

Re,

merci pour cette petite explication.

Cordialement

 

[hypo78]

Re : VBA selection.find

Bonjour,

Encore un petit problème, les classeurs dans lesquels je vais chercher des données comporte des feuilles nommées par le nom des mois (JANVIER à DECEMBRE).
Je me sers de ce nom pour récupérer la feuille

 'ouverture sur la feuille du mois
    ActiveWorkbook.Sheets(Format(datedesaisie, "mmmm")).Select

Le problème, c'est que les noms des feuilles ne comportent pas d'accent, et que lorsque le code VBA fait sa recherche il cherche par exemple février...

Je crois qu'il faut passer par des Array non?

 

[Guest]

Re : VBA selection.find

Bonjour
S'il n'est pas possible de changer le nom des feuilles tu peux toujours utiliser quelque chose comme ceci(je te laisse compléter le tableau des mois):

 Dim aMois: aMois = Array("JANVIER", "FEVRIER", "MARS", "AVRIL")
nomFeuille = aMois(Month(DatedeSaisie) - 1)

-1 parceque le tableau est de base zéro

A+

 

[hypo78]

Re : VBA selection.find

Merci pour cette réponse ultra rapide.
je teste cet AM.