Utilisation checkbox débutant vba

Fermé

coudu - 9 déc. 2009 à 13:43
Farfadet88 Messages postés 6295 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 4 février 2025 - 9 déc. 2009 à 14:19

Bonjour, j'ai créé un userform
J'ai textbox1 dans lequel je rentre un chiffre,
ensuite j'ai plusieurs checkbox, et pour finir un bouton de commande "ok".
Chaque check box correspond à une cellule d'un tableau excel. J'aimerai que si je rentre une valeur dans le textbox et que je selectionne un check box alors la valeur du textbox soit ajouté à la valeur de la cellule.
en gros la valeur du textbox+valeur de la cellule=nouvelle valeur de la cellule

En espérant etre clair...

Merci

A voir également:

Vba if checkbox is checked
What is my movie français - Télécharger - Divers TV & Vidéo
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Who is on my wifi pc - Télécharger - Outils Internet

3 réponses

Réponse 1 / 3

Farfadet88 Messages postés 6295 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 4 février 2025 1 370
9 déc. 2009 à 13:53

Private Sub CommandButton1_Click()
If checkbox1 = True Then [a1] = [a1] & " " & TextBox1.Value
If checkbox2 = True Then [b1] = [b1] & " " & TextBox1.Value
If checkbox3 = True Then [c1] = [c1] & " " & TextBox1.Value
Unload UserForm1
End Sub

Réponse 2 / 3

coudu
9 déc. 2009 à 14:17

merci pour tout

Réponse 3 / 3

Farfadet88 Messages postés 6295 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 4 février 2025 1 370
9 déc. 2009 à 14:19

De rien

Hésite pas si t'as d'autres questions

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

VBA : If CheckBox.Value = True Or CheckBox.Value = True Then ...

Bonjour,

Je cherche à créer une macro qui permette à ce que si une des 3 checkbox est cochée, il faut afficher les lignes 96 à 167.

Voici le code entré mais j'ai un message d'erreur comme quoi il un objet est requis

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").Entir...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Rtc battery low

Bonjour,
Mon pc affiche RTC battery low quand je l'allume même avec la batterie et le secteur branché. Sachant qu'il n'est plus garantie il a 7ans. Que puis je faire?

Configuration: iPhone / Chrome 51.0.2704.81

The Realtek Network Controller was not found

Bonjour,
Quand j'essaie d'installer le pilote "Realtek PCIe GbE Family Controller"
voilà le message que je reçoie "The Realtek Network Controller was not found. If Deep Sleep Mode is enabled please plug the cable"

Information :

Windows 11
Pc Nitro N50-600
Carte Mère : B36H4-AD