Bonjour à tous, et merci d'avance pour votre aide...
Je suis en galere avec un fichier excel.
Le fichier contient une colonne avec des descriptions articles sous la forme :
XXXXXX-XXXX-XXX-XXXXXXXX - XXXXXXXXXXXXXXXXXXX. Ou ce qui est en gras est en italien, ce qui est en standard est en anglais.
Je cherche une solution pour :
Extraire le non gras (l'anglais) dans une nouvelle colonne
ou
Supprimer tout les caractères en gras de cette colonne.
J'ai trouvé un bout de code qui fonctionne :
Function extraitGras(c)
Application.Volatile
For i = 1 To Len(c)
If c.Characters(Start:=i, Length:=1).Font.Bold = True Then
temp = temp & Mid(c, i, 1)
End If
Next i
extraitGras = temp
End Function
Function extraitNonGras(c)
Application.Volatile
For i = 1 To Len(c)
If c.Characters(Start:=i, Length:=1).Font.Bold = False Then
temp = temp & Mid(c, i, 1)
End If
Next i
extraitNonGras = temp
End Function
Mais hélas, quand j'essaye de tirer sur la ligne pour la copier a la ligne suivante et aux lignes suivantes, la fonction me recopie le texte de la premiere cellule alors que pourtant, il implémente bien la formule.
Merci de votre aide a venir. je suis vraiment en galère et vraiment débutant
.. merci de la simplicité de vos réponses et de la pédagogie dont vous ferez preuve, j'en suis sur.
Dirck.