OVH Cloud OVH Cloud

Question!!!

1 réponse
Avatar
STEN
Bonjour, dans un classeur j'ai 12 feuilles qui=20
representent les mois de l'ann=E9e, je dois mettre dans des=20
cellules (toutes les m=EAmes sur chaque feuille le nom , le=20
code , et la direction du site )
Est-il possible de ne pas r=E9peter a chaque fois le code=20
pour chaque feuille exemple ci-dessous:

Private Sub CmdValid_Click()
Dim Arr(), A As Integer
Arr =3D Array("TxtNom", "TxtCode", "TxtDepartement")

For A =3D 0 To UBound(Arr)
If Me.Controls(Arr(A)) =3D "" Then
MsgBox "Le control " & Me.Controls(Arr(A)).Name & _
" est vide!", vbInformation, PARAMETRES.Caption
Me.Controls(Arr(A)).SetFocus
Exit Sub
End If
Next
JANVIER.Range("B3").Value =3D Me.TxtNom
JANVIER.Range("E3").Value =3D Me.TxtCode
JANVIER.Range("B5").Value =3D Me.TxtDepartement

j'aimerai que le code pour janvier se repete pour tous=20
les autre mois de l'ann=E9es peut t'on faire qu'une seule=20
ligne de code pour les douze mois j'esp=E8re m'=EAtre exprim=E9=20
corectement.
Merci de votre aide

1 réponse

Avatar
Ricky [MVP]
Bonjour *STEN* (et tous les lecteurs)
| Bonjour, dans un classeur j'ai 12 feuilles qui
| representent les mois de l'année, je dois mettre dans des
| cellules (toutes les mêmes sur chaque feuille le nom , le
| code , et la direction du site )
| Est-il possible de ne pas répeter a chaque fois le code
| pour chaque feuille exemple ci-dessous:

Heu, je ne sais pas si j'ai bien compris mais le plus simple c'est de sélectionner les 12 onglets en une fois et taper les infos dans les cellules de la feuille 1
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm