Label n'apparait pas

Bonjour à tous,

il y a quelques temps je suis venu sur ce forum pour chercher de l'aide pour une feuille gérant un concours de belote.

J'ai réussi à faire mon histoire et maintenant je suis entrain de la modifier pour la gestion d'un tournoi de coinche en m'imposant beaucoup moins de contrainte notamment sur la vérification des scores.

Pour l'instant j'en suis à un problème qui doit être tout bête qui me casse la tête ....

Ligne = celluletrouvee.Row
col = celluletrouvee.Column
Label3.Caption = "Equipe " & Cells(Ligne, col + 1).Value
Label3.Visible = True
Label4.Caption = "Equipe " & Cells(Ligne + 1, col + 1).Value
Label4.Visible = True
Label5.Caption = Cells(Ligne, col + 2).Value
Label5.Visible = True
Label6.Caption = Cells(Ligne + 1, col + 2).Value
Label6.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
TextBox1.Value = ""
TextBox2.Value = ""
CommandButton2.Visible = True
Label10.Visible = True
OptionButton1.Visible = True
OptionButton2.Visible = True
TextBox1.SetFocus

Ca semble très simple mais tout ne s'affiche pas !

du moins à la position où se trouve la fenêtre. Il suffit que je déplace la fenêtre et tout ce qui doit être affiché l'est !

Merci pour votre aide

Bonjour,

tu as tout juste oublié de nous dire ou était ton code .. je ne vois aucune ligne "Sub..." ou "Function..."

Le bout de code est dans un sub.

Private Sub CommandButton4_Click()

Dim AjoutTable As Long
Dim celluletrouvee As Range
Dim Ligne
Dim col
AjoutTable = Range("A" & Rows.Count).End(xlUp).Row
AjoutTable = AjoutTable + 1
Dim TableCherchee
TableCherchee = "Table " & TextBox3.Value

Set celluletrouvee = Range("A4:A" & AjoutTable).Find(what:=TableCherchee, LookAt:=xlWhole)
If celluletrouvee Is Nothing Then
    MsgBox "Pas de table"
    TextBox3.Value = ""
    TextBox3.SetFocus
Else

Ligne = celluletrouvee.Row
col = celluletrouvee.Column
Label3.Caption = "Equipe " & Cells(Ligne, col + 1).Value
Label3.Visible = True
Label4.Caption = "Equipe " & Cells(Ligne + 1, col + 1).Value
Label4.Visible = True
Label5.Caption = Cells(Ligne, col + 2).Value
Label5.Visible = True
Label6.Caption = Cells(Ligne + 1, col + 2).Value
Label6.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
TextBox1.Value = ""
TextBox2.Value = ""
CommandButton2.Visible = True
Frame1.Visible = True
OptionButton1.Visible = True
OptionButton2.Visible = True
TextBox1.SetFocus
End If
 TextBox1.SetFocus
End Sub

Les valeurs des labels fonctionnent j'ai vérifié avec des msgbox.

Là j'ai les label3, label4 et label 5 qui ne s'affiche pas, ainsi que le CommandButton2.

Il suffit que je déplace la fenêtre et ils sont visibles.