XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau

[Jaco24]

Bonjour,

Je tiens à préciser en premier lieu que je ne peux pas partager mon travail pour certaines raison.
Suite à une demande, je cherche à faire dans une colonne en particulier une détection de texte.
Celle-ci en le détectant copie la case et la colle dans une autre un peu plus bas mais bien sur il y a une problématique à cela.
la case copier doit prendre en compte certaine cellule sur la même ligne comme par exemple le texte doit être détecter que en I15 mais doit Copier I15 et C15 et Coller dans le tableau plus bas dans les cases C91 pour C15 et D91 pour I15.
Il y a un gros MAIS à se problème le tableau doit quantifier les éléments les élément du tableau de au dessus je m'explique.
Il doit détecter ceci "§" comme prioritaire donc en début de tableau plus bas mais doit aussi prendre en compte que il y a 73 ligne dans le tableau du dessus et qu'il y aura que 20 ligne pour le tableau de en dessous pour quantifié les commentaire éparpillé dans le tableau.

 

[Phil69970]

Bonjour @Jaco24 et bienvenu sur XLD

@Jaco24

Je tiens à préciser en premier lieu que je ne peux pas partager mon travail pour certaines raison.

C'est donc à nous d'inventer un fichier que tu as sur ton PC ? 😵
Pour info c'est toi qui as besoin d'aide pas nous, donc si tu veux que l'on t'aide alors aide nous .

Rien ne t’empêche de fournir un fichier représentatif 😳

C'est quoi représentatif ?

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si cela fonctionne sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.

Bonne lecture

 

[Jaco24]

Voici un exemple simplifier avec les explication du dessus

 

[JHA]

Bonjour à tous,

Un début pour le texte qui commence par "$"

=SIERREUR(INDEX($J$4:$J$76;PETITE.VALEUR(SI(GAUCHE($J$4:$J$76;1)="§";LIGNE($J$4:$J$76)-3);LIGNE(A1)));"")

JHA

 

[Jaco24]

et pour les autres qui ne porte pas de "§" on peut les faire suivre si possible ?

 

[Phil69970]

@Jaco24

Il me semble que le fichier ne correspond pas au colonne/cellule des explications du post #1
Exemple

le texte doit être détecter que en I15

Et dans le fichier I15 est vide !!!

Pourtant j'ai bien précisé et de plus en gras dans le texte :

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS, mêmes noms de feuilles...

Merci de revoir les explications et/ou le fichier pour que tout concorde !!! 🙄

 

[Jaco24]

voici autant pour moi désolé

 

[JHA]

Bonjour à tous

A essayer

JHA

 

[Phil69970]

@Jaco24

Les colonnes ne correspondent et maintenant c'est les lignes
Devant tant d'approximation les bras m'en tombent !!!

'il y aura que 20 ligne pour le tableau de en dessous pour quantifié les commentaire éparpillé dans le tableau.

Comme c'est parti je pense que ton fichier réel ne ressemble pas du tout au fichier que tu nous fournis et n'étant pas adepte du refaire éternellement ==> Bonne chance

 

[Jaco24]

Bonjour,

Encore merci pour tout @JHA
j'ai pu remarquer que celui ci sauter certains commentaire dans des cellules
Ensuite @Phil69970 , Les 20 lignes était un exemple il pourrait en avoir plus ou moins en fonction du nombre de commentaire et je suis désolé mais merci d'avoir essayé Bonne journée à vous

 

[Jaco24]

Rebonjour @JHA,

en m'étant ton code il me compte que un 1/2

?

 

[Phil69970]

Re

@Jaco24
Ma contribution qui fonctionne sur le fichier fournit !

Merci de ton retour

 

[Jaco24]

j'ai oublier de préciser (je viens de le découvrir pour la première fois) et je m'en excuse mais mon organisation à désactiver les macro donc je suis bloquer niveau VBA donc je ne peux utiliser de macro

 

[Jaco24]

Mais @JHA est pas loin de la vérité

 

[Phil69970]

@Jaco24

C'est toutes les macros qui sont désactivées ou seulement les macros qui viennent du web.

As tu l'onglet Développeur ?

Comment ouvrir l'onglet développeur

https://www.google.com/search?client=firefox-b-d&q=activer+onglet+developpeur+

ou autrement sur ma version d'excel ...

Puis tu ouvres TON fichier

et tu copies ce code ici

Le code à copier :

Option Explicit

Sub Copie()
Dim Derlig&, i&

Derlig = Range("C" & Rows.Count).End(xlUp).Row + 1

For i = 15 To 87
    If Range("I" & i) <> "" Then
        Range("C" & Derlig) = Range("C" & i)
        Range("D" & Derlig) = Range("I" & i)
    End If
    Derlig = Range("C" & Rows.Count).End(xlUp).Row + 1
Next i

Range("C91:D" & Derlig).Sort Key1:=[D90], Order1:=xlAscending, Header:=xlNo
MsgBox "Valeur copiée", vbInformation, "Copie"
End Sub