Bouton a bascule

Bonjour a tous. J'ai un tableau de de pieces , avec pour chaque piece plusieurs données ( poids, taille , matiere, etc.) J'ai cree un formulaire pour la saisie. Pour la plupart des donnees une combobox me permet de choisir entre pusieurs valeurs. mais il y a une cellule ou on doit ecrire oui ou non. Cette cellule est selectionnée par un (variable,colonne). Je n'arrive pas a remplir cette cellule avec un Tooglebutton ou des cases a cocher. Ma cellule reste vide.

Private Sub CheckBoxactive_Click()
If CheckBoxactive = True Then

l est la variable pour aller a la derniere cellule vide

Range(l, 14) = "Oui"
'ToggleButtonactive.Caption = "Oui"
CheckBoxactive.BackColor = 255
Else
Range(l, 14) = "Non"
'ToggleButtonactive.Caption = "Non"
CheckBoxactive.BackColor = 65280
End If

Pourriez vous m'aider ?

Merci

Hello,

Range(l, 14) = "Oui" 

Ton "L" n'est pas défini. Le range attends un nombre pour les lignes, exemple :

Range(1,10) = "oui"

'ou

Range(1,"b") = "oui"

'ou

dim Ligne as integer

Ligne = 1
Range(Ligne,14) = "oui"

' ou

dim Ligne as integer
dim Colonne as integer

Ligne = 1
Colonne = 14
Range(Ligne,Colonne) = "oui"

'ou

dim Ligne as integer
dim Colonne as string

Ligne = 1
Colonne = "c"
Range(Ligne,Colonne ) = "oui"

Voici comment je definis ma variable l (L minuscule)

Dim l As Integer
l = 8
While Not IsEmpty(Cells(l, 1))
l = l + 1
Wend

bonjour,

c'est Range("C" & l) ou Cells(l,"C") ou Cells(l,3) !!! Mais Range(l,3) ???

Je vous remercie, je vais modifier mon code et je vous tiens au courant. Si je resume range me donne acces a une seule cellule ex : Range (i&14) ?

Bonjour…

Le bouton bascule (ToggleButton) étant nommé TG, pour une seule cellule visée :

Private Sub TG_Click()
  Dim L As Integer
  L = 8
  While Cells(L, 1) <> "": L = L + 1: Wend
  TG.BackColor = IIf(TG, vbGreen, vbRed)
  TG.Caption = IIf(TG, "In", "Out")
  Cells(L, 14).Value = IIf(TG, "Oui", "Non")
End Sub

Hello,

Oui BsAlv tu as raison ... j'étais pas réveillé ce matin

Pardon, pourriez vous m'expliquer: Cells(L, 14).Value = IIf(TG, "Oui", "Non"). Merci

J'ai recopie integralement le code et il y a une erreur "Erreur d'execution 1004 " et erreur definie par l'application ou par l'objet.

Re …

Á la création du contrôle Bascule TG , celui-ci est à Faux. Au premier clic, il passe à True au second il revient à False puis agit comme un bouton électrique de va et vient.

Pour aller plus loin dans l’utilisation de celui-ci, autre base d’Excel : TG seul correspond à la valeur True.

Avec cela : IIf(TG, A , B) correspond à si TG est à True alors c’est A sinon c’est B !

Attention, dans certain cas, cette fonction IIf doit être remplacée par le fameux Si … alors … Sinon …

En VBA (hé oui : 5 lignes au lieu d’une ici lors de la première présentation)

If condition 1 Then
  …
Else
  …
End If

ensuite (avec cette autre autorisation d’écriture) en 1 ligne

If Condition 1 Then Condition 2 Else Condition 1

Ou, quand les conditions sont exclusives (c’est Moi, ce n’est pas que Toi) à 2 Lignes

Condition 1
If Condition 1 Then Condition 2

Nota : pour en écrire le moins possible, j'utilise des raccourcis d'écriture mais en respectant les noms choisis

Bon suite à Toi …