Microsoft 365 Recherche de la 1ere colonne contenant un nombre

catia

XLDnaute Nouveau
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
 
Solution
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
Merci beaucoup c'est exactement ce que je cherche :)

Wayki

XLDnaute Impliqué
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

catia

XLDnaute Nouveau
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
Merci beaucoup c'est exactement ce que je cherche :)
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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:

Discussions similaires

Réponses
6
Affichages
415
Réponses
8
Affichages
430

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088