Discussion :

[dodo28]

Bonjour le forum,
Pouvez vous maider sur ce probleme?
Un userform comprenant un spinbouton fait defiler les données d une feuille excel de la ligne 15 à la derniere ligne. Dans certaines conditions, il se peut qu'une de ces lignes est un fond de couleur vert (colorindex =43).
Mon problème est SI la liste contient une ligne avec fond vert alors commence par celle la à l ouverture de l userform.
dans UserForm_Initialize j ai pour l instant ce code qui gere le spinbutton:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Me.SpinButton1
    .Min = 15  'débute à la ligne 15
    .Max = DerLig 'Dernière ligne que peut afficher les textbox
    .Value = 15
End With

merci d'avance

[Gorfael]

Salut dodo28 et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Me.SpinButton1
    .Min = 15  'débute à la ligne 15
    .Max = DerLig 'Dernière ligne que peut afficher les textbox
    .Value = X
End With

Il suffit de faire une recherche pour initialiser la valeur de X à la 1ère ligne dont le .interior.colorindex est égal à vert.
A+

[dodo28]

Merci gorfael
mais la difficulté pour moi est de coder cela
j ai essayé comme ca mais ca ne marche pas. je ne vois pas comment on dit la premiere ligne verte en commencant par le bas.
j ai tenté ceci mais ca ne marche pas erreur "objet requis" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 x = .Range("A65000").End(xlUp).Interior.ColorIndex = 43

et de plus il doit etre soumis a une condition car la ligne verte peut etre absente.

merci pour ton aide

[dodo28]

avec l aide d un autre forum, cette solution me convient et marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Worksheets("Visio")
 
    'pour trouver la premiere ligne verte pour demarrer visio sur cette ligne
    Derlg = .Cells(Rows.Count, 1).End(3).Row
  For i = 15 To Derlg
    If Cells(i, 1).Interior.ColorIndex = 43 Then Exit For
  Next
 
End With
 
 
With Me.SpinButton1
    .Min = 15  'débute à la ligne 15
    .Max = DerLig 'Dernière ligne que peut afficher les textbox
    .Value = IIf(i > Derlg, 15, i) 'demarre soit sur la ligne verte ou au debut valeur 15
End With

Merci pour ceux qui m ont aidé