CommandButton vérif du togglebutton enclenché, changement de colonne et de ligne

Salut Aldo,
Une petite idée à creuser :

Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim Cel As Range
Dim MaVar As String
MaVar = "test"
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "ToggleButton" And _
Ctrl.Value = True Then
Select Case Ctrl.Name
Case "ToggleButton1"
Set Cel = Range("A65536") _
.End(xlUp).Offset(1, 0)
Cel.Offset(0, 1) = Time
Cel = MaVar
Case "ToggleButton2"
Set Cel = Range("C65536") _
.End(xlUp).Offset(1, 0)
Cel.Offset(0, 1) = Time
Cel = MaVar
Case "ToggleButton3"
Set Cel = Range("E65536") _
.End(xlUp).Offset(1, 0)
Cel.Offset(0, 1) = Time
Cel = MaVar
Case "ToggleButton4"
Set Cel = Range("G65536") _
.End(xlUp).Offset(1, 0)
Cel.Offset(0, 1) = Time
Cel = MaVar
Case "ToggleButton5"
Set Cel = Range("I65536") _
.End(xlUp).Offset(1, 0)
Cel.Offset(0, 1) = Time
Cel = MaVar
Case "ToggleButton6"
Set Cel = Range("K65536") _
.End(xlUp).Offset(1, 0)
Cel.Offset(0, 1) = Time
Cel = MaVar
End Select
End If
Next Ctrl
Set Ctrl = Nothing
Set Cel = Nothing
End Sub

Hervé.

"ALDO" <claude.karcher@wanadoo.fr> a écrit dans le message news:
#bYlkDiQDHA.2096@TK2MSFTNGP12.phx.gbl...

Bonjour à tous

J'aimerais qu'un CommandButton vérifie quel est le togglebutton
enclenché

et

selon si c'est le cas ou pas qu'il inscrive dans une colonne donné le
temps

et dans l'autre une variable en texte.
Ensuite je voudrais qu'il passe à la ligne suivante.

Il y a six ToggleButton.

J'ai essayer plusieurs chose voilà le dernier code que j'ai essayé et
qui

marchait pas

Je ne sais pas si je devrais pas plutôt essayer avec If... Then... mais
j'arrivais pas non plus a la faire marcher.
J'ai essayer avec While... Idem marche pas

J'avoue que je suis pas très doué mais comme je débute, j'aurais
vraiment

besoin d'un coup de main...
Je me suis vraiment pris la tête dessus et j'ai pas trouvé de solutions

Merci d'avance pour tout vos précieux conseils

Salutations

ALDO

--------------------------------------------------------------------------
--

------------------------------------

Private Sub CommandButton1_Click()

Cinqdim = "5-10m"
i = i + 1

Select Case InscrireDonnées
Case ToggleButton1.Value = 1
Cells(i, "A").Value = Now
Cells(i, "B").Value = Cinqdim

Case ToggleButton2.Value = 1
Cells(i, "A").Value = Now
Cells(i, "C").Value = Cinqdim

Case ToggleButton3.Value = 1
Cells(i, "D").Value = Now
Cells(i, "E").Value = Cinqdim

Case ToggleButton4.Value = 1
Cells(i, "F").Value = Now
Cells(i, "G").Value = Cinqdim

Case ToggleButton5.Value = 1
Cells(i, "H").Value = Now
Cells(i, "I").Value = Cinqdim


Case ToggleButton6.Value = 1
Cells(i, "J").Value = Now
Cells(i, "K").Value = Cinqdim
End Select