Microsoft 365 Relation entre onglets

[alkacefa17]

Bonjour,
Toujours en recherche d'amelioration, je voudrais savoir quand j'instruits une mauvaise ou nouvelle sous catégorie jai ke msg ci-dessous
DAns le cas ou c'est une erreur je corrige, mais si c'est une nouvelle sous categorie je peux valider par " voulez-vous continuer. et je valide par oui".
Ce que je voudrais essayer de faire c'est quand j'ai ce message et que je veux valider qu'
il me renvoie sur l'onglet Type Cateco pour que je puisse mettre à jour la noouvelle sous catégorie.

 

[Dan]

Bonjour et bienvenue sur ce forum,

Votre Userform ne contient pas de macros
Est-ce votre bon fichier que celui là ?

Par rapport à votre demande, pour faire simple et s'éviter des complications de code.
Pourquoi n'ajoutez-vous pas un petit bouton juste à coté de la combobox, qui vous permet d'accéder à la feuille simplement si vous ne trouvez pas la sous catégorie ?

Crdlt

 

[alkacefa17]

Bonjour et bienvenue sur ce forum,

Votre Userform ne contient pas de macros
Est-ce votre bon fichier que celui là ?

Par rapport à votre demande, pour faire simple et s'éviter des complications de code.
Pourquoi n'ajoutez-vous pas un petit bouton juste à coté de la combobox, qui vous permet d'accéder à la feuille simplement si vous ne trouvez pas la sous catégorie ?

Crdlt

ok et merci, je vais tester avec la combobox

 

[Dan]

Ok. Dans votre userform, vu que je ne vois pas de code voici ce que vous pourriez déjà faire
1. Dans la feuille TypeCateco, supprimez les cellules vides entre les lignes 2 et 3. exemple en colonne F, Auchan doit se trouver en F2 et pas F4
2. Placez les deux codes dans l'USF pour charger la combobox2 et la combobox3

Private Sub ComboBox2_Change()
Dim col As Byte
Dim dlg As Integer

With Sheets("TypeCateco")
    col = .Range("Categorie").Find(ComboBox2.Value, LookIn:=xlValues, lookat:=xlWhole).Column
    dlg = .Cells(.Rows.Count, col).End(xlUp).Row
    ComboBox3.List = .Range(.Cells(2, col), .Cells(dlg, col)).Value
End With
End Sub

Private Sub UserForm_Initialize()
With Sheets("TypeCateco")
    ComboBox1.List = .Range("A2:A10").Value
    ComboBox2.List = Application.Transpose(.Range("Categorie").Value)
End With
End Sub

4. Dans le gestionnaire de noms, modifiez la formule Categorie en rajoutant un --> -1 juste entre les deux dernières parenthèses

Edit : pour la combobox1, supprimez la valeur que vous avez mise dans la propriété ROWSOURCE. Evitez toujours cette instruction qui peut parfois provoquer des soucis. Utilisez toujours LIST ou ADDITEM.

 

[fanfan38]

Bonjour
J'ai fait pas mal de modif
A l'époque des tableaux structurés et de leurs avantages...
Ci joint ma solution

A+ François

 

[alkacefa17]

Bonjour
J'ai fait pas mal de modif
A l'époque des tableaux structurés et de leurs avantages...
Ci joint ma solution

A+ François

Bonjour,
On trouve les "Catégorie" et "sous Catégorie" dans l'onglet "TypeCateco

Le pointage je le fais au fur et à mesure que les opérations ariivent sur mon compte bancaire

J'avais créé ce formulaire mais je ne m'en étais pas servi (la saisie directement sur l'onglet "Compte" me semblait plus rapide.
Par contre j'ai ce problème d'ajout que tu règle avec ta solution

Sinon l'ajout des "sous catégorie" marche bien .

 

[fanfan38]

Tu es obligé de passé par une macro (vba) pour ton problème de sous catégorie...
Souhaites tu continuer à faire tes saisies directement sur l'onglet Compte

A+ François

 

[alkacefa17]

Tu es obligé de passé par une macro (vba) pour ton problème de sous catégorie...
Souhaites tu continuer à faire tes saisies directement sur l'onglet Compte

A+ François

Je pensais bien qu il fallait passer par une macro mais j aurais préféré continuer à saisir directement de l onglet compte qui est plus simple et rapide

 

[fanfan38]

Bonjour
Ma solution

A+ François

 

[alkacefa17]

Je pensais bien qu il fallait passer par une macro mais j aurais préféré continuer à saisir directement de l onglet compte qui est plus simple et rapi

Bonjour
Ma solution

A+ François

Bonjour
Merci de t occuper de mon cas, donc l'ajout de sous categorie marche comme je le voulais.
Par contre quand je valide l'operation le userform ne se vide pas ce qui est génant quand on a plusieurs operations à enregistrer
Alain

 

[fanfan38]

Bonjour
La dernière version que j'ai mis ne passe pas par l'userform....
Tu saisie la sous catégorie si elle est pas dans la liste l'appli propose de l'ajouter

A+ François

 

[alkacefa17]

Bonjour
La dernière version que j'ai mis ne passe pas par l'userform....
Tu saisie la sous catégorie si elle est pas dans la liste l'appli propose de l'ajouter

A+ François

A oui c'est très bien, par contre il ne me demande pas si je veux ou pas l'ajouter (je peux avoir fait une erreur de frappe)
Je vais maintenant transferer et l'adapter àl'original et tester et te faire suivre mes impressions.
Encore merci ,
Alain

 

[fanfan38]

Si il le demande...
A+ François

 

[Dan]

Bonjour,

Vu que vous suivez les solutions proposées par Fanfan, il est inutile que j'interfère en continuant sur ce que je vous avais proposé en tout début de fil.

Si besoin je reste dispo

Crdlt

 

[alkacefa17]

Bonjour,

Vu que vous suivez les solutions proposées par Fanfan, il est inutile que j'interfère en continuant sur ce que je vous avais proposé en tout début de fil.

Si besoin je reste dispo

Crdlt

Ok et merci d'avoir pris du temps pour moi
Alain