Formulaire Excel VBA

Bonjour à tous,

Je vous sollicite aujourd'hui parce que j'aurais besoin d'un petit peu d'aide voir même beaucoup.

Je n'y connais absolument rien en VBA, cependant je suis tombé sur un site par hasard Lien permettant de réaliser un formulaire pour implanter des cellules.

Le soucis c'est qu'il me manque à mon avis quelques notions et concrètement ça ne fonctionne pas. Ca me met erreur d’exécution, j'ai essayé de relire pour modifier mais je suis perdu.

Je vous joins le fichier ça sera plus compréhensible.

Je vous remercie par avance pour votre aide

Bonjour

Modifies ta boucle dans la macro Userform_Initialize

Tu n'as que des TextBox du numéro 2 à 11

  For I = 2 To 11
    Me.Controls("TextBox" & I).Visible = True 'affiche les données dans les textbox
  Next I

Merci pour cette réponse rapide effectivement ça règle un premier soucis.

Désormais je peux implanter correctement mes cellules néanmoins lorsque que je veux les modifier à partir du formulaire et du bouton modifier j'ai un autre soucis.

Lorsque je sélectionne dans le menu déroulant la référence que je viens d'enregistrer rien ne se "place" correctement dans le formulaire.

Si vous pourriez m'éclairer je vous en serais très reconnaissant

Je rejoins le fichier modifier.

merci par avance.

Bonjour

Tu as un décalage

Ta TextBox2 correspond à la colonne B (numéro 2)

Donc dans ta boucle il ne faut pas que tu rajoutes 1 à la colonne

Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer
   If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox1.ListIndex + 2
  For I = 2 To 11
    Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I)
    [barrer]'Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)[/barrer]
  Next I
 End Sub

Merci beaucoup pour votre aide je pense que c'est bientôt finalisé et j’arrêterais de vous embêter.

La liste déroulante effectue bien son travail désormais. Néanmoins le dernier soucis réside dans le fait que lorsque je sélectionne une référence, toutes les cellules se remplissent correctement sauf mes liste déroulantes.

Je joins une capture d'écran.

Merci encore pour votre aide

Bonjour à toi aussi

Une image ne remplace pas un fichier