Microsoft 365 Formule excel

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Brigitte 45

Brigitte 45

XLDnaute Nouveau
Bonsoir,
J'ai oublié la formule permettant de supprimer n caractères (à gauche ou à droite) dans une chaîne de texte dans une cellule.
Je suis à la retraite et je ne pratique plus tous les jours, moralité, j'oublie les bases pourtant si simples !
J'ai cherché dans le forum mais je n'y ai rien trouvé se rapportant à ma demande. J'ai sans doute mal cherché alors j'implore votre pardon !
Merci beaucoup par avance pour votre réponse et votre bienveillance.
sad rabbit GIF
 
Trier par date Trier par votes
Brigitte 45 à dit:
Oups ! ça ne marche pas. En fait dans ma cellule il y a écrit par exemple
42 - Thunder
je souhaite retirer les 3 premiers caractères pour ne garder que Thunder
Cliquez pour agrandir...
Si si, ça marche ! C'est juste que tu as oublié qu'une espace est un caractère...
Donc ce serait plutôt les 5 premiers caractères !


Mais visiblement ce que tu cherches réellement à faire semble ne pas correspondre à ta question de #1.

Du coup je te propose ceci :
=droite(a1;nbcar(a1)-trouve("-";a1)-1)
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy à dit:
Ce serait plutôt les 5 premiers caractères !


Mais visiblement ce que tu cherches réellement à faire semble ne pas correspondre à ta question de #1.

Du coup je te propose ceci :
=droite(a1;nbcar(a1)-trouve("-";a1)-1)
Cliquez pour agrandir...

Brigitte 45 à dit:
Bonsoir,
J'ai oublié la formule permettant de supprimer n caractères (à gauche ou à droite) dans une chaîne de texte dans une cellule.
Je suis à la retraite et je ne pratique plus tous les jours, moralité, j'oublie les bases pourtant si simples !
J'ai cherché dans le forum mais je n'y ai rien trouvé se rapportant à ma demande. J'ai sans doute mal cherché alors j'implore votre pardon !
Merci beaucoup par avance pour votre réponse et votre bienveillance.
sad rabbit GIF
Cliquez pour agrandir...
Je suis à la retraite et je ne pratique plus tous les jours, moralité, j'oublie les bases pourtant si simples !
moi aussi
voir split() ... je recherche plus d'info

VB: 
Public Sub ListeActeurCreation()
    Test_OperationEnCours = True
    Call INIT_VariableSystem
    LigneTemp = ListeLigneTemp_Acteur
    'ListeCelluleFin est déterminée comme derniere cellule non vide de la liste
    Set ListeCelluleFin = Sheets(OngletListeFilm).Range(ListeColonTitre & ListeLigneDebut).End(xlDown)
    'parcourir de la ligne 1 -->(ligne4)  a la ligne  ListeCelluleFin.Row -->  fin de liste
    '[1] CREATION DE LA LISTE ------------------------------------------------
    For n = ListeLigneDebut To ListeCelluleFin.Row
        'lecture de la ligne des acteurs
        'parcourir toute la ligne à la recherche de ";"
        TabMot = Split(Sheets(OngletListeFilm).Range(ListeColonActeur & n).Value, Delimiter:=";")
        If UBound(TabMot) > 0 Then
            For i = 0 To UBound(TabMot)
                Sheets(OngletActeur).Range(ListeColonTemp_Acteur & LigneTemp).Value = Trim(TabMot(i))
                LigneTemp = LigneTemp + 1
            Next i
        End If
    Next n
    '[2] FORMATAGE DE LA LISTE -----------------------------------------------
    'ListeCelluleFin est déterminée comme derniere cellule non vide de la liste
    Set ListeCelluleFin = Sheets(OngletActeur).Range(ListeColonTemp_Acteur & ListeLigneTemp_Acteur).End(xlDown)
    'parcourir de la ligne 1 -->(ligne4)  a la ligne  ListeCelluleFin.Row -->  fin de liste
    For n = ListeLigneTemp_Acteur To ListeCelluleFin.Row
        'Sheets(OngletActeur).Range("A2").Value = n
        Acteur = FormatMinusculeSimple(FormatDataTraitPointActeur(Sheets(OngletActeur).Range(ListeColonTemp_Acteur & n).Value))
        TabActeur = Split(Trim(Acteur), Delimiter:=" ")
        Acteur = ""
        For i = 0 To UBound(TabActeur)
            If TabActeur(i) <> "" Then
                TabActeur(i) = UCase(Left(TabActeur(i), 1)) & LCase(Mid(TabActeur(i), 2, Len(TabActeur(i)) - 1))
                Acteur = Acteur & " " & TabActeur(i)
            End If
        Next i
        Sheets(OngletActeur).Range(ListeColonTemp_Acteur & n).Value = Trim(Acteur)
    Next n
    '[3] SUPRIME LES DOUBLES DE LA LISTE -------------------------------------
    Sheets(OngletActeur).Range(ListeColonTemp_Acteur & ListeLigneTemp_Acteur).Select
    Sheets(OngletActeur).Range(Selection, Selection.End(xlDown)).Select
    Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets(OngletActeur).Range(ListeColonNew_Acteur & ListeLigneDebut_Acteur), Unique:=True
    '[4] ORDRE ALPHA DE LA LISTE ---------------------------------------------
    Sheets(OngletActeur).Range(ListeColonNew_Acteur & ListeLigneDebut_Acteur).Select
    Sheets(OngletActeur).Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Sheets(OngletActeur).Range(ListeColonNew_Acteur & ListeLigneDebut_Acteur), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Test_OperationEnCours = False
