Microsoft 365 Recherche de la 1ere colonne contenant un nombre

vgendron

XLDnaute Barbatruc

• 28 Juillet 2021

• #2

Bonjour

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

 

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 28 Juillet 2021

• #3

Bonjour à tous,

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

 

Pièces jointes

• cnum.xlsx

  10.2 KB · Affichages: 9

Vote positif 0 Vote négatif

C

catia

XLDnaute Nouveau

• 28 Juillet 2021

• #4

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

 

Pièces jointes

• 123.xlsx

  8.4 KB · Affichages: 5

Vote positif 0 Vote négatif

C

catia

XLDnaute Nouveau

• 28 Juillet 2021

• #5

djidji59430 à dit:

Bonjour à tous,

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

Cliquez pour agrandir...

Je cherche à le faire en code VBA

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 28 Juillet 2021

• #6

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 :

VB:

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

 

Pièces jointes

• test1.xlsm

  14.4 KB · Affichages: 8

Vote positif 0 Vote négatif

C

catia

XLDnaute Nouveau

• 28 Juillet 2021

• #7

Wayki à dit:

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 :

VB:

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

Cliquez pour agrandir...

Merci beaucoup c'est exactement ce que je cherche

 

Vote positif 0 Vote négatif

Solution

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Juillet 2021

• #8

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:

Code:

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

 

Pièces jointes

• catia- prem num- v1.xlsx

  10.6 KB · Affichages: 4

Dernière édition: 28 Juillet 2021

Vote positif 1 Vote négatif

C

catia

XLDnaute Nouveau

• 28 Juillet 2021

• #9

mapomme à dit:

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:

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif