Copie d'une certaine partie de cellule

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:

---

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

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

Code:

---

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

---

Citation:

---

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.

Citation:

---

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:

---

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


Pièce jointe 486347

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

Citation:

---

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:

---

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

---

Citation:

---

Citation:

---

Citation:

---

Envoyé par Tekio

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 ? :mrgreen:

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

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/)



Pièce jointe 486403


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