Recherche de valeur EXCEL VBA
Résolu
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.
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
-
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 ;) -
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 -
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 -
-
Bonjour
Un exemple
http://www.cjoint.com/c/FBkoJ3kMUBI
Cdlmnt -
Merci à tous.
Le code de Théo me conviens parfaitement.
