• Initiateur de la discussion Initiateur de la discussion CATPLUS
  • 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 !

CATPLUS

XLDnaute Junior
Bonjour à tous
Aprés avoir récupérer sur le forum le fichier que j'utilise j'aimerai le perfectionner, mais mes lacunes sont au top.
1 je souhaite integrer des Zones de liste modifiable
2 de faire fonctionner la case à cocher
3 intégrer dans la derniére cellule soit le Yes ou le NO
Merci de votre aide
 

Pièces jointes

Re : Combox

bonjour CATPLUS
il va falloir être plus explicite comme cela pas compris grand chose
le role du CheckBox ????
pour toi c'est quoi des zones modifiables?????
autrement on peut déja simplifier comme cela ton code user

Code:
Dim i As Byte, x As Long
Private Sub CommandButton1_Click()
x = Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 9: Cells(x, i) = Controls("Textbox" & i).Value: Next i
For i = 10 To 11: Cells(x, i + 2) = Controls("Textbox" & i).Value: Next i
Cells(x, 14) = CheckBox1
Cells(x, 15) = IIf(OptionButton1.Value, "yes", "no")
Unload Me: UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

pas teste mais pense suffisant!!!


PS : bonjour GILBERT🙂
 
Dernière édition:
Re : Combox

Bonjour
Mise à jour du fichier et rajouter le RAZ, tout fonctionne parfaitement.
Mon dernier soucis comment remplacer le VRAI qui est produit par le clic de la case à cocher par la copie de la case à cocher dans la cellule
Merci
 

Pièces jointes

Re : Combox

bonjour
mise à jour du fichier et rajouter le raz, tout fonctionne parfaitement.
Mon dernier soucis comment remplacer le vrai qui est produit par le clic de la case à cocher par la copie de la case à cocher dans la cellule
merci

une solution comme ceci 🙄
 

Pièces jointes

- 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

Réponses
1
Affichages
223
Réponses
7
Affichages
262
Réponses
4
Affichages
255
Réponses
11
Affichages
1 K
Réponses
1
Affichages
336
Retour