Remplir un tableau selon le choix déroulant VBA

Bonsoir à tous et toutes

Je souhaiterais remplir automatiquement Le tableau (dans la feuille caisse)

suivant le choix de la liste déroulante.

En d'autres mots, je veux dire mettre les montants dans la colonne correspond avec Vba.

Voici un exemple de mon fichier.

Merci d'avance de vos réponses.

Bien cordialement à tous!!!

56caisse.xlsx (14.48 Ko)

Salut,

Voici par exemple un code qui devrait fonctionner :

Sub valid()

Dim lig As Integer, col As Integer

lig = Sheets("caisse").Range("a56685").End(xlUp).Row + 1

If Sheets("saisie").Range("d4").Value = "Loyer" Then
    col = 2
ElseIf Sheets("saisie").Range("d4").Value = "Employer" Then
    col = 3
ElseIf Sheets("saisie").Range("d4").Value = "Autre" Then
    col = 4
End If

Sheets("caisse").Range("a" & lig).Value = Sheets("saisie").Range("b4").Value
Sheets("Caisse").Cells(lig, col).Value = Sheets("saisie").Range("c4").Value

End Sub

Cordialement,

Sha'

Bonjour le forum,

Bonjour Sharney

je suis désolé de répondre si tardivement mais je vous remercie pour le propostion

c'est exactement ce que je voulais, sa marché mais avec des bug parfois.

Merci pour ton aide

J'ai encore besoin d'aide

Cordialement

Bonjour,

Qu'est-ce qui bug ? Saurais-tu être plus précis ? Il ne va pas être facile de t'aider si tu ne nous dit pas ce qui ne va pas.

Cordialement

Bonjour,

A tester.

Cdlt.

Bonsoir à tous

Bonsoir à Sharney & Jean-Eric

Super Jean-Eric c'est exactement ça !

ça fonctionne parfaitement .

Merci à vous deux d'avait pris le temps de m'aider.

Je vous souhaite une bonne fin de semaine à vous deux

Merci et salutations.

Amicalement

Re,

Merci.

A bientôt sur le forum.

Cdlt.

Rechercher des sujets similaires à "remplir tableau choix deroulant vba"