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
 

Pièces jointes

  • Saggigo.xlsm
    18.9 KB · Affichages: 10

Hasco

XLDnaute Barbatruc
Repose en paix
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,

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 Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla