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 !

sabrina64

XLDnaute Occasionnel
Bonjour

J ai trouvé des lignes de codes sur internet que j ai modifiée.
Ce programme devrait creer dynamiquement 3textboxs et 3 checkboxs.
Or j'obtiens bien 3 checkbox mais seulemnt 1 textbox.
Je ne comprend pas d ou vient l erreur.
Pourriez vous regarder le code et me conseiller merci.
 

Pièces jointes

Re : creation dynamique

Bonjour à tous et toutes....

Je susi toujours en train de batailler sur mon probleme...masi il faut que j y arrive...je susi obligée de travailler avec des creations dynamiques.....

bref, j ai enlevé les modules et essayé ceci mais ca ne fonctionne toujours pas....

si quelqu un voit pourkoi?

en attendant je vais re reagarder avec mes modules ...il faut que j trouve un esoulution.............

si vous pouvez m aider...merci

ou pouvez vous m expliquer pourqoui dans le classeur21 joint plus haut, ceci ne fonctionne pas
Code:
Public Sub ChkBx_click()
Dim i As Integer
Dim aa, bb, Midwords As String

    'cet exemple affiche le nom et la valeur de l'objet cliqué
    'MsgBox ChkBx.Name & ": " & ChkBx.Value
  aa = ChkBx.Name
bb = ChkBx.Value
   If bb = True Then
        MsgBox (aa & "coucou")
        

          Midwords = Mid(aa, 12)
    MsgBox Midwords

        If UserForm1.Controls(txe).Name = ("Matextbox" & Midwords) Then

               txe.Text = "ee"
      
        
        End If
    
End If
 

Pièces jointes

Dernière édition:
Re : creation dynamique

bonjour...

je n ai toujours pas abandonné mon idée...mais ca ne fonctionne toujours pas et le temps passe...Ô désespoir.........

non plus sérieusement , je n arrive toujours pas à prendre la main su rles contrôles.................

voyez vous une erreur?

Code:
Private Sub suivant_Click()
MsgBox nomM
If (TypeOf ctrl Is MSForms.TextBox) Then
    For Each ctrl In Me.Controls
        If ctrl.Text <> "" Then
            MsgBox ("EXTRA")
        End If
    Next ctrl
End If
End Sub



merci...

j accepte toute aide...qui sera la bien venue...merci


j oré bien mi smon code mais meme zipé, le forum n accepte aps ca depasse la taille
 
Dernière édition:
Re : creation dynamique

classeurdele creation.xls est dans pgmes

FicheMetier2 sert à tester le classeur précedent

cependant pour le tester chez vous il faudra changer les chemins...

car moi Fiche metier2 est stocké dans T:\DI\Mefp\Essais\Exterieurs\Sabrina Metche\testvba\Fiches métiers


la cela sera un module de mon projet......mais ca fonctionne pas...........
 

Pièces jointes

Re : creation dynamique

Bonjour,

désolée hier j étais déjà partie...

mon fichier en .xls se nomme classeurdele creation.xls et fais 160Ko

si j le zipe il fait 57.3Ko

Le code que j'ai joint dans pgmes, contient chq formulaire et module que j avais exporté, donc l ensemble du zip de pgmes constitue mon fichier classeurdele creation.xls...

je sais pas si j 'ai bien repondu à la question posée.......Est ce plus clair?

merci.
 
Dernière édition:
- 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

Discussions similaires

H
Réponses
19
Affichages
7 K
P
  • Question Question
Réponses
3
Affichages
1 K
Réponses
6
Affichages
3 K
T
Réponses
2
Affichages
682
T
H
Réponses
6
Affichages
4 K
Helios67
H
R
Réponses
1
Affichages
7 K
D
Réponses
1
Affichages
2 K
Damorek
D
C
  • Question Question
Réponses
3
Affichages
937
C
E
  • Question Question
Réponses
1
Affichages
873
Emmanuel31100
E
Retour