choisir un onglet

[al1000]

bonjour,


je selectionne les cellules à recopier manuellment ou avec une macro


JE VOUDRAI FAIRE UNE MACRO QUI ME CHOISI L4ONGLET EN FONCTION DU NUMERO DE LA SEMAINE.Les onglets se nomment s40;s41 etc
je pensai faire avec input box n°sem




voici la suite de la macro ( elle choisi la cellule de depart)

jour = InputBox("Quel jour svp (en minuscule)", "lundi mardi mercredi....etc")

Range("a1000") = jour
Range("a1000").Select
For Each cell In Selection

cell.Formula = LCase(cell.Formula)
Next cell
If Range("a1000") = "lundi" Then Range("c34").Select
If Range("a1000") = "mardi" Then Range("d34").Select
If Range("a1000") = "mercredi" Then Range("d34").Select
If Range("a1000") = "jeudi" Then Range("f34").Select
If Range("a1000") = "vendredi" Then Range("g34").Select
If Range("a1000") = "samedi" Then Range("h34").Select

puis une macro qui colle les données ( je vais le faire)

a+

 

[Simons]

Re : choisir un onglet

Salut AL1000, Le forum,

J'ai justement en stock une macro :

Sub choix()
MaDate = Date
Numero = Format(MaDate, "ww", vbMonday) - 1
SEMA = Numero
SEM = InputBox("Indiquez le numéro de la semaine recherchée" & Chr(13) & Chr(13) & "Tapez les touches Ctrl et s pour faire apparaitre cette fenêtre de choix n'importe ou dans le classeur" _
& Chr(13) & Chr(13) & "Nous sommes actuellement en Semaine " & Numero, "Microsoft Excel", , vbOKOnly + vbInformation)
If SEM = "" Then Exit Sub
If IsNumeric(SEM) = False Then
MsgBox ("Entrez un chiffre entre 1 et 52")
SEM = InputBox("Indiquez le numéro de la semaine recherchée" & Chr(13) & Chr(13) & "Tapez les touches Ctrl et s pour faire apparaitre cette fenêtre de choix n'importe ou dans le classeur" _
& Chr(13) & Chr(13) & "Nous sommes actuellement en Semaine " & Numero, "Microsoft Excel", , vbOKOnly + vbInformation)
End If
If SEM < 1 Or SEM > 52 Then
MsgBox "Le numéro de semaine doit être compris entre 1 et 52..." _
& Chr(13) & Chr(13) & "Tapez les touches Ctrl et s pour faire réapparaitre la fenêtre de choix", vbCritical
 Exit Sub
    End If
    Application.ScreenUpdating = False
    Worksheets("S" + SEM).Activate
    Range("A8").Select
    
End Sub

J'espère que cela te conviens.

Salut

 

[al1000]

Re : choisir un onglet

BONJOUR,

GENIAL CETTE MACRO


pourquoi inscrire Chr (13)?

Dans la boite de dialogue il est inscrit:

taper sur les touches ctr et s pour faire apparaitre cette fenetre


mais cette fonction ne marche pas

pourquoi?

a+

 

[SergiO]

Re : choisir un onglet

Bonsoir al1000, simons

Chr (13) permet le renvoi à la ligne dans la boite de dialogue.

Ctrl et S est un raccourci pour la macro que tu peux ajouter en faisant Outils - Macro - Macros... Sélectionne choix puis clique sur Options et rajoute S après Ctrl

 

[Simons]

Re : choisir un onglet

Salut Al1000, sergio,

Effectivement c'est exactement cela ! 😎