userform : besoin d'aide SVP

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion nordov6
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nordov6

Guest
saluts tous le monde ''excel-downloads"
j'ai besoin d'aide sur une erreure dans mon userform
j'ai un combox (code prof)
quand je selectionne un numéro
ça donne debogage et affiche vba
ComboBox2 = Ws.Cells(Ligne, "B") en jaune
je suis débutant
Aidez moi S.V.P
et merci d'avance
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : userform : besoin d'aide SVP

Bonjour,

Tu ne donnes pas beaucoup d'information sur ce que tu tentes d'effectuer!

Si tu as un message d'erreur, quel est-il?

Si tu passes la souris au-dessus de la variable ligne, quelle valeur a-t-elle?

ComboBox2 = Ws.Cells(Ligne, "B") en jaune
Si cette ligne est dans un module standard, adapte cette syntaxe :
'Tu adaptes le nom de la feuille
Worksheets("Feuil1").Shapes("ComboBox2").OLEFormat.Object.Object.Value = Ws.Cells(ligne, "B")

est-ce que tu veux ajouter un item au combobox?
Worksheets("Feuil1").Shapes("ComboBox2").OLEFormat.Object.Object.AddItem Ws.Cells(ligne, "B")
 
Vote positif 0 Vote négatif
Re : userform : besoin d'aide SVP

merci infiniment de ta reponse
je ne sais pas comment fonctionne
voila le code en question

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
ComboBox2 = Ws.Cells(Ligne, "B")
For I = 1 To 7
Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)

Next I
End Sub



Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
L = Sheets("prof").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = TextBox4
Range("G" & L).Value = TextBox5
Range("H" & L).Value = TextBox6
Range("I" & L).Value = TextBox7
End If
End Sub

Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim I As Integer

If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
Ws.Cells(Ligne, "B") = ComboBox2
For I = 1 To 7
If Me.Controls("TextBox" & I).Visible = True Then
Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)

End If
Next I
End If
End Sub

Private Sub CommandButton3_Click()
Unload Me

End Sub


Private Sub Label50_Click()

End Sub

Private Sub Label53_Click()

End Sub

Private Sub Label56_Click()

End Sub

Private Sub Label59_Click()

End Sub

Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer

ComboBox2.ColumnCount = 1
ComboBox2.List() = Array("Mr", "Mm")
Set Ws = Sheets("prof")
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 7
Me.Controls("TextBox" & I).Visible = True

Next I
End Sub

et merci encore
 
Vote positif 0 Vote négatif
Re : userform : besoin d'aide SVP

Bonjour,

Ta procédure devrait ressembler à ceci :

VB: 
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer
Dim X As String, Y As Long
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
X = Worksheets("prof").Cells(Ligne, "B")
Y = Application.Match(X, ComboBox2.List, 0)
Me.ComboBox2.ListIndex = Y - 1

For I = 1 To 7
    Me.Controls("TextBox" & I) = Worksheets("prof").Cells(Ligne, I + 2)
Next I
End Sub
 
Vote positif 0 Vote négatif
Re : userform : besoin d'aide SVP

merci bien pour votre aide
mais encore ya un probleme avec le commande boton modifier

code vba:
Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim I As Integer

If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
Ws.Cells(Ligne, "B") = ComboBox2
X = Worksheets("prof").Cells(Ligne, "B")
Y = Application.Match(X, ComboBox2.List, 0)
Me.ComboBox2.ListIndex = Y - 1
For I = 1 To 7
If Me.Controls("TextBox" & I).Visible = True Then
Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)

End If
Next I
End If
End Sub
 
Vote positif 0 Vote négatif
Re : userform : besoin d'aide SVP

je m'excuse
voila le vrai code que j'ai

Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim I As Integer

If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
Ws.Cells(Ligne, "B") = ComboBox2
For I = 1 To 7
If Me.Controls("TextBox" & I).Visible = True Then
Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)

