Problême lié à " For each"

KyFranRD · 1 Septembre 2012

bonjour

Je suis assez, pas mal, beaucoup novice en langage VBA. Je me suis donc fais aider pour réaliser ce code qui fonctionne trés bien. Il me permet sur une Feuille1 de regrouper sans doublons une série d'information " commentaires" et "UO concernés" m’étant trés utiles. Voir pièce jointe.

Par contre quelqu'un pourrait il me dire d'où vient mon erreur. Je ne comprends pas.
Pourquoi lorsque je clique sur "regroupement" feuille1, cela agit sur feuille2. Et vis versa. Je veux que lorsque j'appuie sue "Regroupement" feuille1, cela n'agit que sur feuille1.

Merci à l'avance

Compte Supprimé 979 · 1 Septembre 2012

Re : Problême lié à " For each"

Salut KyFrandRD

Normal, a chaque fois tes fonctions sont recalculées,

Et comme tu ne définit pas l'objet conteneur sur lequel appliquer le calcul,
celui-ci est effectué sur la feuille active => d'où bug

Voici le code à utiliser 😉

Code:

Function conca(titre As String)
  Dim Sht As Worksheet
  ' Exécuter la fonction à chaque calcul
  Application.Volatile
  ' Récupérer le nom de la feuille appelant la fonction
  Set Sht = Application.Caller.Parent
  '
  For Each cel In Sht.Range("b2:b" & Sht.Range("b5000").End(xlUp).Row)
    If cel = titre And InStr(conca, Sht.Cells(cel.Row, "I")) = 0 Then
      conca = conca & Sht.Cells(cel.Row, "I") & " ; "
    End If
  Next
  conca = Left(conca, Len(conca) - 2)
End Function

A+

KyFranRD · 1 Septembre 2012

Re : Problême lié à " For each"

Merci BrunoM45.....😛

Problême lié à " For each"

KyFranRD

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

KyFranRD

XLDnaute Occasionnel

Discussions similaires

Problême lié à " For each"

KyFranRD

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

KyFranRD

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency