Trouve Valeur min

Fermé

JL1949 Messages postés 3 Date d'inscription samedi 25 février 2017 Statut Membre Dernière intervention 16 mai 2017 - 16 mai 2017 à 07:28
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 16 mai 2017 à 09:22

Bonjour,

j'aimerai savoir comment faire en VBA dans une Macro comment trouvé la valeur minimum dans une colonne Range avec variable et lorsque cette valeur a été trouvé remplacé le contenu d'une autre colonne sur la même ligne a la première ligne et ensuite supprimer les autres lignes.

Exemple
Ligne A B
1 12 2017
2 6 2018
3 72 2019

Résultat
Ligne A B
1 2018 2017

Merci!

A voir également:

Vba minimum entre 2 valeurs
2 comptes whatsapp - Guide
2 ecran pc - Guide
Word numéro de page 1/2 - Guide
Gto saison 2 - Forum Cinéma / Télé
Incompatibilité de type vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
16 mai 2017 à 08:59

Bonjour,

et si il y a plusieurs fois la valeur mini dans la colonne A, que fait on ?

Réponse 2 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
16 mai 2017 à 09:22

Bonjour JL, bonjour le forum,

peut-être comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim VM As Integer 'déclare la variable VM (Valeur Minimum)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TR(1) As Variant 'déclare la variable TR (Tableau des Résultats)

Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
VM = Application.WorksheetFunction.Min(Application.Index(TV, , 1)) 'définit la valeur minimum VM
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau de valeurs TV
    If TV(I, 1) = VM Then 'si la donnée ligne I colonne 1 de TV est égale à la valeur minimum VM
        TR(0) = TV(I - 1, 2) 'récupère dans TR(0 la donnée ligne I - 1 colonne 2 de TV
        TR(1) = TV(I, 2) 'récupère dans TR(1) la donnée ligne I colonne 2 de TV
    End If 'end if
Next I 'prochaine ligne de la boucle
O.Range("A1").CurrentRegion.Clear 'efface les données
O.Range("A1").Resize(1, 2).Value = TR 'renvoie dans A1 redimensionnée le tableau TR
End Sub

Discussions similaires

Dans une formule : condition "compris entre" 2 valeurs

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters