Problème de conversion d'une date en chaine de caractèresRésolu

Question

Bonjour &#224; tous,

Je butte sur un probl&#232;me avec VBA dans Excel (97), je cherche &#224; s&#233;lectionner une plage de cellules si le contenu est d'un certain type, ici l'ann&#233;e 2005.

J'ai tous les jours de l'ann&#233;e en colonne A et je commence en A3, je veux tester si la cellule du dessous comporte 2005 mais mon test est toujours faux, la conversion de date en chaine de caract&#232;res ne se fait pas et ma variable Mystring est toujours &#233;gale &#224; "" !

Voici la boucle qui pose probl&#232;me, j'ai beau tourner &#231;a dans tous les sens, je n'y arrive pas :

--------------------------------------

Dim test As Boolean
Dim yr As String
Dim d&#233;but
Dim fin
Dim Mystring As String


yr = 2005

d&#233;but = ActiveCell.Address
ActiveCell.Offset(1, 0).Select


Do While test = True
Mystring = CStr(ActiveCell)
If Right(Mystring, 4) = yr Then
test = True
fin = ActiveCell.Address
End If


ActiveCell.Offset(1, 0).Select

Loop

Sheets("BASE1").Range(d&#233;but & ":" & fin).Select

------------------------------------------------------------------

Merci d'avance pour votre aide.

St&#233;phan

linasteph · Accepted Answer

Ahh &#234;tre que c'&#233;tait d&#251; au fait que tu n'avais pas initialiser ta variable

et cela deviendrait



test = true

Do While test = True
Mystring = CStr(ActiveCell)
If Right(Mystring, 4) <> yr Then test = false
fin = ActiveCell.Address
End If

linasteph · Answer

Faut peut -&#234;tre d&#233;j&#224; essayer de mettre yr="2005" et Mystring=Cstr(Activecell.Text)

Serialsiner · Answer

Merci pour ta r&#233;ponse, mais &#231;a ne marche pas mieux ...

linasteph · Answer

Qu'est ce que cela donne si dans ta boucle tu fais afficher la valeur de la cellule active?

Serialsiner · Answer

Bon je viens de trouver la solution en sortant le test de la boucle, et l&#224; les variables s'actualisent correctement:

Dim test As Boolean
Dim yr As String
Dim d&#233;but
Dim fin
Dim Mystring As String


yr = 2005

d&#233;but = ActiveCell.Address
ActiveCell.Offset(1, 0).Select

check:
test = False
Mystring = Right(CStr(ActiveCell.Text), 4)
If Mystring = yr Then
test = True
fin = ActiveCell.Address
End If


Do While test = True


ActiveCell.Offset(1, 0).Select
GoTo check
Loop


Sheets("BASE1").Range(d&#233;but & ":" & fin).Select

Merci bien pour ton aide
St&#233;phan

Serialsiner · Answer

Oui c'est exactement &#231;a. Merci encore pour ton aide.

St&#233;phan

Problème de conversion d'une date en chaine de caractères

6 réponses

Discussions similaires