OVH Cloud OVH Cloud

Différentes succursales....

2 réponses
Avatar
Denys
Bonjour =E0 tous,

Je veux cr=E9er sur Excel une application sur laquelle=20
diff=E9rents usagers entreront un certain nombre de donn=E9es=20
avec l'aide d'un userform.=20

Chacun ayant un no de succursale diff=E9rent, je voudrais=20
qu'en cliquant sur leur no de succursales (boutons=20
d'option) m'assurer que les donn=E9es iront =E0 la suite des=20
donn=E9es pr=E9c=E9dentes pour la m=EAme succursale.

Supposons succ 122, 149, 181, 1081 1171, 8581. Comment=20
faire pour que les donn=E9es provenant de 1081 se placent=20
toujours entre celles de 181 et de 1171?

J'esp=E8re la question suffisamment explicite. Merci=20
d'avance pour votre temps et vos suggestions.

Denys

2 réponses

Avatar
Denis Michon
Bonjour Denys,


Voilà une façon de faire : J'ai supposé que la propriété "Caption" des boutons radio avait été défini avec le numéro de
la succursale.

J'ai aussi supposé que : "les données provenant de 1081 se placent toujours entre celles de 181 et de 1171?" signifiait
les lignes entre 181 et 1171 .


Pour les fins de l'exemple , j'utilise la feuil1 ---> à adapter

Une boucle est faite sur tous les boutons d'options.

Un premier select case pour détecter le bouton radio qui a été sélectionné

Un second select case pour copier l'information selon une plage désignée à chacune des succursales.



'------------------------------------
Private Sub CommandButton1_Click()

Dim B As Object
With Worksheets("Feuil1")
For Each B In UserForm1.Controls
If TypeOf B Is msforms.OptionButton Then
Select Case B.Value

Case Is = True
Select Case B.Caption

Case 122

Case 149

Case 181
If .Range("A181") = "" Then
.Range("A181") = "Toto" 'OU Me.textbox1
Else
.Range("A181:A" & .Range("a1171").End(xlUp)(2).Row) = "Toto"
End If

Case 8581


End Select
End Select
End If
Next
End With

Set B = Nothing


End Sub
'------------------------------------


Salutations!



"Denys" a écrit dans le message de news:03f101c39f17$f0a6e700$
Bonjour à tous,

Je veux créer sur Excel une application sur laquelle
différents usagers entreront un certain nombre de données
avec l'aide d'un userform.

Chacun ayant un no de succursale différent, je voudrais
qu'en cliquant sur leur no de succursales (boutons
d'option) m'assurer que les données iront à la suite des
données précédentes pour la même succursale.

Supposons succ 122, 149, 181, 1081 1171, 8581. Comment
faire pour que les données provenant de 1081 se placent
toujours entre celles de 181 et de 1171?

J'espère la question suffisamment explicite. Merci
d'avance pour votre temps et vos suggestions.

Denys
Avatar
Denys
Bonjour Denis,

Merci infiniment. Je vais regarder tout cela demain et te
revenir. Cependant, je ne voulais pas dire entre les
lignes 181 et 1171, mais entre les données des succursales
numéro 181 et 1171.

Quoi qu'il en soit, je te remercie beaucoup

Denys


-----Original Message-----
Bonjour Denys,


Voilà une façon de faire : J'ai supposé que la
propriété "Caption" des boutons radio avait été défini

avec le numéro de
la succursale.

J'ai aussi supposé que : "les données provenant de 1081
se placent toujours entre celles de 181 et de 1171?"

signifiait
les lignes entre 181 et 1171 .


Pour les fins de l'exemple , j'utilise la feuil1 ---> à
adapter


Une boucle est faite sur tous les boutons d'options.

Un premier select case pour détecter le bouton radio qui
a été sélectionné


Un second select case pour copier l'information selon une
plage désignée à chacune des succursales.




'------------------------------------
Private Sub CommandButton1_Click()

Dim B As Object
With Worksheets("Feuil1")
For Each B In UserForm1.Controls
If TypeOf B Is msforms.OptionButton Then
Select Case B.Value

Case Is = True
Select Case B.Caption

Case 122

Case 149

Case 181
If .Range("A181") = "" Then
.Range("A181") = "Toto" 'OU
Me.textbox1

Else
.Range("A181:A" & .Range
("a1171").End(xlUp)(2).Row) = "Toto"

End If

Case 8581


End Select
End Select
End If
Next
End With

Set B = Nothing


End Sub
'------------------------------------


Salutations!



"Denys" a écrit
dans le message de news:03f101c39f17$f0a6e700

$
Bonjour à tous,

Je veux créer sur Excel une application sur laquelle
différents usagers entreront un certain nombre de données
avec l'aide d'un userform.

Chacun ayant un no de succursale différent, je voudrais
qu'en cliquant sur leur no de succursales (boutons
d'option) m'assurer que les données iront à la suite des
données précédentes pour la même succursale.

Supposons succ 122, 149, 181, 1081 1171, 8581. Comment
faire pour que les données provenant de 1081 se placent
toujours entre celles de 181 et de 1171?

J'espère la question suffisamment explicite. Merci
d'avance pour votre temps et vos suggestions.

Denys


.