Discussion :

[Tekio]

Bonjour

Je travaille actuellement sur un Excel.

Dans ma colonne C j'ai des notes qui sont précédé d'un code. Ex : RETOUR1 - Action non résol,RETOUR5 - Pouvez-vous pren

Chaque texte après le code peut être différent.

Du coup je tri le fichier pour ne récupérer que la partie code

J'ai donc une formule fait sur Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
=SI(ESTNUM(CHERCHE("RETOUR1 ";E2));"RETOUR1 ";
SI(ESTNUM(CHERCHE("RETOUR2 ";E2));"RETOUR2 ";
SI(ESTNUM(CHERCHE("RETOUR3";E2));"RETOUR3";
SI(ESTNUM(CHERCHE("RETOUR4";E2));"RETOUR4";
SI(ESTNUM(CHERCHE("RETOUR5";E2));"RETOUR5";
SI(ESTNUM(CHERCHE("RETOUR6";E2));"RETOUR6";
SI(ESTNUM(CHERCHE("RETOUR7";E2));"RETOUR7";
SI(ESTNUM(CHERCHE("RETOUR8";E2));"RETOUR8";
SI(ESTNUM(CHERCHE("RETGS1";E2));"RETGS1";
SI(ESTNUM(CHERCHE("RETGS2";E2));"RETGS2";
SI(ESTNUM(CHERCHE("RETGS3";E2));"RETGS3";
SI(ESTNUM(CHERCHE("RETGS4";E2));"RETGS4";
SI(ESTNUM(CHERCHE("RETGS5";E2));"RETGS5";
SI(ESTNUM(CHERCHE("RETGS6";E2));"RETGS6";
SI(ESTNUM(CHERCHE("RETGS7";E2));"RETGS7";
SI(ESTNUM(CHERCHE("RETGS8";E2));"RETGS8";))))))))))))))))

Je copie cette formule dans une colonne.

J'aimerais automatisé cette tache en Vbaet apres plusieurs essaie je me permet de vous demander de l'aide


Merci d'avance

[Menhir]

Déjà, tu pourrais simplifier ta fonction Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(STXT(E2;CHERCHE("RETOUR";E2);7);SIERREUR(STXT(E2;CHERCHE("RETGS";E2);6);""))

apres plusieurs essaie je me permet de vous demander de l'aide

Tu devrais montrer ce que tu as fait et indiquer ce qui ne convient pas dans le résultat que nous puissions t'aider à le corriger.

[Tekio]

Tu devrais montrer ce que tu as fait et indiquer ce qui ne convient pas dans le résultat que nous puissions t'aider à le corriger.

Ce que j'ai essaye n'a pas du tout marché. Dans mon exemple la colonne C a été rempli en collant la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
=SI(ESTNUM(CHERCHE("RETOUR1";D2));"RETOUR1";
SI(ESTNUM(CHERCHE("RETOUR2";D2));"RETOUR2";
SI(ESTNUM(CHERCHE("RETOUR3";D2));"RETOUR3";
SI(ESTNUM(CHERCHE("RETOUR4";D2));"RETOUR4";
SI(ESTNUM(CHERCHE("RETOUR5";D2));"RETOUR5";
SI(ESTNUM(CHERCHE("RETOUR6";D2));"RETOUR6";
SI(ESTNUM(CHERCHE("RETOUR7";D2));"RETOUR7";
SI(ESTNUM(CHERCHE("RETOUR8";D2));"RETOUR8"))))))))

Et j'aimerais une macro qui fait ça au lieu que je m’embête a coller la formule sur toutes les lignes


Demo.xlsx

[BENNASR]

Bonsoir
comme recommande Menhir ou presque tu peux simplifier ta formule ainsi :

STXT(D2;1;TROUVE("-";D2;1)-1)

Pour traduire cette formule en VBA il suffit de démarrer ton enregistreur Auto ce qui donne après qq traitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Testttt()
Dim Fi As Worksheet
Dim L As Long
Set F1 = Sheets("Feuil1")
L = F1.Range("D" & Rows.Count).End(xlUp).Row
    F1.Range("C2").FormulaR1C1 = "=MID(RC[1],1,FIND(""-"",RC[1],1)-1)"
    F1.Range("C2").Select
    Selection.AutoFill Destination:=F1.Range("C2:C" & L), Type:=xlFillDefault
     F1.Range("C2:C" & L).Select
End Sub

[Menhir]

J'aimerais automatisé cette tache en Vbaet apres plusieurs essaie je me permet de vous demander de l'aide

Tu devrais montrer ce que tu as fait et indiquer ce qui ne convient pas dans le résultat que nous puissions t'aider à le corriger.

Ce que j'ai essaye ne pas du tout.

C'est toi qui a écrit que tu avais fait "plusieurs essais" en VBA. Aurais-tu menti ?

En VBA, cette fonction ne sera pas plus simple.

L'équivalent de la fonction Excel CHERCHE() est InStr().
https://docs.microsoft.com/fr-fr/off...instr-function

Pour savoir si la recherche est fructueuse, inutile d'utiliser l'équivalent de ESTNUM().
Si elle ne trouve pas, la fonction InStr() renvoie 0.

L'équivelent de STXT() est Mid().
https://docs.microsoft.com/fr-fr/off...p/mid-function

Tu peux donc faire quasiment l'équivalent de ta fonction Excel en VBA.
Mais il serait plus propre de passer par un Select True en mettant la recherche de RETOUR et RETG dans les Case.
https://docs.microsoft.com/fr-fr/off...case-statement

[Pierre Fauconnier]

Salut.

Si tu nous disais ce que tu cherches à obtenir. Imbriquer autant de SI est rarement une bonne idée. De plus, si tes données s'y prêtent, tu aurais intérêt à utiliser une table de données (tableau structuré) => tu ne devrais alors pas recopier ta formule sur les lignes (https://fauconnier.developpez.com/tu...ux-structures/)






Au passage: CHERCHE => pas de différenciation majuscules/minuscules. TROUVE: différenciation majuscules/minuscules