Encodage avec conditions

Bonjour à tous, j'espère que vous allez bien?

Je suis nouvelle sur ce forum et j'essaye d'apprendre par moi même le VBA et les macros grâce à tous vos conseil sur le forum.

Aujourd'hui, je souhaite créer un tableau permettant à mon vétérinaire ,chez qui je suis en stage, d'introduire les sorties de médicaments injecté ou vendu. Car celui-ci l'effectue encore a la main.

Ma question est de savoir si il est possible de copier les données du formulaire (pas de userform) dans le tableau de la feuille correspondant au médicament si la cellule de ce médicament est remplie. Si pas de données indiquée, pas de copie. Ainsi de suite pour tout les médicaments.

Exemple: dans mon formulaire (feuille "Formulaire"), j'indique la date, le nom, la commune, l'espèce, le nombre et toutes les quantités et numéro de lot des médicaments. Et je souhaiterai qu'en cliquant sur le bouton ajouter: la date, le nom, la commune, l'espèce, la nombre, la quantité et le lot se copie dans la feuille correspondante au médicament. Si Sédator et kétamidor remplie, copie dans les 2 feuille mais pas dans les autres.

Je ne sait pas si je me suis bien exprimée, mais j'espère que quelqu'un parmi vous pourra m'aider.

Un très grand merci d'avance et bonne journée.

PS: je vous joint le fichier que j'ai déjà créé

Il s'agit bien de copier les cellules de ta feuille Formulaire vers tes autres feuilles ?

Tu peux faire une ligne de code comme ca :

a= 15
Do while sheets("Formulaire").cells(3,a).value <> "" 

Sheets("Formulaire").cells(X,Y).copy 'Tu copie la cellules que tu souhaite

Sheets("Formulaire").cells(2,a).value = i 'Tu dis que i = nom du médicament en colonne B
Sheets(i).cells(X,Y).pastespecial 'Copie de la colonne que tu souhaite dans la feuille du médicament

a=a+1
Loop

Tu peux essayer ca

pas garanti que ca marche car je suis au travail mais je fais un truc ce soir pour tester.

Les 3 lignes de code sont a multiplier par toute les lignes que tu veux copier pour la première ligne. Pour les autres médicaments cela doit se faire tout seul.

Très beau formulaire soit dit en passant.

Tu ferais bien de réduire tes listes (en nombre de ligne) car on tombe sur du blanc sinon.

Bonjour,

Tout d'abord merci pour votre réponse.

Comme conseillé, j'ai réduit les listes, c'est vrai que c'est plus visuel.

Ensuite, pouvez-vous m'expliquer où indiquer les codes que vous m'avait envoyé? Etant novice, j'ai encore du mal à savoir où les positionner.

J'ai aussi réalisé un autre fichier qui lui utilise un userform mais je ne suis pas encore parvenue à réaliser le code pour valider le bouton. Mais ca c'est une autre histoire

Merci

Désolé de cette réponse tardive,

en espérant que cela te serve encore.

Tu va dans l'éditeur VBA puis tu copie ce code dans la partie Module puis Module1. Commence ton code par Sub MacroTest () et fini le par EndSub.

Après tu retourne sur ta feuille et tu fais un clique droit sur ton bouton puis "affecter une macro" et tu sélectionne ta macro.