Recherche de valeur EXCEL VBA
Résolu
bambooetugo
Messages postés
15
Statut
Membre
-
bambooetugo Messages postés 15 Statut Membre -
bambooetugo Messages postés 15 Statut Membre -
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.
A voir également:
- Recherche de valeur EXCEL VBA
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
6 réponses
Bonjour,
Le code suivant peut faire l'affaire :
le code ne s'arrête pas à 3 valeurs, si vous voulez le stopper après 3 valeurs, n'hésitez pas à demander ;)
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question