VBA recherche date en ligne

C@thy

XLDnaute Barbatruc

• 27 Août 2014

• #2

Re : VBA recherche date en ligne

Set a = Range("D2: D" & derCol ) (espace après : pour éviter le smiley)

C@thy

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Août 2014

• #3

Re : VBA recherche date en ligne

Bonjour Cathy,

essaye peut être l'initialisation ainsi :

Code:

Set a = Range("D2",  & cells(2,derCol) )

bonne journée
@+

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 27 Août 2014

• #4

Re : VBA recherche date en ligne

Bonjour Cathy, le forum,

pourquoi le match ne fonctionnerait-il pas?
avec un .find (je ne sais pas si ça te convient mais bon)

VB:

Range("b5") = Rows(1).Find(what:=Range("a5")).Column

qui me permet de trouver la colonne de la date écrite en A5 et de renvoyer le numéro de la colonne en B5 (je ne sais pas comment on traduit un numéro de colonne en Lettre)

Tibo
Edit : salut Pierrot

 

Dernière édition: 27 Août 2014

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 27 Août 2014

• #5

Re : VBA recherche date en ligne

Bonjour + bise, C@thy , Pierrot , titiborregan5, le Forum,

Pour une date en ligne 2, peut-être ainsi :

Code:

Option Explicit
Sub Où()
Rows(2).Find(Date).Select
End Sub

A bientôt

P. S. : Je n'ai pas fourni le bon code pour la question posée ... Me faudrait une loupe

 

Dernière édition: 27 Août 2014

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 27 Août 2014

• #6

Re : VBA recherche date en ligne

Bonjour à tous ,

En fait si je comprend bien puisque pas de fichier de travail ,
la date n'est pas une valeur mais un calcul de la cellule précédente + 1 ?
Sinon pourquoi convertir en double la date

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 27 Août 2014

• #7

Re : VBA recherche date en ligne

Un grand MERCI à tous les 3,

BRAVO, cela fonctionne.
Oui j'ai bien pensé au find, mais le format de date dans ma ligne est spécial, et cela ne fonctionne pas.

Un immense MERCI...

Bisous bisous

C@thy

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 27 Août 2014

• #8

Re : VBA recherche date en ligne

Coucou camarchepas,

en fait, c'est une habitude, peut-être que le cdbl est superflu, mais j'ai déjà eu des soucis sans...

C@thy

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Août 2014

• #9

Re : VBA recherche date en ligne

Bonjour C@thy, bonjour les ami(e)s,

Il faut définir correctement la plage a :

Code:

Sub rechercheDateLigne()
Dim a As Range, b As Double, c As Variant
Set a = [D2].Resize(, Columns.Count - 3)
b = Date 'CDbl(Date)
c = Application.Match(b, a, 0)
If IsNumeric(c) Then MsgBox "date trouvée en colonne " & c + 3
End Sub

CDbl n'est pas nécessaire si b est bien déclarée As Double.

A+

 

Vote positif 0 Vote négatif