vba : sur x colonnes trouver laquelle contiend la valeur la plus grande ?
2 réponses
Alfred WALLACE
Bonjour
j'ai un tableau de 60 colonnes.
les colonnes 5,10,12,20,30 contiennent des donn=E9es s=E9par=E9e par
des "virgules" dans cellules.
je sais qu'avec la fonction "split" je peux trouver le nombre de
"virgules" (puique split va me cr=E9er
un tableau de "n" =E9l=E9ments, donc le nombre de "virgules" est N-1)
par exemple =E0 la ligne N,
col5 j'ai 5 virgules,
col10 j'ai 7 virgules,
col12 j'ai 2 virgules
col20, j'ai 0 virgules
col30 j'ai 3 virgules.
Je cherche =E0 connaitre quel est le nombre de virgules maximum, ici 7.
ESt-il possible, de calculer le chiffre 7 ? dois-je mettre les
valeurs 5,7,2,0,3 dans un tableau, puis le trier
pour connaitre le nombre le plus grand ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie :
Sub test() n = 5 MsgBox Application.Max(UBound(Split(Cells(n, 5), ";")), _ UBound(Split(Cells(n, 10), ";")), _ UBound(Split(Cells(n, 12), ";")), UBound(Split(Cells(n, 20), ";")), _ UBound(Split(Cells(n, 30), ";"))) + 1 End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour j'ai un tableau de 60 colonnes. les colonnes 5,10,12,20,30 contiennent des données séparée par des "virgules" dans cellules.
je sais qu'avec la fonction "split" je peux trouver le nombre de "virgules" (puique split va me créer un tableau de "n" éléments, donc le nombre de "virgules" est N-1)
par exemple à la ligne N, col5 j'ai 5 virgules, col10 j'ai 7 virgules, col12 j'ai 2 virgules col20, j'ai 0 virgules col30 j'ai 3 virgules.
Je cherche à connaitre quel est le nombre de virgules maximum, ici 7.
ESt-il possible, de calculer le chiffre 7 ? dois-je mettre les valeurs 5,7,2,0,3 dans un tableau, puis le trier pour connaitre le nombre le plus grand ?
comment puis-je m'y prendre ?
Merci José
Bonjour.
Essaie :
Sub test()
n = 5
MsgBox Application.Max(UBound(Split(Cells(n, 5), ";")), _
UBound(Split(Cells(n, 10), ";")), _
UBound(Split(Cells(n, 12), ";")), UBound(Split(Cells(n, 20), ";")), _
UBound(Split(Cells(n, 30), ";"))) + 1
End Sub
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1192706032.700875.144890@q5g2000prf.googlegroups.com...
Bonjour
j'ai un tableau de 60 colonnes.
les colonnes 5,10,12,20,30 contiennent des données séparée par
des "virgules" dans cellules.
je sais qu'avec la fonction "split" je peux trouver le nombre de
"virgules" (puique split va me créer
un tableau de "n" éléments, donc le nombre de "virgules" est N-1)
par exemple à la ligne N,
col5 j'ai 5 virgules,
col10 j'ai 7 virgules,
col12 j'ai 2 virgules
col20, j'ai 0 virgules
col30 j'ai 3 virgules.
Je cherche à connaitre quel est le nombre de virgules maximum, ici 7.
ESt-il possible, de calculer le chiffre 7 ? dois-je mettre les
valeurs 5,7,2,0,3 dans un tableau, puis le trier
pour connaitre le nombre le plus grand ?
Sub test() n = 5 MsgBox Application.Max(UBound(Split(Cells(n, 5), ";")), _ UBound(Split(Cells(n, 10), ";")), _ UBound(Split(Cells(n, 12), ";")), UBound(Split(Cells(n, 20), ";")), _ UBound(Split(Cells(n, 30), ";"))) + 1 End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour j'ai un tableau de 60 colonnes. les colonnes 5,10,12,20,30 contiennent des données séparée par des "virgules" dans cellules.
je sais qu'avec la fonction "split" je peux trouver le nombre de "virgules" (puique split va me créer un tableau de "n" éléments, donc le nombre de "virgules" est N-1)
par exemple à la ligne N, col5 j'ai 5 virgules, col10 j'ai 7 virgules, col12 j'ai 2 virgules col20, j'ai 0 virgules col30 j'ai 3 virgules.
Je cherche à connaitre quel est le nombre de virgules maximum, ici 7.
ESt-il possible, de calculer le chiffre 7 ? dois-je mettre les valeurs 5,7,2,0,3 dans un tableau, puis le trier pour connaitre le nombre le plus grand ?
comment puis-je m'y prendre ?
Merci José
Daniel.C
Oups. Le "+1" est de trop. Daniel "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() n = 5 MsgBox Application.Max(UBound(Split(Cells(n, 5), ";")), _ UBound(Split(Cells(n, 10), ";")), _ UBound(Split(Cells(n, 12), ";")), UBound(Split(Cells(n, 20), ";")), _ UBound(Split(Cells(n, 30), ";"))) + 1 End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour j'ai un tableau de 60 colonnes. les colonnes 5,10,12,20,30 contiennent des données séparée par des "virgules" dans cellules.
je sais qu'avec la fonction "split" je peux trouver le nombre de "virgules" (puique split va me créer un tableau de "n" éléments, donc le nombre de "virgules" est N-1)
par exemple à la ligne N, col5 j'ai 5 virgules, col10 j'ai 7 virgules, col12 j'ai 2 virgules col20, j'ai 0 virgules col30 j'ai 3 virgules.
Je cherche à connaitre quel est le nombre de virgules maximum, ici 7.
ESt-il possible, de calculer le chiffre 7 ? dois-je mettre les valeurs 5,7,2,0,3 dans un tableau, puis le trier pour connaitre le nombre le plus grand ?
comment puis-je m'y prendre ?
Merci José
Oups. Le "+1" est de trop.
Daniel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
udiam7XEIHA.4308@TK2MSFTNGP06.phx.gbl...
Bonjour.
Essaie :
Sub test()
n = 5
MsgBox Application.Max(UBound(Split(Cells(n, 5), ";")), _
UBound(Split(Cells(n, 10), ";")), _
UBound(Split(Cells(n, 12), ";")), UBound(Split(Cells(n, 20), ";")), _
UBound(Split(Cells(n, 30), ";"))) + 1
End Sub
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1192706032.700875.144890@q5g2000prf.googlegroups.com...
Bonjour
j'ai un tableau de 60 colonnes.
les colonnes 5,10,12,20,30 contiennent des données séparée par
des "virgules" dans cellules.
je sais qu'avec la fonction "split" je peux trouver le nombre de
"virgules" (puique split va me créer
un tableau de "n" éléments, donc le nombre de "virgules" est N-1)
par exemple à la ligne N,
col5 j'ai 5 virgules,
col10 j'ai 7 virgules,
col12 j'ai 2 virgules
col20, j'ai 0 virgules
col30 j'ai 3 virgules.
Je cherche à connaitre quel est le nombre de virgules maximum, ici 7.
ESt-il possible, de calculer le chiffre 7 ? dois-je mettre les
valeurs 5,7,2,0,3 dans un tableau, puis le trier
pour connaitre le nombre le plus grand ?
Oups. Le "+1" est de trop. Daniel "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() n = 5 MsgBox Application.Max(UBound(Split(Cells(n, 5), ";")), _ UBound(Split(Cells(n, 10), ";")), _ UBound(Split(Cells(n, 12), ";")), UBound(Split(Cells(n, 20), ";")), _ UBound(Split(Cells(n, 30), ";"))) + 1 End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour j'ai un tableau de 60 colonnes. les colonnes 5,10,12,20,30 contiennent des données séparée par des "virgules" dans cellules.
je sais qu'avec la fonction "split" je peux trouver le nombre de "virgules" (puique split va me créer un tableau de "n" éléments, donc le nombre de "virgules" est N-1)
par exemple à la ligne N, col5 j'ai 5 virgules, col10 j'ai 7 virgules, col12 j'ai 2 virgules col20, j'ai 0 virgules col30 j'ai 3 virgules.
Je cherche à connaitre quel est le nombre de virgules maximum, ici 7.
ESt-il possible, de calculer le chiffre 7 ? dois-je mettre les valeurs 5,7,2,0,3 dans un tableau, puis le trier pour connaitre le nombre le plus grand ?