Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Besoin d'aide en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion barbu26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

barbu26

Guest
Bonjour à toutes et à tous,

Je voulais déjà vous remercier pour les innombrables aides que ce forum a pu m'apporter. Cependant, je n'ai pas trouvé de réponse à un problème. Voici mon problème:

J'ai une liste de chiffre allant de la cellule "C3" à "N3".
Dans mon application je cherche la plus grande valeur dans ces cellules et ensuite je cherche la plus petite valeur à gauche de cette valeur ( oui je sais, pas facile à expliquer 🙂 ) Je vais vous donner un exemple:
Imaginons que j'ai cette liste : 10 50 20 80 0 10 70
Je cherche la plus grande valeur: 80
Je cherche à gauche la plus petite valeur, et j'ai le choix entre "10,50 et 20" et je choisi 20. Je prend pas 0 ou 10 car ces valeurs se trouvent à droite. Avez vous compris?
Pour faire le code, j'ai déjà ma petite idée, la voici :

Etmax = Cells(3, 3)
For A = 4 To 13
If Cells(3, A) > Etmax Then Etmax = Cells(3, A).Value
Next
Etmini = 3000

For B = 4 To Etmax // c'est la que j'arrive pas à mettre la bonne "valeur"
If Cells(3, B) < Etmini Then Etmini = Cells(3, B).Value
Next


Merci pour votre aide en tout cas 🙂
 
Trier par date Trier par votes
Re : Besoin d'aide en VBA

Bonjour à tous,

Bienvenue sur XLD

Pas certain d'avoir compris la demande mais :

VB: 
Option Explicit

Sub Test()
Dim EtMax&, X&
EtMax = WorksheetFunction.Max(Range("C3:N3"))
'MsgBox EtMax
For X = 3 To 14
If Cells(3, X) >= EtMax Then Cells(3, 1) = Cells(3, X).Offset(, -1)
Next
End Sub

A + à tous
 
Vote positif 0 Vote négatif
Re : Besoin d'aide en VBA

Merci pour vos réponses rapide,

Malheureusement, JCGL, ce n'est pas exactement cela que je voudrais faire, JHA a bien résumé ce que je voulais avoir comme résultat.
Pour JHA, est ce que tu saurais maintenant, le traduire en VBA ? J'ai beau essayé je n'arrive pas à trouver le bon code.

Merci en tout cas 🙂
 
Vote positif 0 Vote négatif
Re : Besoin d'aide en VBA

Super vgendron, c'est exactement ce que je voulais faire, peut tu m'expliquer rapidement comment tu as fais pour déterminer la position du maximum? car, dans le programme que je veut faire, je vais avoir besoin ensuite de la position du minimum? En tout cas merci beaucoup, tu m'enlèves une sacré épine du pied ;-)
 
Vote positif 0 Vote négatif
Re : Besoin d'aide en VBA

ok ca marche: voici pour l'explication

le but est de trouver le max de la zone (ici A3:G3 )
la fonction max(A3:G3) le cherche et te le donne :80
ensuite pour trouver le min à gauche de ce 80, il faut "définir" ce qu'est le gauche: ici la zone A3😀3
sauf que le D3.. il faut lui dire..
la fonction equiv(Valeur Cherchée, zone de recherche ;0) te donne la position du 80 et te retourne 4 (Equiv = Match en VBA)
4 c'est le 4eme élément de la range A3:G3: A B C D:===>4=D
attention, si j'avais rentré les valeurs à partir de B3 jusqu'à H3, la fonction aura toujours retourné 4, mais dans ce cas.. 4 = colonne E, c'est bien le 4eme élément de la zone spécifiée

les deux fonctions imbriquées: la position du max = 4 (=colonne D)
=EQUIV(MAX(A3:G3);A3:G3;0)

maintenant, il faut chercher le min dans cette nouvelle range A3😀3
Min(Range(Cells(3, 1), Cells(3, X)))
cells(3,X) ~"D3"

et voila
 
Vote positif 0 Vote négatif
Re : Besoin d'aide en VBA

Je te remercie pour ton explication, je vais essayé de "bidouiller" ça ce soir 🙂 mais normalement je devrais m'en sortir, merci bien en tout cas 😀
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Y
  • Question Question
Microsoft 365 Cdbl et nombres à virgules
Réponses
4
Affichages
280
Valtrase
D
  • Question Question
XL 2021 Formule Excel dans VBA
Réponses
3
Affichages
222
dl87671
D
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
328
patricko-13
P
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
909
TooFatBoy
G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
1 K
kiki29
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
824
nat54
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
S
  • Question Question
XL 2016 RESOLU MERCI Division des points en cas d'égalité
Réponses
2
Affichages
283
spacem33t
S
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
235
treza88
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
560
mikeduff
M
  • Question Question
XL 2019 Erreur d'exécution "13"
Réponses
1
Affichages
359
sylvanu
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
334
Marie.
M
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
262
LaurentVasseur
L
C
  • Résolu(e)
Microsoft 365 Trouver la plus grande valeur avec des cellules alphanumériques
Réponses
7
Affichages
346
danielco
D
  • Question Question
Autres impossible de convertir nombre texte en nombre
Réponses
8
Affichages
409
dysorthographie
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
477
nabilexcel2007
N
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
484
Electron24
J
  • Résolu(e)
XL 2021 Classement données avec recherchex en cas de données de même valeur
Réponses
6
Affichages
260
jeff2318
J
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
455
juju91
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…