Je suis =E0 la recherche d'une procedure me permettant par macro de
recherche la valeur la plus elev=E9e de 2 colonnes (meme ligne) et de
copie cette valeur dans une autre colonne
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
Bonjour. Essaie :
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(0, 2) = WorksheetFunction.Max(c(1, 1), c(1, 2)) Next c End Sub
Cordialement. Daniel "lauxeti" a écrit dans le message de news:
Bonjour,
Je suis à la recherche d'une procedure me permettant par macro de recherche la valeur la plus elevée de 2 colonnes (meme ligne) et de copie cette valeur dans une autre colonne
ex: A B C lig 1 23.3 56.2 56.2 lig 2 47.6 23 47.6
Merci
Le lauxeti
Bonjour.
Essaie :
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
c.Offset(0, 2) = WorksheetFunction.Max(c(1, 1), c(1, 2))
Next c
End Sub
Cordialement.
Daniel
"lauxeti" <ybrunet@wanadoo.fr> a écrit dans le message de news:
1145613834.543694.107730@t31g2000cwb.googlegroups.com...
Bonjour,
Je suis à la recherche d'une procedure me permettant par macro de
recherche la valeur la plus elevée de 2 colonnes (meme ligne) et de
copie cette valeur dans une autre colonne
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(0, 2) = WorksheetFunction.Max(c(1, 1), c(1, 2)) Next c End Sub
Cordialement. Daniel "lauxeti" a écrit dans le message de news:
Bonjour,
Je suis à la recherche d'une procedure me permettant par macro de recherche la valeur la plus elevée de 2 colonnes (meme ligne) et de copie cette valeur dans une autre colonne
