Pb de boucle avec une date

[Seb]

Bonsoir à tous....

J'ai un petit soucis avec la construction d'une boucle...

Je voudrais que ma macro me trouve la valeur de la textbox1 dans ma feuille Repertoire N B5:B370 et qu'elle me fasse :TextBox2.Value = cel.Offset(0, 1).Value une fois qu'elle a trouvée. Mais je galère un peut dans tous ces formats de valeurs et suis pas sur que ma boucle soit bien faite... Quelqu'un saurait le faire ? Merci encore.. SEb

Private Sub UserForm_Initialize()
Dim cel As Range
Dim vcompteur As Long
Dim vlimite As Date
Dim vdate As Date

TextBox1.Value = ActiveCell.Value

vcompteur = 3
vlimite = TextBox1

Do Until vlimite = vdate
Sheets("Repertoire N").Cells(vcompteur, 1) = CDate(vdate)
vcompteur = vcompteur + 1
Loop

TextBox2.Value = cel.Offset(0, 1).Value
End Sub

 

[CBernardT]

Re : Pb de boucle avec une date

Bonsoir Seb,

Avec ce que j'ai pu comprendre, j'ai modifié quelque peu la macro.


Private Sub UserForm_Initialize()
Dim Cel As Range
Dim Vcompteur As Long
Dim Vlimite As Date
'Dim Vdate As Date 'Comprends pas ce que c'est ????

TextBox1.Value = ActiveCell.Value
Vcompteur = 3
Vlimite = TextBox1


With Sheets("Repertoire N")
For Each Cel In .Range("B5:B370") ' Boucle sur les cellules
If Cel.Value = Vlimite Then
Vcompteur = Vcompteur + 1
TextBox2.Value = Cel.Offset(0, 1).Value
End If
Next Cel
End Sub

Cordialement

Bonne nuit les petits

Bernard

 

[kjin]

Re : Pb de boucle avec une date

Bonsoir,
Un peu bizarre (enfin si j'ai compris)
Tu veux trouver une valeur dans la colonne B (donc colonne 2) et tu écris

Sheets("Repertoire N").Cells(vcompteur, [COLOR="Red"]1[/COLOR]) = CDate(vdate)

Tu veux trouver une valeur en B5:B370 (donc 1ere ligne = 5) et tu écris

Vcompteur = [COLOR="Red"]3[/COLOR]

A priori la cellule résultat est forcément dans la colonne C, donc en gardant la principe de ta macro

Private Sub UserForm_Initialize()
Dim vcompteur As Long
Dim vlimite As Date
Dim vdate As Date

TextBox1.Value = ActiveCell.Value

vcompteur = 5
vlimite = CDate(TextBox1)

Do
vdate = Sheets("Repertoire N").Cells(vcompteur, 2)
vcompteur = vcompteur + 1
Loop Until vlimite = vdate

TextBox2 = Sheets("Repertoire N").Cells(vcompteur - 1, 3)

End Sub

A+
kjin

 

[soenda]

Re : Pb de boucle avec une date

Bonsoir le forum, CBernardT, Kjin, Seb

Une variante, qui ne remplit TextBox2 que si la date est trouvée.

@Seb
Il me semble que tu n'as pas initialisé la variable vdate,
peut-être comme ça (si la cellule active une date !) :

vdate = ActiveCell.Value
textBox1.Text = vdate

Et pour le reste, tu peux essayer :

With Sheets("Repertoire N")
 
 For vlimite = 5 to 370
 
   If .Cells(vlimite, 2) = vdate then
      TextBox2.Text = .Cells(vlimite, 3)
      Exit For
   End if
 
 Next
 
End with

Ne pas oublier le point devant Cells

A plus