Discussion :

[rob-42]

Bonjour,
Pour la réalisation d'un cahier de recette destiné à mes élèves, j'ai un bouton sur une feuille excel leurs permettant d'insérer un model de recette vide avec titre, nombre d'ingrédient, calcul du poids etc...
Pour faciliter la saisie des ingrédients je formate la cellule en liste avec la validation des données.
Ça fonctionne très bien sur la cellule désignée dans mon code ("A1" dans l'exemple)
L'adresse des cellules d'ingrédient est toujours dans la première colonne mais les lignes augmentent avec le nombre d'ingrédient demandé.
Les cellules autres que "A1" ont la liste mais pas le tri ni la recherche avec la première lettre du mot.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
' declare un objet range ingredient
    Dim CelluleIngredient As Range
    Set CelluleIngredient = Range("A" & ligne & ":A" & ligne + (nbr_ing - 1))
    With CelluleIngredient.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=SI(A1<>"""";DECALER(FONCTION;EQUIV(A1&""*"";FONCTION;0)-1;;NB.SI(FONCTION;A1&""*"");1);FONCTION)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With

Comment je peux faire pour concaténer "CelluleIngredient" dans la formule "=Si...."
J'ai déjà essayé avec les guillemets, &, mais rien ne fonctionne, c'est pour ca que je fais un appel à l'aide et vous remercie d'avance de votre attention.
Robert

[78chris]

Bonjour

Depuis la version 2003 et surtout 2007 on utilise des tableaux structurés tant comme source de listes de validations (cela évite la maintenance, en dehors du tri qui peut être réalisé manuellement quand ou saisit un nouvel item ou par VBA si l'ajout est géré par VBA) que pour faire des tableaux.

Les formats (dont validation) et formules s'y recopient automatiquement sur toute nouvelle ligne insérée...

Je pense donc que tu devrais t'y pencher https://fauconnier.developpez.com/tu...ux-structures/

[rob-42]

Bonsoir 78chris,
Comme tu me l'as conseillé, j'ai parcouru le tutoriel sur les tableaux structurés.
Je comprends bien l’intérêt du tableau et c'est un moyen que j'utiliserais maintenant.
j 'ai de nouveau essayé de transformer une cellule en combo box et ça fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""Tableau1[Colonne1]"")"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With

Le problème est que je n'ai pas la formule pour afficher dans le combo box les mots avec les premières lettres tapées.
Celle que j'avais depuis un tuto n'est pas applicable, la fonction decaler par exemple n'as plus d’intérêt.
Robert

[78chris]

RE

Ton code fait appel à FONCTION dont on ignore où il c'est défini donc difficile de visualiser ce que tu fait

Tu parles de validation et de combo box... As-tu mis les 2 ?

Un tableau se nomme (on ne laisse pas le nom automatique Tableau1) et en principe on a des en-têtes signifiants pas Colonne 1 etc

Jiins éventuellement un exemple représentatif de ton cas...

[rob-42]

Ton code fait appel à FONCTION dont on ignore où il c'est défini donc difficile de visualiser ce que tu fait

oui bien sur comme je l'ai dit dans mon message précédent c'est copié d'un tuto...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FONCTION=DECALER(depart;0;0;NBVAL(colonne);1)

Tu parles de validation et de combo box... As-tu mis les 2 ?

Non juste validation, j'ai nommé par défaut combo box à cause de l'aspect de la cellule.

Un tableau se nomme (on ne laisse pas le nom automatique Tableau1) et en principe on a des en-têtes signifiants pas Colonne 1 etc

Oui ca pas de problème j'ai lu les conseil du tuto c'était juste pour l'exemple

Jiins éventuellement un exemple représentatif de ton cas...

?

Merci

[78chris]

RE

Si j'ai bien compris ton besoin, voici un exemple à comprendre et coder ensuite