Recherche de valeur EXCEL VBA Résolu/Fermé

Question

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.

Configuration: Windows 7 / Mozilla 11.0

Theo.R · Answer

Bonjour,

Le code suivant peut faire l'affaire :
Sub test()m = 13 'N° de la colonne MFor i = 4 to 700If range("M" & i).value <> "" Thenm = m + 1Cells(4, m).value = range("M" & i).valueEnd IfNext iEnd Sub

le code ne s'arrête pas à 3 valeurs, si vous voulez le stopper après 3 valeurs, n'hésitez pas à demander ;)

bambooetugo · Answer

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

Theo.R · Answer

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 = 13For i = 4 To 700If Range("M" & i).Value <> "" Thenm = m + 1Cells(4, m).Value = Range("M" & i).ValueEnd IfIf m = 16 Then Exit SubNext iEnd Sub

DjiDji59430 · Answer

Bonjour,

sans macro, a adapter

https://www.cjoint.com/c/FBkoEzskiuy

ccm81 · Answer

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

bambooetugo · Answer

Merci à tous.

Le code de Théo me conviens parfaitement.

Recherche de valeur EXCEL VBA

6 réponses

Discussions similaires