Recherche de valeur EXCEL VBA [Résolu/Fermé]

Signaler
Messages postés
14
Date d'inscription
jeudi 30 mai 2013
Statut
Membre
Dernière intervention
29 septembre 2016
-
Messages postés
14
Date d'inscription
jeudi 30 mai 2013
Statut
Membre
Dernière intervention
29 septembre 2016
-
Bonjour à tous,

J'aimerais rechercher la première valeur numérique "non vide" d'une Colonne (Plage M4 à M700) , puis la seconde et enfin la 3e valeur.

Ex : En M4 copier la première valeur de la colonne M
En N4 copier la deuxième valeur de la colonne M
En O4 copier la troisième valeur de la colonne M

Je voudrais intégrer cette formule dans une Macro.

Merci pour votre aide.

6 réponses

Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
25
Bonjour,

Le code suivant peut faire l'affaire :
Sub test()

m = 13 'N° de la colonne M

For i = 4 to 700

If range("M" & i).value <> "" Then
m = m + 1
Cells(4, m).value = range("M" & i).value
End If

Next i

End Sub


le code ne s'arrête pas à 3 valeurs, si vous voulez le stopper après 3 valeurs, n'hésitez pas à demander ;)
Messages postés
14
Date d'inscription
jeudi 30 mai 2013
Statut
Membre
Dernière intervention
29 septembre 2016

Merci Théo,

En effet, serais t-il possible de connaitre le code supplémentaire pour stopper éventuellement la recherche à 3 ou 4 valeurs ?

Merci pour ton aide
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
25
la ligne "If m = 16 Then Exit Sub"

16 = 13 (colonne M) + Nb valeurs max

Donc pour 4 valeurs, mettre 17 par exemple

Sub test()

m = 13

For i = 4 To 700

If Range("M" & i).Value <> "" Then
m = m + 1
Cells(4, m).Value = Range("M" & i).Value
End If

If m = 16 Then Exit Sub

Next i

End Sub
Messages postés
3244
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
27 juillet 2021
459
Bonjour,

sans macro, a adapter

https://www.cjoint.com/c/FBkoEzskiuy
Messages postés
9989
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 juillet 2021
2 161
Bonjour

Un exemple
http://www.cjoint.com/c/FBkoJ3kMUBI

Cdlmnt
Messages postés
14
Date d'inscription
jeudi 30 mai 2013
Statut
Membre
Dernière intervention
29 septembre 2016

Merci à tous.

Le code de Théo me conviens parfaitement.