J'ai du mal ....

[crestor]

Bonjour à vous tous
j'ai encore besoin de votre aide ce matin .
J'ai un réel problème avec des listes que je n'arrive pas à coordonner
j'aimerais dans la colonne I de la feuille "Bob Banque" faire correspondre les sous-catégories appartenant à la colonne H (se trouvant dans la feuille "Listes")
je joins le fichier exemple pour y voir plus clair .
Merci d'avance pour m'assiter car je suis vraiment perdu !
Crestor

 

[wilfried_42]

Re : J'ai du mal ....

Bonjour crestor

J'ai remanié un peu tes listes, ton fichier en retour

 

[crestor]

Re : J'ai du mal ....

Bonjour crestor

J'ai remanié un peu tes listes, ton fichier en retour

C'est vraiment magique Wilfried_42 , ca fonctionne à merveille même
si je ne comprends pas comment tu a fait cette manipulation (sous_categ)
je t'en remercies sincèrement .
Crestor

 

[Monique]

Re : J'ai du mal ....

Bonjour,

Un autre système,
possibilité d'avoir soit sorties soit entrées.

 

[crestor]

Re : J'ai du mal ....

Bonjour,

Un autre système,
possibilité d'avoir soit sorties soit entrées.

Un grand merci Monique pour ce travail accompli mais un choix complémentaire m'oblige à ajouter un colonne en plus dans le tableau vous avez bien compris que je suis encore nul part avec excel et je confond tout dans le VBA .
Il y a quelques semaine Dixit m'avait fait une macro pour inserer une ligne apres la dernière Opération effectuée et j'essaye de l'appliquer avec le travail de wilfried_42 mais j'ai dû faire une grosse confusion dans le code car les cellules ne copient plus les formules en entier ce serait très gentil si l'on pouvait me corriger ce code .
Je joins le fichier en question , encore un grand merci

 

[wilfried_42]

Re : J'ai du mal ....

re: crestor

modifie ta macro et met ces quelques lignes à la place

Sub InsertRow()

Application.ScreenUpdating = False ' désactive les mouvements d'écran
numligne = Cells(65536, 5).End(xlUp).Row ' pour déterminer le n° de la dernière ligne
Range("A" & numligne & ":K" & numligne + 1).FillDown
Range("A" & numligne + 1 & "" & numligne + 1).ClearContents
Range("G" & numligne + 1 & ":J" & numligne + 1).ClearContents
Cells(numligne + 1, 1).Select ' sélectionne la cellule colonne A de la nouvelle ligne
Application.ScreenUpdating = True ' active les mouvements d'écran

End Sub

 

[crestor]

Re : J'ai du mal ....

re: crestor

modifie ta macro et met ces quelques lignes à la place

Ce que je viens de faire , quelques nouvelles lignes et hop!!!
C'est bien ce que je voulais wilfried_42
Je suis vraiment content . Encore un très gros MERCI
Crestor