Discussion :

[Lionel84100]

Bonjour,

Je suis actuellement stagiaire , je suis dans un projet où je développe une solution en C# mais il m'est demandé d'effectuer des traitement sur excel par le biais de code.

J'ai déjà pu implémenter des fonctionnalités sur ce Excel mais il me reste cependant un problème que je n'arrive pas à régler.

Voila j'ai un fichier Excel configuré pour faire des traitements et c'est ce dernier qui contient du code vb. Ce fichier excel contient 3 feuilles. Le besoin que j'aimerais traiter c'est que lorsqu'on retrouve dans la colonne A de la feuille 1 une valeur "Et"; j'aimerais que les valeurs de cette ligne soit automatiquement copié-collé dans la ligne LD de la feuille 2.

Par exemple :

voici les données de la feuille 1 :



j'aimerais que dès qu'il y'a la présence d'une cellule qui est du type "Et ..." de la colonne A, que la ligne soit copié puis collé dans la ligne LD dans la feuille 2 comme dans la photo en dessous.



Enfait la ligne LD est aussi utilisé pour un autre code qui se déclenche en actionnant un bouton "rechercher" dans la feuille 3, pensez que les deux codes peuvent rentrer en conflit ?

pouvez-vous m'aidez à trouver une solution s'il vous plâit ?

Je vous joint le fichier excel qui contient tout les codes.

Merci de votre compréhension.

FichierParentThermo.xlsm

[ARTURO83]

Bonjour,

Détecter signifie que le code doit surveiller en permanence ou du moins à chaque saisie le contenu de la cellule de la colonne A, or le problème, c'est que si le remplissage d'une ligne commence par la la cellule en colonne A, aussitôt le code va démarrer et recopier la ligne pas encore remplie vers l'autre feuille. Donc ça ne va pas. il faut que ce soit exécuté à la demande via un bouton dédié à cela.
De plus, on recopie la ligne sur la ligne BD de l'autre feuille, Question: et s'il y a plusieurs lignes qui contiennent "Et ", où copie-t-on les autres, à la suite?
En attendant plus de précisions, voici une première approche, l'action de recopie se fait en cliquant sur le bouton en haut de la colonne A. Le code est dans le module standard1.
Pièce jointe 593581

Le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Recopier_Ligne_ET()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim e As Range
    Dim Derlig As Long
    Application.ScreenUpdating = False
    Set f1 = Sheets("Données_ICP")
    Set f2 = Sheets("Formatage_IM")
    Derlig = f1.Range("A" & Rows.Count).End(xlUp).Row
    Set e = f1.Range("A1:A" & Derlig).Find("Et ", LookIn:=xlValues, LookAt:=xlPart)
    If Not e Is Nothing Then f1.Range("A" & e.Row & ":AD" & e.Row).Copy f2.Range("B4")
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

[Lionel84100]

Bonjour Arturo83,

Merci pour votre solution je vais la tester.

Pour répondre à votre question : et s'il y a plusieurs lignes qui contiennent "Et ", où copie-t-on les autres, à la suite?

Il y a deux types de lignes qui contiennent "Et" comme vous avez pu le voir dans la capture, nous avons des lignes de types "Etalon ....." et "Et...." . Moi ce qui va m'intéresser c'est uniquement les lignes de type "Et .....".

Il n'y aura qu'une ligne de ce genre, mais l'appellation de sera pas la même tout le temps, ce qui sera identique c'est le fait que la cellule commence par "Et" et non par "Etalon".

Merci de votre compréhension.