SpinButton

[maval]

Bonjour

J'ai un USF auquel j'ai un SpinButton pour faire une avance rapide sur les noms, sur ma feuille il y a un cadre qui indique le nom a chaque dépassement et j'aimerais que la cellule se colore de jaune au passage du cadre.

Je joint un exemple qui sera plus explicite

Merci de votre aide

Cordialement

maval

 

[Hervé]

Re : SpinButton

salut

à essayer :

Private Sub SpinButImages_Change()
  With SpinButImages
    If .Value = 0 Then Exit Sub
    LabelIndex = .Value
    Sheets("Feuil1").Range("f" & LabelIndex + 3).Activate
    nom.BackColor = IIf(Sheets("Feuil1").Range("f" & LabelIndex + 3).Interior.ColorIndex = 6, 65535, 12632256)
    nom.Caption = Sheets("Feuil1").Cells(LabelIndex + 3, 6)
    End With
End Sub

a plus

 

[maval]

Re : SpinButton

Bonjour Hervé

Et merci d'avoir répondu mais sa ne fonctionne pas j'ai toujours mes cellule sans couleur au passage du cadre

@+

Maval

 

[job75]

Re : SpinButton

Bonjour maval, Hervé,

Fichier joint.

A+

 

[job75]

Re : SpinButton

Re,

Votre macro UserForm_Initialize corrigée (pour le cas où la liste est vide) :

Private Sub UserForm_Initialize()
  Dim NbImages%
  NbImages = Sheets("Feuil1").Range("f65536").End(xlUp).Row - 3
  If NbImages <= 0 Then End 'arrête tout
  SpinButImages.Max = NbImages
  SpinButImages.Min = 1
  SpinButImages.Value = 1
End Sub

Fichier (2).

A+

 

[maval]

Re : SpinButton

Bonjour Job75

Je te remercie beaucoup c'est nickel

Bonne journée

@+

Maval

 

[maval]

Re : SpinButton

RE,

Suite au code de Job75 qui fonctionne très bien, j'aimerai lui apporté une petite modif si possible.
Dans la colonne "F" qui colore les cellules en jaune au passage du cadre j'aimerai que les cellule de la colonne (F4:F35) reste de couleur Gris.

Merci d'avance

Cordialement

Mava

 

[job75]

Re : SpinButton

Re,

Vous deviez pouvoir adapter ça tout seul, non 😕

A+

 

[job75]

Re : SpinButton

Re,

Si la liste est variable et que c'est elle qu'on veut colorer en gris c'est un peu plus sioux.

Fichier (4).

A+

 

[maval]

Re : SpinButton

Bonjour Job75

Je te remercie et te souhaite une bonne journée

Maval

 

[job75]

Re : SpinButton

Bonjour maval, le forum,

Cette solution, plus élégante, utilise une Mise en forme conditionnelle (MFC) :

Private Sub SpinButImages_Change()
  LabelIndex = SpinButImages
  With Range("F" & LabelIndex + 3)
    .Activate 'facultatif...
    nom = .Text
    ThisWorkbook.Names.Add "lig", .Row 'nom défini (pour la MFC)
  End With
End Sub

Private Sub UserForm_Initialize()
  Dim NbImages&
  Sheets("Feuil1").Activate 'si nécessaire...
  NbImages = Range("F65536").End(xlUp).Row - 3
  If NbImages <= 0 Then End 'arrête tout
  SpinButImages.Max = NbImages
  SpinButImages.Min = 1
  SpinButImages = 1
End Sub

Fichier joint en ..xls pour que tout le monde y accède.

A+