Contenu récent par jm.andryszak

bonjour une approche avec la méthode move Private Sub Label1_Click() UserForm1.Show '0 End Sub et dans userform1 Private Sub UserForm_initialize() UserForm1.StartUpPosition = 0 UserForm1.Move FrmAccueil.Frame51.Left + FrmAccueil.Left, _ FrmAccueil.Top + FrmAccueil.Frame51.Top + 20, _...

En fait tu avais la bonne formule, fallait juste la mettre en français. ça m'arrive souvent de confondre les formules Excel et VB :mad:.

Bonjour Remplacez la formule en C2 par : =SI(ESTERR(INDIRECT("'"&C1&"'!A1"));"N'existe pas";"Existe") Bonne journée

Bonjour à tous La fonction InfosMeteo de Jurassic pork est géniale, je me la suis appropriée même si je ne la comprends qu'à moitié, pas trouvé de doc jusqu'à présent. Question : Est-il possible de dimensionner les infos dans le WebBrowser (height,width) pour améliorer la lisibilité, je ne vois...

bonjour J'ai ça qui fonctionne chez moi : On peut changer de ville dans le bandeau. Private Sub userform_initialize() Dim ctrl Set ctrl = Me.Controls.Add("Shell.Explorer.2") With ctrl .Height = 360 .Width = 600 .Name = "Météo" .Silent = True .Navigate _...

Bonjour ça marche très bien, merci je ne connaissais pas.

Bonjour De toute vraisemblance je suis resté en temps universel, oubli de ma part ?? (rajouter + 2 h en été, 1 h en hiver) Le code n'est pas précis à la minute près, en plus d'un éphéméride à l'autre ça peut varier. J'arrive à refaire fonctionner la fonction Ensoleillement, c'est mieux que ma...

Bonsoir Vous pourriez vous inspirer de cette macro appelée par un bouton pour le calcul de la durée d'ensoleillement par défaut c'est la Longitude et la Latitude de Paris dans la fonction LeverCoucherSoleil, vous pouvez paramétrer. Bonne soirée, Sub Test()...

oups, le fichier

Bonjour Avec quelques corrections votre fichier fonctionne Regardez les cellules en jaune, je n'ai pas du me tromper.

Bonjours Vous y étiez, sauf que vous avez omis option explicit en début de module. Ca oblige de bien typer les variables. Voyez les infos en b17 et, b18 pour les lever et coucher du soleil, un nouveau label serait bienvenu. PS : la fonction Ensoleillement ne fonctionne pas sur votre fichier ??

Bonjour, 133 post je suis perdu Voici un fichier que j'ai adapté par rapport à la demande du post#1 Les heures de lever coucher du soleil sont calculées par défaut à Paris, on peut paramétrer. Pour les phase lunaires, je dois pouvoir mettre les heures. Toutes les heures ne sont pas en heures...

Merci mais le code mérite d'être simplifié. Canicule, pas le pied marin…, la terre tourne toujours autour du soleil, alors je prend le temps. (retraite oblige) Ah, j'ai aussi le calcul des saisons.

Bonsoir En réponse au post #80 For i = 1 To ActiveWorkbook.Names.Count If ActiveWorkbook.Names(i).Name = "'" & Worksheets(1).Name & "'" & "!Import_1" Or _ ActiveWorkbook.Names(i).Name = Worksheets(1).Name & "!Import_1" Then...

Bonjour Une autre proposition, avec les marées du jour. PS : je suis entrain de revoir les phases lunaire, bien que le code fonctionne.