Sujet Précédent Sujet Suivant

Recherche de valeur EXCEL VBA

Résolu/Fermé
bambooetugo Messages postés 14 Date d'inscription jeudi 30 mai 2013 Statut Membre Dernière intervention 29 septembre 2016 - 10 févr. 2016 à 14:57
bambooetugo Messages postés 14 Date d'inscription jeudi 30 mai 2013 Statut Membre Dernière intervention 29 septembre 2016 - 10 févr. 2016 à 16:07
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.

A voir également:

6 réponses

Réponse 1 / 6
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
Modifié par Theo.R le 10/02/2016 à 15:21
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 ;)
0
Réponse 2 / 6
bambooetugo Messages postés 14 Date d'inscription jeudi 30 mai 2013 Statut Membre Dernière intervention 29 septembre 2016
10 févr. 2016 à 15:23
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
0
Réponse 3 / 6
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
10 févr. 2016 à 15:27
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
0
Réponse 4 / 6
DjiDji59430 Messages postés 4036 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 25 avril 2024 646
10 févr. 2016 à 15:31
Bonjour,

sans macro, a adapter

https://www.cjoint.com/c/FBkoEzskiuy
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
10 févr. 2016 à 15:36
Bonjour

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

Cdlmnt
0
Réponse 6 / 6
bambooetugo Messages postés 14 Date d'inscription jeudi 30 mai 2013 Statut Membre Dernière intervention 29 septembre 2016
10 févr. 2016 à 16:07
Merci à tous.

Le code de Théo me conviens parfaitement.
0

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses