Microsoft 365 j'ai une macro mais elle plante des que je modifie le fichier

[saggigo]

Bonjour à tous,
J'ai une macros qui a été développée par une personne d'ici "Sousou" que je remercie vraiment, mais cette macros est assez rigide, des que je modifie une donnée ça passe en débogage. quelqu'un pourrait-il m'aider en rendant mon fichier plus flexible?

Changer les intitulés des cellules, du tableau, ajouter des lignes et des colonnes, ajouter une autre liste déroulante...etc.

Je vous remercie a tous

 

[Hasco]

Bonjour,

1 - Demander des macros, sans apprendre vba c'est se rendre dépendant du moindre changement.
2 - LA MACRO universelle, celle qui comprendrait tout ce que vous voulez faire et avec n'importe quoi, à chaque instant n'existe pas.

A vous de décider quelle structure définitive donner à vos tableaux et adapter (au moins tenter d'apprendre à adapter) ce qu'on vous a donné.

Bon dimanche de réflexion

 

[fanfan38]

Bonjour ci joint ma solution
A+ François

 

[saggigo]

Bonjour ci joint ma solution
A+ François

Merci beaucoup François pour ta réponse
Y a toujours un bug lorsque je modifie les dates (colonne A) en autres chose (comme jours, ou nom ou autres). je reçois erreur exécution 13, je pense que passer du format date a autre cause un problème.

 

[saggigo]

Bonjour,

1 - Demander des macros, sans apprendre vba c'est se rendre dépendant du moindre changement.
2 - LA MACRO universelle, celle qui comprendrait tout ce que vous voulez faire et avec n'importe quoi, à chaque instant n'existe pas.

A vous de décider quelle structure définitive donner à vos tableaux et adapter (au moins tenter d'apprendre à adapter) ce qu'on vous a donné.

Bon dimanche de réflexion

Bonjour Roblochon,
Je suis tout a fait d'accord, le fait est que je n'utilise pas les macro souvent, genre j'ai besoin d'une macro chaque 2 ou 3 ans. et je modifie et arrange si je peux. le soucis est que je n'ai pas compris ce qui se passe sur cette macro, j'ai essayé de suivre mais je n'ai pas compris.

 

[fanfan38]

La macro corrigée... MAIS sais tu vraiment ce que tu veux faire?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
cherch = Range("A" & Target.Row)
l = Sheets("Ressources 2").Columns(1).Find(cherch, lookat:=xlWhole, LookIn:=xlValues).Row
c = Sheets("Ressources 2").Rows(1).Find(Cells(1, Target.Column)).Column
Sheets("Ressources 2").Cells(l, c) = Target.Value
End Sub

A+ François

 

[saggigo]

La macro corrigée... MAIS sais tu vraiment ce que tu veux faire?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
cherch = Range("A" & Target.Row)
l = Sheets("Ressources 2").Columns(1).Find(cherch, lookat:=xlWhole, LookIn:=xlValues).Row
c = Sheets("Ressources 2").Rows(1).Find(Cells(1, Target.Column)).Column
Sheets("Ressources 2").Cells(l, c) = Target.Value
End Sub

A+ François

Merci beaucoup.... c’est genial, et bien sur que je sais ce que je veux,... c’est ma campagne qui Me demande