Ci dessous la configuration de ma feuille excel.
J'aimerai pouvoir supprimer tous les chiffres qui sont placés dans la même
cellule que le nom du vin. EX supprimer 1993 juste aprés Lacoste Borie.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
Salut Antony, Par VBA : Sub Supprimer() Dim Plage As Range Dim Cel As Range Dim Valeur As String Valeur = 1993
With Worksheets("Feuil1") Set Plage = .Range(.[A1], .[A65536].End(xlUp)) End With For Each Cel In Plage Cel.Value = Replace(Cel.Value, Valeur, "") Next Cel
Set Cel = Nothing Set Plage = Nothing End Sub
Hervé.
"Antony" a écrit dans le message news:
Ci dessous la configuration de ma feuille excel. J'aimerai pouvoir supprimer tous les chiffres qui sont placés dans la même cellule que le nom du vin. EX supprimer 1993 juste aprés Lacoste Borie.
Salut Antony,
Par VBA :
Sub Supprimer()
Dim Plage As Range
Dim Cel As Range
Dim Valeur As String
Valeur = 1993
With Worksheets("Feuil1")
Set Plage = .Range(.[A1], .[A65536].End(xlUp))
End With
For Each Cel In Plage
Cel.Value = Replace(Cel.Value, Valeur, "")
Next Cel
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"Antony" <Antony@discussions.microsoft.com> a écrit dans le message news:
F2E95D9E-7123-463F-9A7B-FD39AE8CCA74@microsoft.com...
Ci dessous la configuration de ma feuille excel.
J'aimerai pouvoir supprimer tous les chiffres qui sont placés dans la même
cellule que le nom du vin. EX supprimer 1993 juste aprés Lacoste Borie.
Salut Antony, Par VBA : Sub Supprimer() Dim Plage As Range Dim Cel As Range Dim Valeur As String Valeur = 1993
With Worksheets("Feuil1") Set Plage = .Range(.[A1], .[A65536].End(xlUp)) End With For Each Cel In Plage Cel.Value = Replace(Cel.Value, Valeur, "") Next Cel
Set Cel = Nothing Set Plage = Nothing End Sub
Hervé.
"Antony" a écrit dans le message news:
Ci dessous la configuration de ma feuille excel. J'aimerai pouvoir supprimer tous les chiffres qui sont placés dans la même cellule que le nom du vin. EX supprimer 1993 juste aprés Lacoste Borie.
J'ai supposé "Lafite Rothschild 1997" en A3 et 1997 en B3 C3=SI(SUBSTITUE(A3;" "&B3;"")£;A3;SUBSTITUE(A3;" "&B3;""))
Alain CROS
"Antony" a écrit dans le message de news:
Ci dessous la configuration de ma feuille excel. J'aimerai pouvoir supprimer tous les chiffres qui sont placés dans la même cellule que le nom du vin. EX supprimer 1993 juste aprés Lacoste Borie.
J'ai supposé "Lafite Rothschild 1997" en A3 et 1997 en B3
C3=SI(SUBSTITUE(A3;" "&B3;"")£;A3;SUBSTITUE(A3;" "&B3;""))
Alain CROS
"Antony" <Antony@discussions.microsoft.com> a écrit dans le message de news: F2E95D9E-7123-463F-9A7B-FD39AE8CCA74@microsoft.com...
Ci dessous la configuration de ma feuille excel.
J'aimerai pouvoir supprimer tous les chiffres qui sont placés dans la même
cellule que le nom du vin. EX supprimer 1993 juste aprés Lacoste Borie.
J'ai supposé "Lafite Rothschild 1997" en A3 et 1997 en B3 C3=SI(SUBSTITUE(A3;" "&B3;"")£;A3;SUBSTITUE(A3;" "&B3;""))
Alain CROS
"Antony" a écrit dans le message de news:
Ci dessous la configuration de ma feuille excel. J'aimerai pouvoir supprimer tous les chiffres qui sont placés dans la même cellule que le nom du vin. EX supprimer 1993 juste aprés Lacoste Borie.
