XL 2021 Potagers

[Constantin]

Nos derniers échanges se sont mal terminés (ce n'est pas de votre faute).
Pour autant, bien que n'ayant pas tout compris dans la discussion "Savez-vous planter les choux", je tiens à remercier JM27 et Patrick Toulon.
Je vais essayer de vous envoyer en PJ ce que j'ai fait grâce à votre concours.
Je ne le dirai jamais assez, l’utilitaire de JM27 est simplement génial...
Les images, si elles passent, concernent surtout les fleurs. N'oubliez pas la recommandation de JM27: les photos et non le répertoire (Potager bis) doivent se situer dans le même répertoire.
De mon côté j'enrichis ma photothèque. Je vous joins ces quelques données...
Bien cordialement,

 

[cathodique]

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

Bonjour Patrick,

Je suis d'accord avec toi, un tableau structuré aurait facilité l'écriture du code.

Pour info, le fichier de départ est dans l'autre discussion (voici le lien: savez-vous-planter-les-choux

Bonne journée.

 

[JM27]

bonjour
1/ sélectionner une famille et regarder le coté droit de l'userform.
2/sélectionner une famille , puis un légumes puis actionner le bouton à retour à que planter !!!
3/ ce fichier date d'une quinzaine d'années : pas de tableaux structurés à cette époque. (seulement quelques modifs à la marge)

Pour Patrick la partie manquante( qu'il a supprimé) dans l'initialyse (un par page)( avant de juger connaitre les tenants et les aboutissants)
il suffit de taper: =Auteur dans une cellule

 Set MonLabel = MultiPage1.Pages(0).Frame7.Controls.Add("Forms.Label.1", , True)
    With MonLabel
        .Caption = Left(Right(ActiveWorkbook.Names("Auteur"), Len(ActiveWorkbook.Names("Auteur")) - 2), Len(Right(ActiveWorkbook.Names("Auteur"), Len(ActiveWorkbook.Names("Auteur")) - 2)) - 1)
        .Top = 460
        .Left = 200
        .Height = 8.4
        .Width = 85
        .Font.Bold = True
        .Font.Italic = True
        .Font.Size = 6
        .BackColor = &HC0C0FF
         MemNom = True
    End With

 

[Constantin]

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

Bonjour,
Merci de ta vidéo que je regardé et écouté avec attention. Tout d'abord, ce n'est pas moi qui suis à l'origine de cet outil, c'est JM27. J'aurai été incapable de rédiger un tel code. A l'origine, il n'y avait pas de "nature des sols" ni de "engrais et traitements..." ni d' "Arrosage". Ce sont pourtant des paramètres essentiels à la conduite d'un potager. Les renseignements affichés apparaissaient dans des cellules trop petites. J'ai donc ajouté les points mentionnés ci-dessus et j'ai redimensionné les labels de façon à pouvoir afficher correctement les données. Le nom de l'auteur (Jean-Michel H) apparaissait bien sur toutes les pages cela ne me gênait que dans la feuille "date de culture" où il s'affichait, après mes modifications, à un mauvais endroit. Maintenant que je comprends mieux le code, je pense être en mesure de le restaurer pour qu'il s'affiche correctement sur les 3 feuilles.
Quant aux "tableaux structurés" que tu as évoqué à plusieurs moments durant ton intéressant commentaire, je ne sais même pas ce que c'est... (je vais chercher sur le net si je trouve quelque chose)
Merci encore, j'ai du pain sur la planche...

 

[Constantin]

Bonjour à tous,
Finalement je suis arrivé à rendre à César ce qui appartient à César.
Pour moi, cette discussion est close.
En PJ, mon modeste travail.
Bien cordialement,
Pierre

 

[patricktoulon]

re j'ai pris 5 minutes de plus
et j'explique le truc
@cathodique j'attire ton attention sur le contexte

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

 

[Constantin]

re j'ai pris 5 minutes de plus
et j'explique le truc
@cathodique j'attire ton attention sur le contexte

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

Bonjour Patrick,
Ci-joint la dernière mouture
Bonne journée

 

[patricktoulon]

re:
et bien il te reste plus qu'a adapter le resizer sur ta dernière mouture
à afin d'avoir un interface compatible toute dimensions d’écran

 

[Constantin]

Bonjour (re...)
En effet, ce serait bien et j'ai bien sûr suivi tes échanges avec Cathodique et Nullosse... En toute franchise, là je bloque. (niveau raz les pâquerettes)
Bonne journée