Microsoft 365 Recherche de la 1ere colonne contenant un nombre

[catia]

Bonjour,
Pourrait qq'un m'aider avec la question suivante svp: je cherche à trouver la première colonne non vide et avec une valeur numérique et récupérer le numéro de cette colonne.
J'ai cette configuration là:
A B C D E F G
1 aaaa 1 2 3 4 5
2 bbbb 1 2 2 2
3 cccc 1 3 3
4 dddd
5 eeee

Il y a t-il moyen de récupérer la 1ere valeur numérique sur la troisième ligne? Donc la cellule la colonne de la cellule E3?
Merci d'avance

 

[vgendron]

Bonjour

il faudrait que tu mettes ton exemple dans un fichier excel
et expliquer comment tu trouves E3

 

[djidji59430]

Bonjour à tous,

Sans connaitre le contexte, il y a foule de réponses différentes !
en voila une:

 

[catia]

Voici le fichier, je cherche à trouver le numéro de la colonne du 3 entouré, donc la première valeur numérique de la ligne

 

[catia]

Bonjour à tous,

Sans connaitre le contexte, il y a foule de réponses différentes !
en voila une:

Je cherche à le faire en code VBA

 

[Wayki]

Bonjour,
Sans VBA ça passe par des formules matricielles que je ne maitrise pas.
Je l'ai fais en VBA avec exactement ton premier exemple :

Sub valnum()

Dim cellule As Range, ws As Worksheet
Set ws = ActiveWorkbook.Worksheets(1)

For Each cellule In ws.Range("B1", "G5")
    If IsNumeric(cellule) Then
    MsgBox cellule.Address, Title:="Première cellule numérique"
    MsgBox ws.Range("E3").Value, Title:="Valeur de E3"
    Exit For
    End If
Next cellule
   
End Sub

 

[catia]

Bonjour,
Sans VBA ça passe par des formules matricielles que je ne maitrise pas.
Je l'ai fais en VBA avec exactement ton premier exemple :

Sub valnum()

Dim cellule As Range, ws As Worksheet
Set ws = ActiveWorkbook.Worksheets(1)

For Each cellule In ws.Range("B1", "G5")
    If IsNumeric(cellule) Then
    MsgBox cellule.Address, Title:="Première cellule numérique"
    MsgBox ws.Range("E3").Value, Title:="Valeur de E3"
    Exit For
    End If
Next cellule
  
End Sub

Merci beaucoup c'est exactement ce que je cherche

 

[mapomme]

Bonjour ,

Avec une formule matricielle à valider par la combinaison des trois touches Ctrl+Maj+Entrée au lieu de la seule touche Entrée.
Formule en N1 à tirer vers le bas:

=MIN(SI(ESTNUM(B1:K1);COLONNE(B1:K1)))

 

[catia]

Bonjour ,

Avec une formule matricielle à valider par la combinaison des trois touches Ctrl+Maj+Entrée au lieu de la seule touche Entrée.
Formule en M1 à tirer vers le bas:

=MIN(SI(ESTNUM(A1:J1);COLONNE(A1:J1)))

Merci beaucoup! cette solution là est la plus simple finalement