Compléter certaines cellules selon choix liste déroulante

Bonjour tout le monde,

je suis débutant alors excusez moi par avance pour mon vocabulaire approximatif.

J'essaie de coder un UserForm pour obtenir un formulaire me permettant les choses suivantes :

  • je choisi un élève dans un menu déroulant (ça c'est bon)
  • je choisi l'exercice (parmis 5) pour compléter la bonne feuille (ça c'est bon)
- je reporte dans la feuille la valeur attribué à chaque critère dans le formulaire (Critères COM, APP etc)

mais surtout en face du nom préalablement sélectionné! (ça c'est plus bon du tout)

J'ai beaucoup cherché dans des tutos déjà existant mais il ne me reste plus que le dernier point à coder.

  • Comment attribuer une valeur au nom selectionner
  • Comment faire pour que selon cette valeur, les bonnes case se remplissent?

Je remercie par avance toute personne qui voudrait bien m'aider

Bonjour

Regarde si cela correspond

Bonjour Steelson,

merci et bravo pour ta réponse! Je ne pensais pas trouver de l'aide si vite.

Cela fonctionne à merveille!!!!

Par contre j'ai une autre question

Pourriez vous me donner une piste pour que en validant les chiffres, ceux-ci s'effacent du formulaire pour laisser place à une autre saisie? J'ai également le message excel qui s'affiche après validation. Comment l'enlever?

Je ne voudrais pas abuser de votre temps.. au pire donnez moi une piste.

Merci encore d'avoir répondu si vite et d'avoir "nettoyé" mon code..

Tu fais Alt+F11

Tu modifies le code :

Private Sub CommandButton14_Click()

Dim Reponse As String, firstAddress As String, Texte As String
Dim C As Range

    Set C = Columns("A").Find(ComboBox1.Value, Range("A1").End(xlDown), xlValues, xlWhole)
    If Not C Is Nothing Then
    MsgBox ("trouvé en " & C.Address & " !")
    C.Offset(0, 2).Value = TextBox7.Value
    C.Offset(0, 3).Value = TextBox8.Value
    C.Offset(0, 4).Value = TextBox9.Value
    C.Offset(0, 5).Value = TextBox10.Value
    C.Offset(0, 6).Value = TextBox11.Value
    C.Offset(0, 7).Value = TextBox12.Value
    End If

End Sub

Comme suit

Private Sub CommandButton14_Click()

Dim C As Range

    Set C = Columns("A").Find(ComboBox1.Value, Range("A1").End(xlDown), xlValues, xlWhole)
    If Not C Is Nothing Then
    ' MsgBox ("trouvé en " & C.Address & " !")
    C.Offset(0, 2).Value = TextBox7.Value
    C.Offset(0, 3).Value = TextBox8.Value
    C.Offset(0, 4).Value = TextBox9.Value
    C.Offset(0, 5).Value = TextBox10.Value
    C.Offset(0, 6).Value = TextBox11.Value
    C.Offset(0, 7).Value = TextBox12.Value
    TextBox7.Value = ""
    TextBox8.Value = ""
    TextBox9.Value = ""
    TextBox10.Value = ""
    TextBox11.Value = ""
    TextBox12.Value = ""
    End If

End Sub

Punaise ça marche!!!!!!!

Franchement c'est super gentil merci pour ton aide et sa clarté.

Quand je pense au nombre d'heures de recherche infructueuses......

Tu viens d'aider un bon paquet de monde.

A la prochaine


PS : je vais quand même me pencher sur tes lignes de codes afin de les comprendre et de pouvoir les réutiliser en les adaptant si besoin.

Merci

Hum en fait je n'y arrive pas....

J'essaie d'adapter le code pour que les valeurs déjà saisie réapparaissent lorsque je sélectionne un nom dans la liste déroulante afin de pouvoir modifier un des chiffres sans perdre les autres.

Je ne comprends pas vraiment la fonction offset, ni le reste

Pouvez vous m'aider encore un peu?

Offset permet de prendre les cellules voisines.

Bonjour Magique Steelson!

Bin ça marche impeccablement bien... trop fort

Merci pour tout

Content que tu sois content ...

Comme tu sais comment accéder aux macros, essaye de comprendre la logique, voir sur les moteurs de recherche la signification de certaines fonctions, et améliore toi-même le code, c'est la meilleure façon d'apprendre ... le forum n'est pas un fournisseur de prestataires mais justement un coach pour apprendre améliorer et soi-même y contribuer

Amicalement

Michel

Bien sûr tu as raison..

Mais tu n'imagines pas ma tête lorsque j'ai commencé à lire des trucs sur VBA

C'était il y a quelques jours pour créer ce fichier justement.

Première fois pour moi, alors déjà très fier de là ou j'étais arrivé!

J'avais lutté longtemps avant de me résigner à demander de l'aide.

J'ai lu pas mal de choses sur les macros mais je n'ai pas très bien compris encore. Faut que j'y travaille trèèèèès longuement.

Je savais déjà les utiliser de manière simple mais en VBA ça me parait inabordable et ce que tu as fais pour répondre à ma problématique me scotch encore.

Mais je le comprendrai pour améliorer mon Userform chéri...

En faisant des simulations j'ai vu plein de truc à rajouter pour l'améliorer encore.

A la prochaine

Merci encore pour ton aide précieuse

Je ne trouve pas le bouton "résolu"

Rechercher des sujets similaires à "completer certaines choix liste deroulante"