Discussion :

[unparia]

Bon
C'est normalement moi, qui devrait recevoir un cadeau le 14 mai (ce que nous sommes aujourd'hui), mais bon ...
Petite démo :
1) sur un userform : 3 labels Label1, Label2 et Label3 et un bouton de commande Commandbutton1
et ce code :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
  With Worksheets("Feuil1")
    For i = 1 To 3
     Me.Controls("Label" & i).Caption = .Range("B" & .Range("C" & i).Value)
    Next
  End With
End Sub

2) sur La feuille Feuil1 : 3 lignes de données -->>
---- A-------- B----------C
1 Pierre------rouquin-----1
2 Jacques----brun------- 2
3 André------blond------3

L'ajout de la colonne C et de ses valeurs est fait une fois pour toutes. Cet ajout correspond à ce que je t'ai exposé plus haut.

Lance maintenant ton userform et clique sur le bouton de commande -->> regarde
Amuse-toi maintenant à trier tes lignes sur ta feuille (autant de fois que tu veux et que ce soit par ordre ascendant ou descendant) sur la base de la colonne A
--> retourne et clique le bouton de commande du userform et regarde --->> la correspondance est toujours là malgré le bouleversement de tes lignes.
Voilà tout . Ce n'est là rien d'autre que ce que je t'ai expliqué plus haut et ce n'est que de la logique (qu'elle soit ou non appliquée à l'informatique).

[mjpmjp]

bonjour,

Dans une feuille nommée Villes j'ai la colonne B qui contient les noms de villes, la colonne A contient un numéro chronologique de 1 à xxxx

Sur un userform avec une image carte j'ai autant de labels que de villes

label nom = nom ville

bouton "mise à jour"

Code :

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

1
2
3
4
5
6
 
Private Sub CmdAction_Click()
    For n = 1 To 3
        Me.Controls(Range("b" & n).Value).Caption = Range("b" & n).Value & " - " & Range("a" & n).Value
    Next n
End Sub

résultat


@+JP

[counterbob]

Voilà ça 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Combobox1_change()
Dim DerLgn As Byte
Dim L As Byte, Idx As Byte
    With Worksheets("Carte")
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
  For L = 2 To DerLgn
    Idx = .Cells(L, 1)
        Controls("Label" & Idx).Caption = .Cells(L, 2)
        Controls("Label" & Idx).AutoSize = False
        Controls("Label" & Idx).Width = 60
        Controls("Label" & Idx).Height = 10
        Controls("Label" & Idx).Font.Bold = True
        Controls("Label" & Idx).TextAlign = fmTextAlignLeft
        'Controls("Label" & Idx).Size = 11
 
        If .Cells(Idx, 3) = "" Then '
                Controls("Label" & Idx).Visible = False
                Else
            If .Cells(Idx, 6) = "" Then '
                Controls("Label" & Idx).BackColor = RGB(255, 255, 255) 'blanc
                Else
                        If .Cells(Idx, 6) >= 0.5 Then
                    Controls("Label" & Idx).BackColor = RGB(0, 255, 64) 'vert
                    Controls("LblDmd").BackColor = RGB(0, 255, 64)
                    Controls("LblDmd").ForeColor = RGB(0, 0, 0)
                Else
                If .Cells(Idx, 4) < 1 Then
                Controls("Label" & Idx).BackColor = RGB(234, 70, 40) 'rouge
                Controls("Lblref").BackColor = RGB(234, 70, 40)
                Controls("Lblref").ForeColor = RGB(0, 0, 0)
                    Else
                    If .Cells(Idx, 4) = 1 Then
                    Controls("Label" & Idx).BackColor = RGB(68, 202, 203) 'bleu
                    Controls("Lblacc").BackColor = RGB(68, 202, 203)
                    Controls("Lblacc").ForeColor = RGB(0, 0, 0)
 
                        End If
                    End If
                End If
            End If
        End If
  Next L
End With
 
 
Me.LblChoixcerem.BackColor = RGB(255, 255, 255)
Me.ComboBox1.BackColor = RGB(255, 255, 255)
Sheets("carte").Range("H1") = ComboBox1.Value
 
 
End Sub

[counterbob]

Voici le code réalisé
ça marche
reste à améliorer.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Combobox1_change()
Dim DerLgn As Byte
Dim L As Byte, Idx As Byte
    With Worksheets("Carte")
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
  For L = 2 To DerLgn
    Idx = .Cells(L, 1)
        Controls("Label" & Idx).Caption = .Cells(L, 2)
        Controls("Label" & Idx).AutoSize = False
        Controls("Label" & Idx).Width = 60
        Controls("Label" & Idx).Height = 10
        Controls("Label" & Idx).Font.Bold = True
        Controls("Label" & Idx).TextAlign = fmTextAlignLeft
        'Controls("Label" & Idx).Size = 11
 
        If .Cells(Idx, 3) = "" Then '
                Controls("Label" & Idx).Visible = False
                Else
            If .Cells(Idx, 6) = "" Then '
                Controls("Label" & Idx).BackColor = RGB(255, 255, 255) 'blanc
                Else
                        If .Cells(Idx, 6) >= 0.5 Then
                    Controls("Label" & Idx).BackColor = RGB(0, 255, 64) 'vert
                    Controls("LblDmd").BackColor = RGB(0, 255, 64)
                    Controls("LblDmd").ForeColor = RGB(0, 0, 0)
                Else
                If .Cells(Idx, 4) < 1 Then
                Controls("Label" & Idx).BackColor = RGB(234, 70, 40) 'rouge
                Controls("Lblref").BackColor = RGB(234, 70, 40)
                Controls("Lblref").ForeColor = RGB(0, 0, 0)
                    Else
                    If .Cells(Idx, 4) = 1 Then
                    Controls("Label" & Idx).BackColor = RGB(68, 202, 203) 'bleu
                    Controls("Lblacc").BackColor = RGB(68, 202, 203)
                    Controls("Lblacc").ForeColor = RGB(0, 0, 0)
 
                        End If
                    End If
                End If
            End If
        End If
  Next L
End With
 
 
Me.LblChoixcerem.BackColor = RGB(255, 255, 255)
Me.ComboBox1.BackColor = RGB(255, 255, 255)
Sheets("carte").Range("H1") = ComboBox1.Value
 
 
End Sub

[counterbob]

Résultat département