Re : Macro qui va lire dans les commentaires
Bonjour à tous, voila j'ai avancé la macro de Hervé et j'obtiens ceci :
Sub Macro_Spécialités()
Dim c As Range, cellule As Range
Dim i As Byte
Dim tablosplit
'pour chaque cellule dans la plage ("K20:K28,N20:N28,K30:K34,N30:N34,K36:K41,N36:N41,K43:K50,N43:N50,K52:K57,N52:N57")
For Each c In Range("K20:K28,N20:N28,K30:K34,N30:N34,K36:K41,N36:N41,K43:K50,N43:N50,K52:K57,N52:N57")
'si la cellule contient un commentaire
If Not c.Comment Is Nothing Then
'déconcatene le commentaire dans la variable tablosplit
tablosplit = Split(c.Comment.Text, "/")
'pour chaque élément de la variable tablosplit
For i = 0 To UBound(tablosplit)
'si l'élément n'est pas vide
If Trim(tablosplit(i)) <> "" Then
'suivant la valeur de l'élément
Select Case tablosplit(i)
'affecte à la valeur cellule sa cellule de destination
Case "SMO": Set cellule = Range("b50")
Case "canyon": Set cellule = Range("e50")
Case "cmic": Set cellule = Range("b59")
Case "cmir": Set cellule = Range("b44")
Case "speoleo": Set cellule = Range("e41")
Case "EPS": Set cellule = Range("e59")
Case "IMP": Set cellule = Range("h48")
Case "EPA": Set cellule = Range("h39")
End Select
Exit For 'sort de la boucle
End If
Next i
cellule = c 'copie la valeur de c dans la cellule de destination
End If
Next c
End Sub
Le problème est que lorsque j'exécute la macro, il me copie 1 seul nom par spécialités et juste sur les spécialités : secours en montagne, CMIC, canyon et EPS.
Pour régler le problème ou il me mets qu'un seul nom sur les spécialités, est-ce qu'il faut ajouter une fonction range ou quelque chose du même genre ? et pour les spécialités ou il ne me copie pas les noms est-ce que sa vient du fait que les noms comporte plusieurs spécialités ? Car il faut que tous les noms se mettent dans toutes leurs spécialités (même si une personne est à 4 endroit différent !). Merci de vos réponses