Copie incrémentée de macro

[Youri]

Bonjour à tous,

J'ai réalisé un fichier qui permet de créer des liaisons entre départements (d'un pays vers le même pays ou d'un pays vers un autre pays). J'aimerais le joindre à ce post mais il fait 391 ko.
Afin de faciliter la saisie des données, j'ai réalisé la macro ci-dessous (je l'ai mise en quote afin de faciliter la lecture):

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H2").Value <> 0 And Range("I2").Value = 0 And Range("G2").Value = 0 Then
Range("I2").Value = Range("W2").Value
Range("G2").Value = Range("Y2").Value
ElseIf Range("I2").Value <> 0 And Range("H2").Value = 0 And Range("G2").Value = 0 Then
Range("H2").Value = Range("X2").Value
Range("G2").Value = Range("Y2").Value
ElseIf Range("H2").Value <> 0 And Range("I2").Value = 0 And Range("G2").Value <> 0 Then
Range("I2").Value = Range("W2").Value
ElseIf Range("I2").Value <> 0 And Range("H2").Value = 0 And Range("G2").Value <> 0 Then
Range("H2").Value = Range("X2").Value
ElseIf Range("I2").Value <> 0 And Range("H2").Value <> 0 And Range("G2").Value = 0 Then
Range("G2").Value = Range("Y2").Value
End If
If Range("L2").Value <> 0 And Range("M2").Value = 0 And Range("K2").Value = 0 Then
Range("M2").Value = Range("AG2").Value
Range("K2").Value = Range("AI2").Value
ElseIf Range("M2").Value <> 0 And Range("L2").Value = 0 And Range("K2").Value = 0 Then
Range("L2").Value = Range("AH2").Value
Range("K2").Value = Range("AI2").Value
ElseIf Range("L2").Value <> 0 And Range("M2").Value = 0 And Range("K2").Value <> 0 Then
Range("M2").Value = Range("AG2").Value
ElseIf Range("M2").Value <> 0 And Range("L2").Value = 0 And Range("K2").Value <> 0 Then
Range("L2").Value = Range("AH2").Value
ElseIf Range("M2").Value <> 0 And Range("L2").Value <> 0 And Range("K2").Value = 0 Then
Range("K2").Value = Range("AI2").Value
End If
End Sub

Cette macro fonctionne très bien, seulement voilà, elle ne s'applique qu'à ligne 2. Mon fichier contient pour l'instant 50 lignes mais quand je vais commencer à rentrer les données, il va s'agrandir. Par ailleurs, il est possible que je rajoute des données qui ne soient pas relatives aux liaisons en dessous des liaisons (donc dans le même onglet). Je ne souhaite donc pas que la macro s'applique aux colonnes entières. Le mieux ce serait que la macro se copie de manière incrémentée, comme pour les formules (ou qu'elle change pour s'appliquer à 2 lignes).
De plus, j'ai un autre problème relatif à cette macro. J'aurais en fait voulu qu'elle fonctionne d'une manière un peu différente. J'ai donc essayé de la manière suivante, mais ça fait planter Excel (visiblement, la macro s'emballe et n'arrive plus à s'arrêter) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("H2").Value <> Range("H2").Value Then
Range("I2").Value = Range("W2").Value
Range("G2").Value = Range("Y2").Value
ElseIf Target.Range("I2").Value <> Range("I2").Value Then
Range("H2").Value = Range("X2").Value
Range("G2").Value = Range("Y2").Value
End If
If Target.Range("L2").Value <> Range("L2").Value Then
Range("M2").Value = Range("AG2").Value
Range("K2").Value = Range("AI2").Value
ElseIf Target.Range("M2").Value <> Range("M2").Value Then
Range("L2").Value = Range("AH2").Value
Range("K2").Value = Range("AI2").Value
End If
End Sub

Voilà, je vous remercie à l'avance ! 🙂

 

[Pierrot93]

Re : Copie incrémentée de macro

Bonjour Youri

pour ta 2ème question, modifie peut être le code comme ci dessous, mais attention car la procédure évènementielle se déclenche sur toutes modifications même celles effectuées par vba :

If Target.Value <> Range("H2").Value Then

pour le reste, mets peut être ton fichier en pièce jointe, sans données confidentielles, car là comme ca, je ne vois pas trop ou tu veux en venir, mais je pense que l'on devrait trouver une facon de coder un peu plus concise.

bon après midi.

 

[Youri]

Re : Copie incrémentée de macro

Bonjour Pierrot,

Merci beaucoup de t'intéresser à mon problème 🙂.
Comme demandé, tu trouveras ci-joint mon fichier. Il est en deux parties et sous format winrar (j'ai changé l'extension .rar en .zip). Je suis désolé d'avoir eu à faire ça mais le fichier non compressé et sans aucune donnée personnelle fait 390 ko. Du coup, comme je sais pas comment faire pour "splitter" un fichier zip, j'ai recouru à WinRAR.
Ce fichier contient plusieurs onglets masqués, qui sont :
Departement, Departement2, Departement3, Departement4, Departement5 (encore un autre problème - comme je ne savais pas comment faire pour classer les listes de validation, j'ai crée plusieurs onglets pour tout faire fonctionner comme je le voulais), Region, Pays, Références.
De plus, les colonnes "P" à "AI" de l'onglet "Transitionnelle" sont masqués. Ce même onglet contient un bouton (il n'y a pas de texte dessus) qui sert à réinitialiser la liaison - ce qui est nécessaire à la vue du fonctionnement actuel du fichier et c'est d'ailleurs pour cette raison que je souhaite changer la macro car ça permettrait de se passer du bouton.

Voilà, merci à l'avance ! 🙂
Youri

PS : je viens d'essayer la solution pour le code mais ça fonctionne pas 🙁 : ça efface tout simplement la donnée rentrée.

 

[Pierrot93]

Re : Copie incrémentée de macro

Re

aarf, je n'ais pas WinRar ...

 

[Youri]

Re : Copie incrémentée de macro

Re

Moi non plus je n'avais pas winrar mais la version d'essai est disponible sur WinRAR archiver, a powerful tool to process RAR and ZIP files. En attendant, je ne trouve pas le moyen de splitter un fichier zip. Donc si tu as une solution, je suis preneur.

Youri

 

[Youri]

Re : Copie incrémentée de macro

J'ai enfin trouvé un moyen de rendre le fichier disponible. Le fichier est maintenant disponible à l'adresse ci-dessous :
Index of /Perso

Merci à l'avance pour l'aide 🙂,
Youri

 

[Youri]

Re : Copie incrémentée de macro

Bonjour à tous,

Personne pour m'aider ?

A bientôt 🙂,
Youri