Bonjour à tous,
Une petite question de ma part:
Ma macro copie des noms dans un tableau en fonction de si la personne à un
"ü" dans une des colonnes. Il se peut qu'une personne ait plusieurs "ü" ou
encore que plusieurs personnes aient le même "ü", ce dernier étant une
aptitude.
Ce que ma macro fait actuellement c'est qu'elle prend le nom d'une personne
qui a un "ü" le colle 5 fois. Donc s'il n'y a qu'une personne qui a un
"ü", son nom sera collé 5 fois alors que j'aimerais qu'il ne soit collé
qu'une fois. Aussi, si plusieurs personnes ont un "ü", c'est à chaque fois le
dernier qui est collé 5 fois au lieu d'avoir, par exemple, 5 noms différents.
Est-ce que quelqu'un pourrait me donner un petit coup de main svp?
Vous trouverez le fichier ci-joint. Je pense que mon programme est un peu du bricolage, certes, mais la partie qui nous intéresse est la suivante:
Merci d'avance
A+
YeTi
Une petite question de ma part:
Ma macro copie des noms dans un tableau en fonction de si la personne à un
"ü" dans une des colonnes. Il se peut qu'une personne ait plusieurs "ü" ou
encore que plusieurs personnes aient le même "ü", ce dernier étant une
aptitude.
Ce que ma macro fait actuellement c'est qu'elle prend le nom d'une personne
qui a un "ü" le colle 5 fois. Donc s'il n'y a qu'une personne qui a un
"ü", son nom sera collé 5 fois alors que j'aimerais qu'il ne soit collé
qu'une fois. Aussi, si plusieurs personnes ont un "ü", c'est à chaque fois le
dernier qui est collé 5 fois au lieu d'avoir, par exemple, 5 noms différents.
Est-ce que quelqu'un pourrait me donner un petit coup de main svp?
Vous trouverez le fichier ci-joint. Je pense que mon programme est un peu du bricolage, certes, mais la partie qui nous intéresse est la suivante:
Code:
'On copie les joueurs ayant leur poste naturel
For j = 2 To 50 'joueurs
For p = 3 To 12 'positions
For cj = 15 To 19 'coller joueurs
If Cells(j, p) = "ü" And Cells(p, cj) = "" Then
Cells(j, 1).Copy
Cells(p, cj).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End If
Next cj
Next p
Next jMerci d'avance
A+
YeTi