Discussion :

[grandid88]

Bonjour,

Dans le tableau ci-dessous sont gérés les entrées-sorties de pièces outillages (appelées POINCONS et FILIERES) au sein d'un magasin d'entreprise.
En fin de journée, le responsable magasin récupère les pièces (organisées en plusieurs catégories et types) et doit pointer leur ré-intégration dans le stock.



Le process de retour est le suivant :

1/ Sélection, en activant un bouton radio associé à la colonne concernée, de la catégorie et du type de pièce en cours de traitement,
2/ Saisie en cellule R2 du diamètre à rechercher dans la colonne sélectionnée en 1 (DIAM)
3/ Recherche de DIAM dans la colonne activée en 1 et positionnement du curseur de cellules sur la 1ère occurence de DIAM
4/ Si DIAM trouvé, mise en forme de la cellule (couleur des caractères = R:0 / V:153 / B:255) => FIN DE TRAITEMENT DE LA PIECE = RE-INTEGRATION TERMINEE

5/ Pièce suivante : - si DIAM = à la précédente, clic sur bouton [Suivant] pour trouver prochaine occurence de DIAM dans la colonne activée en cours
- si DIAM <>, retour à l'étape 1

Voilà, j'espère avoir été clair dans mes explications

Un peu d'aide serait la bienvenue svp !...


MERCI !!!

[Theze]

Bonjour,

Tout d'abords, tu sélectionne le premier bouton d'option, clic droit puis "Format de contrôle..." et ensuite onglet "Contrôle" puis "Cellule liée" tu choisi "$S$2" de cette façon, l'index du bouton sera inscrit dans cette cellule mais caché par le bouton et tu affecte la macro ci-dessous au bouton puis tu teste si ça te convient.
Attention, les boutons d'option doivent avoir été posés sur la feuille de gauche à droite afin que leurs index correspondent au numéros de colonnes sur lesquelles ils sont posés :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub Diametre()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Col As Integer
 
    Col = Range("S2").Value
 
    With Worksheets("SERIE 4 6 ET 12 14") '<-- vérifier si bien orthographié !
 
        Set Plage = .Range(.Cells(1, Col), .Cells(.Rows.Count, Col).End(xlUp))
 
    End With
 
    'supprime la coloration de fonte précédente
    Plage.Characters.Font.Color = RGB(0, 0, 0)
 
    'effectue la recherche
    Set Cel = Plage.Find(Range("R2").Value, , xlValues, xlWhole)
 
    'si trouvé, colore la fonte
    If Not Cel Is Nothing Then
 
        Cel.Characters(1, Len(Cel.Value)).Font.Color = RGB(0, 153, 255)
 
    End If
 
End Sub

Hervé.