Aide VBA
messin57000
Messages postés
67
Date d'inscription
Statut
Membre
Dernière intervention
-
messin57000 Messages postés 67 Date d'inscription Statut Membre Dernière intervention -
messin57000 Messages postés 67 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai fait une macro mais j'essaye de la simplifier car la methode avec la quelle jj'ai procedé je la trouve trop lourde.
voici le fichier : http://cjoint.com/13oc/CJhj66Rbmv0.htm
en fait je souhaite remplir les 4 case vert tol+ et tol - en fonction du choix du matériaux et temperature.
si le mteraix c'est X et temperature -30 , aller chercher les bonnes valeures de tol+ et tol- dans le tableau de droite et les remplir dans 4 case verte dans le tableau de guauche etc...
il y'a 3 materaiux (X, FKM et EPDM) et 3 temperature ( -30, 23 et 120).
J'ai essayé avec des IF mais c'est trop lourd...
Sub test()
If Cells(2, 8) = "X" Then Cells(7, 3) = Cells(4, 13)
If Cells(2, 8) = "X" Then Cells(7, 4) = Cells(4, 14)
If Cells(2, 8) = "X" Then Cells(8, 3) = Cells(4, 15)
If Cells(2, 8) = "X" Then Cells(8, 4) = Cells(4, 16)
...
End Sub
Merci d'avance
j'ai fait une macro mais j'essaye de la simplifier car la methode avec la quelle jj'ai procedé je la trouve trop lourde.
voici le fichier : http://cjoint.com/13oc/CJhj66Rbmv0.htm
en fait je souhaite remplir les 4 case vert tol+ et tol - en fonction du choix du matériaux et temperature.
si le mteraix c'est X et temperature -30 , aller chercher les bonnes valeures de tol+ et tol- dans le tableau de droite et les remplir dans 4 case verte dans le tableau de guauche etc...
il y'a 3 materaiux (X, FKM et EPDM) et 3 temperature ( -30, 23 et 120).
J'ai essayé avec des IF mais c'est trop lourd...
Sub test()
If Cells(2, 8) = "X" Then Cells(7, 3) = Cells(4, 13)
If Cells(2, 8) = "X" Then Cells(7, 4) = Cells(4, 14)
If Cells(2, 8) = "X" Then Cells(8, 3) = Cells(4, 15)
If Cells(2, 8) = "X" Then Cells(8, 4) = Cells(4, 16)
...
End Sub
Merci d'avance
1 réponse
Bonjour,
Pourquoi ne pas se contenter de formules recherchev ??
regarde le fichier :
https://www.cjoint.com/?CJhlcGqzhv3
tes cases vertes sont renseignées d'après une formule.
Pourquoi ne pas se contenter de formules recherchev ??
regarde le fichier :
https://www.cjoint.com/?CJhlcGqzhv3
tes cases vertes sont renseignées d'après une formule.
et un autre point est-ce possible de faire une liste déroulante dans le materiaux et la temperature? pour le choix
Merci beaucoup melaine :)
La fonction rechercheV est une fonction ultraconnue et tu peux trouver pleins d'informations partout. Elle permet de trouver une valeur dans un tableau à partir d'une autre :
=recherchev(valeur cherchée; tableau de recherche; colonne à ramener; faux)
exemple feuille 1 colonne A B et C
Nom Prénom Fonction
Tartempion Marc Gestionnaire
Martin Philippe Informaticien
Dans la 2ème feuille2, imagine que tu tapes le nom en A2 et que tu veux les mêmes infos par recherchev en B2 et C2 :
Pour B2
=recherchev(A2;'Feuil1'!A:C;2;faux)
Pour C2 :
=recherchev(A2;'Feuil1'!A:C;3;faux)
Pour les listes déroulantes, je te conseille de visiter Données, valdiation des données
Dans options, autoriser : Liste
et dans la source, choisis les cellules contenant ta liste (dans mon exemple : 'Feuil1'!A
Je te remerci beacoup pour ton aide mélanie :) :)