VBA automatique
Bonjour a toutes et a tous.
Voila je suis un débutant en vba
Je recherche les commande qui pourrais me permettre de copier une cellule selon un tableau prédéfini pour la mettre dans une autre feuille
exemple : mon tableau en feuil3 a les mot : cerise, pommes, amande, poire
Je remplie ma cellule C12 par exemple de ma feuil1 en "cerise" il va me la copier dans la feuil2 en A1 "cerise", mais si je rentre le mot patate
je ne veut pas qu'il me colle patate car il est pas dans la cellule.
Aprés si il arrive a copier cerise dans mon tableau, je voudrais qu'il me mette son poids si 500gr me le coller dans une cellule poids leger, si un kg me la copier dans une autre cellule et après dés que le poids est coller faire la meme chose pour ça conversations, si - une semaine dans une cellule et si + d'une semaine dans une autre.
Une fois ce calcul effectué retour a la ligne automatiquement sachant que le tableau hebdomadaire.
J'attend vos réponse avec impatience.
Je laisse un fichier si joint.
Merci de votre aide.
Cordialement
Bonjour Aka,
Je te retourne ton fichier modifié :
À l'ouverture du fichier, tu es sur "Feuil2" : ton tableau est vide.
Va sur "Feuil1" ; Ctrl e ➯ travail effectué !
Alt F11 pour voir le code VBA, puis revenir sur Excel
Si besoin, tu peux demander une adaptation.
Merci de me donner ton avis.
dhany
super boulot c'est ça
1000 merci
Aka a écrit :super boulot c'est ça
1000 merci
Merci pour ton retour, et pour avoir passé le sujet en résolu !
« il est sur tous les posts, en direction du sud-est, mais on ne voit que son contour ; il sert pour le message
qui a aidé à résoudre l'exercice ».
dhany
Bravo pour avoir trouvé !
re
j'ai une petite question bizarre ( je doit pas être seul dans ma tête XD )
comment peut t'on mettre le choix d'une cellule > ou <
voila exemple
j'ai le chiffre 565 en A5 je voudrais le mettre dans une cellule automatiquement qui s'appel "petit chiffre" en D9
apres dans ma cellule "A5" je met le chiffre 100000, celui-ci je voudrais le mettre toujours automatiquement dans la cellule " grand chiffre" en D9.
Et ainsi de suite a chaque chiffre rentrer dans la cellule A5.
Merci d'avance
En A5, sais ton nombre : 565 ou 100000
Ensuite, si tu considères que ce nombre est petit s'il est inférieur à 100,
alors mets cette formule en D9 :
=SI(A5<100;"Petit";"Grand") & " nombre"
Si tu considères que ce nombre est petit s'il est inférieur à 1000,
alors mets cette formule en D9 :
=SI(A5<1000;"Petit";"Grand") & " nombre"
Eh oui : tout est relatif ! c'est toi qui décide de l'ordre de grandeur du nombre ! 1 million est petit par rapport 1 milliard ; et la distance France - Chine est petite par rapport à la distance Terre - Lune ; lire "L'infiniment grand et l'infiniment petit", de Blaise Pascal.
Bien sûr, après avoir mis en D9 ta formule préférée, n'oublie pas d'essayer plusieurs valeurs en A5 !
(la formule marche aussi très bien si tu es en apesanteur, sur une orbite géostationnaire)
rappel :
Un chiffre est un de ceux-ci : 0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ; 8 ; 9
Un nombre est plusieurs chiffres (ou aussi un seul).
mais plusieurs chiffres ne sont pas 1 chiffre
dhany
super merci
et si je voudrais le mettre sous code vba sa donnerai quoi ?
Cdt
Bonjour Aka,
Je te propose ce fichier Excel :
La cellule active est A5, et D9 est vide.
Si tu ne le vois pas bien, c'est normal vu que toute la feuille est vide ... et le meilleur moyen de cacher un caillou est de le dissimuler dans un tas de cailloux !
Saisis en A5 : 99 ➯ en D9 : "Petit nombre" ; saisis en A5 : 100 ➯ en D9 : "Grand nombre"
Si tu supprimes le contenu de A5, ou si tu y saisis 0 ou du texte, alors en D9 : vide
Alt F11 pour voir le code VBA de la fonction TestA5(), puis revenir sur Excel
dhany
@Aka
J'ai écrit ma fonction précédente d'une autre façon :
C'est une amélioration, car pour le 0 au lieu d'effacer D9, ça met aussi "Petit nombre" ;
et en même temps, D9 est effacé si A5 est vide ou ne contient pas un nombre.
dhany
en faites après plusieur essaie j'ai trouvé ma formule.
Si je tape exemple "11000" en case A1, et que, Si je veut avoir < 10 000 dans une case comme exemple A3,
et > 10 000 en case A4, je doit rajouter par exemple dans la cellule A2 un "0"
donc je met la formule suite en A3
=SOMME.SI(A1:A2;"<10000") ce qui me donne
et pour la cellule A4 :
=SOMME.SI(A1:A2;">1000").
Merci quabnd même
Si ce que tu as fait te convient, c'est l'essentiel !
dhany