Completer formule VBA

Bonjour,

Je coince pour completer ma formule.

Dans le fichier joint je souhaite recuperer l'intitulé de la colonne (ligne3)des colonnes U à Z si la cellule correspondant à l'agent est 1

Le fichier joint n'est qu'une petite partie de fichier reel et de ses macros. c'est juste pour vous donner une vision du tableau.

La ligne correspondant à l'agent est déja trouvée et selectionnée.

Mon userform récupère les autres données. Ce textbox n'est qu'un supplément.

La formule ci dessous me renvoie rien.

J'espère être clair

Merci

Private Sub TextBox2_Change()

Dim i As Integer

For i = 20 To 25

If ActiveCell.Offset(0, i).Value > "0" Then

T_menu.TextBox2.Value = Cells(3, i).Value

Else

T_menu.TextBox2.Value = ""

End If

Next

End Sub

Bonjour

Un peu bizarre, il faut écrire dans la TextBox2 pour qu'elle cherche et qu'elle se modifie

A tester

Récupère l'entête du 1er nombre au dessus de 0

Les entêtes des colonnes sont en ligne 1 (pas la 3)

Private Sub TextBox2_Change()
Dim i As Integer

  T_menu.TextBox2.Value = ""

  For i = 20 To 25
    If ActiveCell.Offset(0, i).Value > 0 Then
      Me.TextBox2.Value = Cells(1, i).Value
      Exit For
'    Else
'      T_menu.TextBox2.Value = ""
    End If
  Next
End Sub

Bonjour BANZAI64

La formule ne me renvoie toujours rien

cordialement

tseoy

Bonjour

Tu inscrives un nombre > 0 dans une des colonnes U:Z

Tu sélectionnes en colonne A la cellule de la ligne contenant le nombre

Tu exécutes l'userform et tu modifies la TextBox

Merci beaucoup

cordialement

tseoy