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

saggigo

XLDnaute Occasionnel
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
 

Fichiers joints

Roblochon

XLDnaute Accro
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
 

saggigo

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

XLDnaute Accro
La macro corrigée... MAIS sais tu vraiment ce que tu veux faire?
VB:
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

XLDnaute Occasionnel
La macro corrigée... MAIS sais tu vraiment ce que tu veux faire?
VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas