Problème de doublons dans une macro d'insertion

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

j'ai un classeur avec une macro d'insertion qui prend les infos de la première feuille "formulaire" pour les mettre dans l'autre "programme mensuel" en C25. Le problème c'est que ça fonctionne pour un jour férié mais dès que yen a 2 ou plusieurs il me rajoute le premier jour à chaque fois, c'est à cause du Range("A" & cel.Row) que j'ajoute mais il est obligatoire pour ajouter les autres jours. Pour résumer, j'ai le premier jour qui se double mais pas les suivants, donc je voudrais savoir si ya un moyen d'enlever ce doublon (genre une fonction de supression des valeurs double en vb) ou de pas prendre en compte deux fois la première valeur.

Je vous joint le fichier (faites pas attention aux macros des autres feuilles et le petit activatesheet après c'est pour l'autre macro avec le userform).

Merci par avance pour réponses.

Le code vb :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_Change(ByVal Target As Range) derligne = Range("J65536").End(xlUp).Row Sheet3.Range("C25") = "" For Each cel In Range("C10:C" & derligne) If Left(cel.Value, 1) = "J" Then With Sheet3 If .Range("C25") = "" Then .Range("C25") = Range("A" & cel.Row) If Range("K2") > 1 Then .Range("C25") = .Range("C25") & " / " & Range("A" & cel.Row) End With End If Next End Sub

03/12/2009, 17h03
ucfoutu

Bonjour,

Je n'ai pas ouvert ton fichier (je n'ouvre jamais un xls non écrit par moi-même).

Je ne suis par ailleurs (et du même coup) pas certain d'avoir compris tes explications, mais il semblerait (on dirait que oui) que tu doives modifier ta ligne disant :

Code:

If Range("K2") > 1 Then .Range("C25") = .Range("C25") & " / " & Range("A" & cel.Row)

par

Code:

If Range("K2") > 1 and .Range("C25") <> "" Then .Range("C25") = .Range("C25") & " / " & Range("A" & cel.Row)

Mais une autre fois : je ne suis pas certain d'avoir bien deviné....:?
03/12/2009, 17h47
guilo49

Et non !

Salut ucfoutu, merci pour ta proposition mais hélas le problème persiste, ça ne fonctionne toujours pas, le doublon est toujours là grrrrrr !!!

Eureka !

Bon j'ai trouvé, le code fonctionnel est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
derligne = Range("J65536").End(xlUp).Row
Sheet3.Range("C25") = ""
For Each cel In Range("C10:C" & derligne)
  If Left(cel.Value, 1) = "J" Then
    With Sheet3
     .Range("C25") = .Range("C25") & " / " & Range("A" & cel.Row)
    End With
  End If
Next
End Sub

Il fallait simplement supprimer ce qui était inutile et rappellait une seconde fois la fonction.