Script à corriger : concaténation de cellules
Bonjour à toutes et à tous,
Je commence à ne plus me comprendre moi-même......
Voilà un bout de code (ci-bas) pour détecter un changement dans une feuille.
Évidemment, rien ne fonctionne. Vous l'aurez bien deviner.
Ce que je tente de faire.....
J'ai une première plage nommée intitulée : ZoneMIN
J'ai une seconde plage nommée (d'un même nombre de ligne) intitulée : ZoneVAL
Et une troisième (d'un même nombre de ligne) intitulée : ZoneGROUPE
En gros, ZoneVAL contient des valeurs sur plus de 20 colonnes contigues.
Au bout de ces 20 colonnes, j'ai ZoneMIN qui détecte, par fonction à l'intérieur de la cellule, la valeur minimum.
Les entêtes de colonnes (sur deux lignes que sont lignes #1 et #2) sont au haut de chaque colonne de ZoneVAL.
J'aimerais que ZoneGROUPE affiche la valeur concaténée (des lignes #1 et #2) de la colonne où se trouve la valeur identique de ZoneVAL à celle de la cellule de ZoneMIN.
Pouvez-vous identifier ce qui ne fonctionne pas dans mon script.
Merci de vos lumières....j'en ai plus que besoin.....
Sub Worksheet_Change(ByVal Target As Range)
Dim D As Range
For Each D In Range("ZoneMIN")
If D.Value = Range("ZoneVAL" & D.Row).Value Then
Range("ZoneGROUPE" & D.Row).Value = Range(Range("ZoneVAL" & D.Row).Column & R1).Value & " - " & Range(Range("ZoneVAL" & D.Row).Column & R2).Value
End If
Next
End Sub
Bonsoir
Une obligation de passer par VBA ?
Sinon par formule (de ce que j'ai compris)
Wow !!!!
Ça c'est "target".
Effectivement, le VBA était inutile dans ce cas.
Merci d'avoir éclairé ma lanterne !
Salutations de Trois-Rivières, Québec, Canada !