Discussion :

[guilo49]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é....

[guilo49]

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

[guilo49]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.