Microsoft 365 Fleurissement.

[blancolie]

Bonjour le forum,

A travers ce fichier j'aimerais retranscrire ce que je rentre dans l'onglet Zone de saisie dans les autres onglets fanfelle, chombart , ververt ou plandanjou. Bien sur, les plantes fournis par fanfelle iront ds l onglet fanfelle etc etc.

Par Formule je sais faire mais le soucis si je modifie un élément ds l onglet Zone de saisie, cela modifie les éléments ds les autres onglets également.

Ce que je cherche mais par formule, je pense pas que cela soit réalisable mais par macro si je pense mais je ne connais rien a cela.

Donc voila j'aimerais que quand j 'ai tout rentrer ds zone de saisie cela puisse rester permanent dans les autres onglets et que je puisse effacer les données de l'onglet Zone de Saisie.

Est il possible dans l'onglet saisie de demander a excel de passer à ligne tout en recopiant les formules quand on valide notre saisie.

dans l'onglet zone de saisie, il y a juste le code de la plante à rentrer et toutes les infos de la plante apparaissent.

merci pour votre aide.

 

[mapomme]

Bonjour @blancolie ,

Je vois un problème sur votre fichier : Le codage n'est pas fixe .

Il suffit de trier, supprimer ou ajouter des lignes pour que le codage soit modifié.

Une nomenclature doit être fixe. Et souvent pas d'autres moyens que du VBA ou une gestion des nomenclatures à la mimine (pénible).

Pour exemple, le fichier en retour avec une colonne Insérée en B. Cette colonne (Codage2) est la colonne A (Codage) copiée en valeur (on a donc éliminé les formules).

On peut trier le fichier selon différentes colonnes (Vivace, contenance, fournisseur, etc), on verra apparaitre des cellules en rouge indiquant que le codage a changé entre le codage actuel par formule (colonne A) et le codage initial par formule (colonne B).

En général, ça aboutit rapidement a un fichier faux et inexploitable si d'autres formules font référence à la colonne codage par formule.

Enfin c'est mon avis.

De toute manière, on n'efface jamais, selon moi, les données de base ou saisies. Pour moi, c'est LA base de données. Le reste n'est que du travail (requêtes) sur la base de données. Il faut donc conserver précieusement la base de données.

nota : je ne vois pas d'onglet "Zone de saisie" dans votre fichier.

 

[blancolie]

bonjour mapomme, effectivement je me suis trompé de fichier. le voici. oui mon codage n'est pas fixe. en fait c'est vos qui le creer vous même le codage ?

 

[mapomme]

Re,

Juste une question : A quoi sert le codage ?

Je ne vois pas trop dans votre cas.

 

[blancolie]

Le codage est lié à une plante et grâce à ce codage, cela me permet de m'afficher ds l onglet Zone de saisie, la plante , le fournisseur etc etc grâce à l'association d'index et equiv. Cela me permet de gagner du temps.

je ne sais pas si je peux rassembler toutes les formules (qui se trouvent ds plantes/fournisseurs/contenance etc etc ) pour en faire une seule mais le problème c'est la disposition. je ne sais pas si mon explication a été clair.

 

[mapomme]

Re,

Je vais essayer de proposer quelque chose. Mais sans doute que demain

 

[blancolie]

pas de soucis, je te remercie

 

[eugene92]

Bonjour,
Votre problème est-il résolu ?
Je vous avais proposé une solution qui ne vous convenait pas car il fallait ajouter des colonnes. En quoi cet ajout de colonnes est-il un inconvénient ?
Cordialement.

 

[blancolie]

Bonjour Eugène92,

disons, j'ai hésité avec votre solution car votre codage était tres intéressant et c'est ce que je recherche. Par contre, comme c'est un fichier qui servira pour le travail, les colonnes pour moi étaient trop nombreuses car en terme de rapidité, c'était emmerdant car faut passer de colonne à colonne. j'aurais dit qu'en terme d'esthétique, a mon goût cela me déplaisait un peu mais je sais qu'on peut y remédier. c'est la rapidité qui me gênait. dommage que vous avez supprimé vos posts. votre codage m'intéresse toujours mais pas avec autant de colonne. s'était bien vu de prendre des lettres du genre , de l'espèce et la première lettre du fournisseur.

Cordialement

 

[blancolie]

Bonjour et merci Eugène, pour l’écriture des plantes, il existe une nomenclature spécifique qui doit être respectée, donc au niveau du cultivar, il y a des guillemets à mettre car dans cette nomenclature, comment différencier le genre, l espèce le cultivar etc

 

[eugene92]

Ok, faites à votre idée...

 

[job75]

Bonjour blancolie, mapomme, eugene92,

Le codage par formule est une fausse bonne idée, il faut le supprimer.

Voyez plutôt le fichier joint et ces macros dans le code de la feuille "Recherche et choix" :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim critere$, tablo, resu(), i&, n&
Application.EnableEvents = False 'désactive les évènements
If [B2] = "" Then [C2] = "": GoTo 1
If Not Intersect(Target, [B2]) Is Nothing Then [C2] = ""
critere = LCase(Left([B2], 1) & Chr(1) & "*" & CStr([C2])) & "*"
tablo = Sheets("Données Techniques").[A2].CurrentRegion.Resize(, 3) 'matrice, plus rapide
ReDim resu(1 To UBound(tablo), 1 To 2)
For i = 2 To UBound(tablo)
    If LCase(tablo(i, 3) & Chr(1) & tablo(i, 1)) Like critere Then
        n = n + 1
        resu(n, 1) = tablo(i, 3)
        resu(n, 2) = tablo(i, 1)
    End If
Next
'---restitution---
1 With [B4] '1ère cellule de restitution
     If n Then .Resize(n, 2) = resu
     .Offset(n).Resize(Rows.Count - n - .Row + 1, 2).ClearContents 'RAZ en dessous
End With
Columns(3).AutoFit 'ajustement largeur
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 3 And Cells(Target.Row, 2) <> "" Then
    Cancel = True
    [C2] = Cells(Target.Row, 3)
ElseIf Target.Row = 2 Then
    If [B2] = "" Or Application.CountIf(Range("C4:C" & Rows.Count), [C2]) = 0 Or [D2] = "" Then Exit Sub
    Cancel = True
    With Sheets(CStr([B2]))
        .Cells(.Rows.Count, 1).End(xlUp)(2).Resize(, 2) = [C2:D2].Value
        .Columns(1).AutoFit
        .Activate
    End With
End If
End Sub

A+

 

[Modeste geedee]

bonjour mapomme, effectivement je me suis trompé de fichier. le voici. oui mon codage n'est pas fixe. en fait c'est vos qui le creer vous même le codage ?

voir :

https://www.excel-downloads.com/attachments/blancolie-xlsm.1065306/

 

[blancolie]

c'est pas mal comme fichier. par contre on passe un temps fou de faire un par un. par contre i me faut la présentation comme montré. cela va être envoyé aux fournisseurs.

 

[blancolie]

Bonjour, le codage se crée automatiquement par rapport au plantes mais il faut lui rajouter devant la lettre F=fanfelle(fournisseur de fleurs annuelle/bisannuelle) ou C=chombart( vivaces) V=ververt (bulbes) ; P=plandanjou (arbustes/arbres/vivaces )