End If
Next I
End If
End Sub
 
Vote positif 0 Vote négatif
Re : userform : besoin d'aide SVP

salut
merci pour tous ce qui donne son aide
chacun de vous a sa façon de regarder les choses (ici ya pas de brut) vous tous des meilleurs pour moi débutant
le problème c'est que si je veux ajouter un combo box il de met débogage en sélectionne dans vba (Next y ) en jaune
je ne sais pas quoi faire
 
Vote positif 0 Vote négatif
Re : userform : besoin d'aide SVP

Un petit exemple, le nom de chacun sera Cmb + Index

VB: 
Sub Créer_Combobox_Sur_Formulaire()
For b = 1 To 3
    Me.Controls.Add "Forms.combobox.1", "Cmb" & b, True
    Me("Cmb" & b).Top = 10 + a
    Me("Cmb" & b).Left = 15
    Me("Cmb" & b).Width = 90
    Me("Cmb" & b).Height = 20
    a = a + 20
Next
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

V
  • Résolu(e)
XL 2016 Fonction indirect dans sélection données graphique
Réponses
8
Affichages
799
vincent32
V
A
  • Résolu(e)
Microsoft 365 Formule indirect?
Réponses
4
Affichages
762
AlexiaC
A
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
696
tactic6
tactic6
N
  • Question Question
Microsoft 365 Navigation avec boutons d'une Listbox dans un Userform
Réponses
1
Affichages
808
Oneida
Oneida
C
  • Question Question
Microsoft 365 aide userform
Réponses
11
Affichages
937
Chapichapo
C
A
  • Question Question
Microsoft 365 1er besoin a base critaire du tableau croisé dynamique
Réponses
1
Affichages
420
almourasel
A
L
  • Question Question
XL 2019 comparaison entre deux fichiers, besoin d'aide svp
2 3 4
Réponses
59
Affichages
5 K
Etoto
Etoto
L
  • Question Question
Microsoft 365 Lenteur excessive fichier Excel et demande d'aide
2 3
Réponses
41
Affichages
5 K
lyesse1
L
M
  • Question Question
Microsoft 365 Gestion d'une refacturation en fonction d'un inventaire
Réponses
1
Affichages
668
MUGMRG
M
S
  • Question Question
XL 2016 Besoin d'aide pour finaliser gestion courrier départ
Réponses
3
Affichages
1 K
senpai49
S
gothc
  • Question Question
XL 2016 Erreur code vba
2
Réponses
15
Affichages
2 K
gothc
gothc
G
  • Question Question
XL 2016 Besoin de modification avec un formulaire
2 3 4
Réponses
54
Affichages
5 K
Dranreb
Dranreb
A
  • Question Question
Microsoft 365 Besoin d'aide pour créer une formule
Réponses
6
Affichages
1 K
Aphrodyte
A
K
  • Question Question
XL 2019 UserForm liste déroulante (cascade) avec ajout de données/modification
2 3
Réponses
38
Affichages
10 K
kinders59
K
S
  • Question Question
Autres vérification données avant validation sur userfom
Réponses
3
Affichages
638
samia89
S
L
  • Résolu(e)
Microsoft 365 Besoin d'aide pour optimiser un code(boucle pour combobox et textbox)
2 3
Réponses
40
Affichages
5 K
lalimace
L
S
  • Résolu(e)
XL 2019 Combinaison possibles sans redondance
Réponses
3
Affichages
2 K
sylvanu
sylvanu
S
  • Question Question
Autres problème code vba avec le bouton supprimer et ajouter
Réponses
2
Affichages
1 K
sylvanu
sylvanu
T
  • Question Question
besoin d'aide svp UserForm
Réponses
6
Affichages
1 K
tigre117
T
T
  • Question Question
Microsoft 365 Procédure trop grande
Réponses
1
Affichages
1 K
ton-v
T
Retour