End Sub

un autre exemple :

VB: 
Public Function ChercheDossierFILM()
    Dim Path_Drive As String
    Dim n As Integer
    On Error Resume Next
    '-----------------------------------------------
    'RECHERCHE DOSSIER ...FILM...
    '-----------------------------------------------
    For n = 0 To CreerListeFilmDisk.ListBox1.ListCount - 1
        Path_Drive = Left(CreerListeFilmDisk.ListBox1.List(n), 1) & ":\"
        'Extrait la première entrée.
        Folder_Name = Dir(Path_Drive, vbDirectory)
        'Commence la boucle.
        Do While Folder_Name <> ""
            'Ignore le dossier courant et le dossier contenant le dossier courant.
            If Folder_Name <> "." And Folder_Name <> ".." Then
                'Utilise une comparaison au niveau du bit pour vérifier que MyName est un dossier.
                If (GetAttr(Path_Drive & Folder_Name) And vbDirectory) = vbDirectory Then
                    'si le nom de Folder_Name contient "FILM" le Drive est sélectionné dans la ListBox
                    If UBound(Split(Folder_Name, Delimiter:="FILM")) > 0 Then CreerListeFilmDisk.ListBox1.Selected(n) = True
                End If
            End If
            Folder_Name = Dir    ' Extrait l'entrée suivante.
        Loop
    Next
End Function

j'ai écrit ces codes , donc tu peux en faire ce que tu veux ..

@+ JP
 
Dernière édition:
Vote positif 0 Vote négatif
Brigitte 45 à dit:
Bonsoir,
J'ai oublié la formule permettant de supprimer n caractères (à gauche ou à droite) dans une chaîne de texte dans une cellule.
Je suis à la retraite et je ne pratique plus tous les jours, moralité, j'oublie les bases pourtant si simples !
J'ai cherché dans le forum mais je n'y ai rien trouvé se rapportant à ma demande. J'ai sans doute mal cherché alors j'implore votre pardon !
Merci beaucoup par avance pour votre réponse et votre bienveillance.
sad rabbit GIF
Cliquez pour agrandir...
Bonjour ! Pour la gauche (ex 4 caractères sur un texte situé en A1) : =remplacer (A1;1;4;"")
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
952
fanfan38
fanfan38
R
  • Question Question
XL 2016 syntaxe vba excel
Réponses
9
Affichages
1 K
Dranreb
Dranreb
O
  • Question Question
XL 2016 Formule pour identifier les n° de semaine entre 2 dates
Réponses
7
Affichages
1 K
Oublieux
O
A
  • Question Question
XL 2010 VBA Formule Insertion d'une formule dans une cellule Excel avec un programme VBA
Réponses
2
Affichages
807
Allostarz
A
V
  • Résolu(e)
XL 2016 formule excel le produit expire dans n jours à partir de date en cours
Réponses
8
Affichages
2 K
vanin
V
Fipat
  • Question Question
XL 2016 Concatener et suppression caractères
Réponses
3
Affichages
1 K
Fipat
Fipat
S
  • Question Question
XL 2019 Rechercher chaîne de caractère dans deux colonnes
Réponses
2
Affichages
1 K
sum01
S
R
  • Résolu(e)
XL 2013 suppression partie de texte avec formule
Réponses
2
Affichages
932
Staple1600
Staple1600
G
  • Question Question
Microsoft 365 Problème de liaisons entre deux classeurs excel sous sharepoint
Réponses
9
Affichages
8 K
GPetto
G
Y
  • Question Question
XL 2016 Controle chaine de caractère
Réponses
9
Affichages
1 K
D.D.
D
C
  • Question Question
Microsoft 365 Macro excel qui bug
Réponses
11
Affichages
3 K
Staple1600
Staple1600
T
  • Question Question
XL 2016 Macro insertion ligne avec un user form
Réponses
1
Affichages
2 K
Staple1600
Staple1600
R
  • Question Question
XL pour MAC Formule Recherche V avec conditionnelle
Réponses
5
Affichages
1 K
RenFongTen
R
E
  • Question Question
XL 2010 Formule Excel
Réponses
3
Affichages
881
ELBRUNO
E
T
  • Question Question
Microsoft 365 Suppression de "0" dans formule "concatener" suite à cellule non vide
Réponses
7
Affichages
1 K
O.Pinel
O
A
  • Question Question
XL 2010 recherche V et concatener pour simplifier formule excel
Réponses
2
Affichages
1 K
annette2018
A
K
  • Question Question
XL 2013 VBA - EXCEL - Aide pour simplifier mon fichier
Réponses
0
Affichages
2 K
Khalidoune
K
B
  • Question Question
XL 2013 [RESOLU] Excel VBA - Incompatibilité de Type
Réponses
2
Affichages
1 K
BENAM69
B
H
  • Question Question
XL 2016 Empêcher suppression onglet VBA
Réponses
5
Affichages
4 K
Hx2000
H
A
  • Question Question
Formule tableau excel
Réponses
6
Affichages
1 K
DoubleZero
DoubleZero
Retour