Microsoft 365 Ouverture feuille à partir d'une cellule

[FCMLE44]

Bonjour

Dans le fichier joint, Je souhaite lorsque je sélectionne en B1 la feuille à prendre en compte, la feuille Feuille Calcul Indemnités s'ouvre.
Pour info, l'info en B1 ne sert qu'à mettre les bonnes formules dans un endroit précis.
Quelqu'un peut il m'aider ?

Merci

 

[CHALET53]

Bonjour
Un essai

 

[soan]

Bonjour,

Voici ton fichier modifié.

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, [B1]) Is Nothing _
      Then Worksheets("Feuille Calcul Indemnités").Select
  End With
End Sub

Liste de la Validation des données, source : =$E$2:$E$3

soan

 

[FCMLE44]

Ca fonctionne
Merci

 

[FCMLE44]

Bonjour,

Voici ton fichier modifié.

soan

Si je mets la cellule B1 à vide elle va aussi sur la feuille calcul indemnité, est-il possible que cela ne se déclenche pas si je mets à vide

Merci

 

[soan]

Nouveau fichier ; nouveau code VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    If .Value <> "" Then Worksheets("Feuille Calcul Indemnités").Select
  End With
End Sub

Liste de la Validation des données, source : =$E$2:$E$3

soan

 

[FCMLE44]

Merci
Je suis vraiment embété avec mon autre post, auriez vous le tempspour m'aider svp ?

 

[soan]

Je vais d'abord essayer de trouver de quel autre post tu parles.
Si c'est dans mes compétences, je t'aiderai.

soan

 

[FCMLE44]

voici le libellé Combobox impression et enregistrement

Si une autre idée, je suis preneur

Un grand merci

 

[soan]

ah, j'ai trouvé, mais désolé : pour les envois mail,
je ne m'y connais pas.

soan

 

[FCMLE44]

et pour faire cela ?

Enregistrement en pdf de feuilles précises qui pourrait être imprimer si on le souhaite puis
enregistrement dans répertoire de mon choix ?

Je connais pdf creator mais je souhaite le faire via le userform que j'ai fait

 

[soan]

désolé, pour les pdf aussi, je m'y connais mal.

soan

 

[FCMLE44]

pas grave merci quand même

 

[FCMLE44]

Nouveau fichier ; nouveau code VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    If .Value <> "" Then Worksheets("Feuille Calcul Indemnités").Select
  End With
End Sub

Liste de la Validation des données, source : =$E$2:$E$3

soan

J'ai un souci lorsque veux l'appliquer sur ma feuille définitive ou j'ai déjà une target en D18, ca ne fonctionne pas

Pouvez vous regarder svp ?

Merci

 

[soan]

Je te retourne ton fichier modifié.

À toi de faire les essais.

soan