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