Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Versions Excel

Versions Excel

4 réponses
Avatar
Jean-Pierre
Bonjour,

Cette procédure fonctionne parfaitement avec Excel 2002 mais ne tourne pas
avec Excel 98.

Avez-vous une idée ?

Merci d'avance

Jean-Pierre

For Each ctrl In Controls
If TypeName(ctrl) = "OptionButton" Then
If ctrl = True And ctrl.GroupName = "periode" Then
Select Case ctrl.Name
Case "s_intro_periode_3m"
Sheets("TR").Cells(5, 4) = "3 Mois"
Case "s_intro_periode_6m"
Sheets("TR").Cells(5, 4) = "6 Mois"
Case "s_intro_periode_12m"
Sheets("TR").Cells(5, 4) = "12 Mois"
Case "s_intro_periode_18m"
Sheets("TR").Cells(5, 4) = "18 Mois"
Case "s_intro_periode_24m"
Sheets("TR").Cells(5, 4) = "24 Mois"
End Select
Exit For
End If
Else
MsgBox "Cochez une case"
Exit Sub
End If
Next
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
J-Dan
bonjour Jean-Pierre,

sur XL2000 ca marche, il me semble que j'avais ce genre
de chose sur XL97.
Verifie que tes OptionButton ne sont pas dans un Frame,
auquel cas il te faudrait modifier la ligne :
For Each ctrl In Controls en
For Each ctrl In Frame1.Controls
ou que tes controles n'aient pas la propriete
GroupName "Periode".

sinon, je ne vois pas

J-Dan

-----Message d'origine-----
Bonjour,

Cette procédure fonctionne parfaitement avec Excel 2002
mais ne tourne pas

avec Excel 98.

Avez-vous une idée ?

Merci d'avance

Jean-Pierre

For Each ctrl In Controls
If TypeName(ctrl) = "OptionButton" Then
If ctrl = True And ctrl.GroupName = "periode"
Then

Select Case ctrl.Name
Case "s_intro_periode_3m"
Sheets("TR").Cells(5, 4) = "3 Mois"
Case "s_intro_periode_6m"
Sheets("TR").Cells(5, 4) = "6 Mois"
Case "s_intro_periode_12m"
Sheets("TR").Cells(5, 4) = "12 Mois"
Case "s_intro_periode_18m"
Sheets("TR").Cells(5, 4) = "18 Mois"
Case "s_intro_periode_24m"
Sheets("TR").Cells(5, 4) = "24 Mois"
End Select
Exit For
End If
Else
MsgBox "Cochez une case"
Exit Sub
End If
Next


.



Avatar
J-Dan
Jean-Pierre,

voici un code sans select case :

For Each ctrl In Me.Controls

If TypeName(ctrl) = "OptionButton" Then
If ctrl = True And ctrl.GroupName = "periode" Then
Sheets("TR").Cells(5, 4) = Replace(Mid _
(ctrl.Name, 17, 2), "m", " ") & " Mois"
Exit Sub
End If
End If
Next
MsgBox "Cochez une case"

J-Dan


-----Message d'origine-----
Bonjour,

Cette procédure fonctionne parfaitement avec Excel 2002
mais ne tourne pas

avec Excel 98.

Avez-vous une idée ?

Merci d'avance

Jean-Pierre

For Each ctrl In Controls
If TypeName(ctrl) = "OptionButton" Then
If ctrl = True And ctrl.GroupName = "periode"
Then

Select Case ctrl.Name
Case "s_intro_periode_3m"
Sheets("TR").Cells(5, 4) = "3 Mois"
Case "s_intro_periode_6m"
Sheets("TR").Cells(5, 4) = "6 Mois"
Case "s_intro_periode_12m"
Sheets("TR").Cells(5, 4) = "12 Mois"
Case "s_intro_periode_18m"
Sheets("TR").Cells(5, 4) = "18 Mois"
Case "s_intro_periode_24m"
Sheets("TR").Cells(5, 4) = "24 Mois"
End Select
Exit For
End If
Else
MsgBox "Cochez une case"
Exit Sub
End If
Next


.



Avatar
Jean-Pierre
Merci

J'essaye ce code.

@+

jp

"J-Dan" a écrit dans le message de
news:6b1801c4759e$9a425ee0$
Jean-Pierre,

voici un code sans select case :

For Each ctrl In Me.Controls

If TypeName(ctrl) = "OptionButton" Then
If ctrl = True And ctrl.GroupName = "periode" Then
Sheets("TR").Cells(5, 4) = Replace(Mid _
(ctrl.Name, 17, 2), "m", " ") & " Mois"
Exit Sub
End If
End If
Next
MsgBox "Cochez une case"

J-Dan


-----Message d'origine-----
Bonjour,

Cette procédure fonctionne parfaitement avec Excel 2002
mais ne tourne pas

avec Excel 98.

Avez-vous une idée ?

Merci d'avance

Jean-Pierre

For Each ctrl In Controls
If TypeName(ctrl) = "OptionButton" Then
If ctrl = True And ctrl.GroupName = "periode"
Then

Select Case ctrl.Name
Case "s_intro_periode_3m"
Sheets("TR").Cells(5, 4) = "3 Mois"
Case "s_intro_periode_6m"
Sheets("TR").Cells(5, 4) = "6 Mois"
Case "s_intro_periode_12m"
Sheets("TR").Cells(5, 4) = "12 Mois"
Case "s_intro_periode_18m"
Sheets("TR").Cells(5, 4) = "18 Mois"
Case "s_intro_periode_24m"
Sheets("TR").Cells(5, 4) = "24 Mois"
End Select
Exit For
End If
Else
MsgBox "Cochez une case"
Exit Sub
End If
Next


.



Avatar
Jean-Pierre
Super ça marche

Merci

JP

"J-Dan" a écrit dans le message de
news:6b1801c4759e$9a425ee0$
Jean-Pierre,

voici un code sans select case :

For Each ctrl In Me.Controls

If TypeName(ctrl) = "OptionButton" Then
If ctrl = True And ctrl.GroupName = "periode" Then
Sheets("TR").Cells(5, 4) = Replace(Mid _
(ctrl.Name, 17, 2), "m", " ") & " Mois"
Exit Sub
End If
End If
Next
MsgBox "Cochez une case"

J-Dan


-----Message d'origine-----
Bonjour,

Cette procédure fonctionne parfaitement avec Excel 2002
mais ne tourne pas

avec Excel 98.

Avez-vous une idée ?

Merci d'avance

Jean-Pierre

For Each ctrl In Controls
If TypeName(ctrl) = "OptionButton" Then
If ctrl = True And ctrl.GroupName = "periode"
Then

Select Case ctrl.Name
Case "s_intro_periode_3m"
Sheets("TR").Cells(5, 4) = "3 Mois"
Case "s_intro_periode_6m"
Sheets("TR").Cells(5, 4) = "6 Mois"
Case "s_intro_periode_12m"
Sheets("TR").Cells(5, 4) = "12 Mois"
Case "s_intro_periode_18m"
Sheets("TR").Cells(5, 4) = "18 Mois"
Case "s_intro_periode_24m"
Sheets("TR").Cells(5, 4) = "24 Mois"
End Select
Exit For
End If
Else
MsgBox "Cochez une case"
Exit Sub
End If
Next


.