Macro copier/coller cellules dans un autre fichier Excel si condition

Bonjour à tous,

Je souhaiterais une petite macro qui copierait 2 cellules du fichier "LOB RECHANGES" pour les coller dans "Overview SPARES INDUS":

-Si la colonne M de "LOB RECHANGES" contient "NON PRESENT INDUS" alors copier les colonnes F et H de "LOB RECHANGES" et les coller tout en bas dans "Overview SPARES indus" en colonne B et C de l'onglet "Commandes" et mettre les 2 cellules en surbrillance (peu importe la couleur je changerai).

Merci d'avance!!!

Anthony

Bonjour,

S'il faut que je précise des choses dans ma demande n'hésitez pas :)

Merci encore par avance

Anthony

Bonjour Antony, le Forum,

cette macro est a inserer dans un module de overview-spares-indus.xlsm et a lancer avec l'autre fichier ouvert.

Je n'envoie pas le fichier car j'ai du desactivé les liaisons de tes fichiers.

Sub Macro1()
    Dim tb1
    Dim tb2
    Dim i As Integer
    Dim j As Integer
    j = 0
    i = 0

    Windows("lob-rechanges.xlsx").Activate
    tb1 = Sheets("RECHANGES").Range("A1").CurrentRegion
    tb2 = tb1

    For i = 1 To UBound(tb1)
        If tb1(i, 13) = "NON PRESENT INDUS" Then
    j = j + 1
    tb2(j, 1) = tb1(i, 6)
    tb2(j, 2) = tb1(i, 8)
        End If
    i = i + 1
    Next
   Windows("overview-spares-indus.xlsm").Activate
   Sheets("Commandes").Select
   derligne = Range("B" & Rows.Count).End(xlUp).Row + 1
    Range("B" & derligne & ":C" & j + derligne) = tb2
End Sub

Cordialement

Bonjour fg2b,

Un grand merci pour ton aide. J'ai ajouté la macro comme conseillé, j'ai renommé les fichiers pour q'ils collent aux noms exacts de mes fichiers, la macro semble se lancer (sablier qui apparait) mais les 2 cellules en question ne s'ajoutent pas dans l'overview spares indus.

Dans la macro on peut le voir où qu'on prend que les colonnes F et H du fichier LOB RECHANGES ?

Merci,

Cdt

J'aurais peut-être dû préciser que le "NON PRESENT INDUS" du 1er fichier est issu d'une formule, est ce que ça a une incidence sur la macro ?

Merci,

Anthony

Rebonjour,

Chez moi ca marche si je desactive les liaisons. Mais je ne suis pas sur ton reseau....

Essaie comme ca , en creant une nouvelle feuille "Feuil1" dans le code juste pour voir ce qu'il se passe.

Tiens moi au courant

@ +

Sub Macro1()
    Dim tb1
    Dim tb2
    Dim i As Integer
    Dim j As Integer
    Dim derligne As Integer '***************************** changement
    j = 0
    i = 0

    Windows("lob-rechanges.xlsx").Activate
    tb1 = Sheets("RECHANGES").Range("A1").CurrentRegion
    tb2 = tb1

    For i = 1 To UBound(tb1)
        If tb1(i, 13) = "NON PRESENT INDUS" Then
    j = j + 1
    tb2(j, 1) = tb1(i, 6)
    tb2(j, 2) = tb1(i, 8)
    tb2(j, 3) = tb1(i, 13) '***************************** changement
        End If
    i = i + 1
     Next
    Windows("overview-spares-indus.xlsm").Activate
   Sheets("Feuil1").Select '***************************** changement 
   derligne = Range("B" & Rows.Count).End(xlUp).Row + 1
    Range("B" & derligne & ":D" & j + derligne) = tb2 '***************************** changement D au lieu de C
End Sub

Bonjour fg2b,

J'ai ce message:

Merci,

@+

Bonjour fg2b,

As-tu pu regarder le message d'erreur ?

En te remerciant encore :)

Anthony

Bonjour,

Est ce que quelqu'un a pu regarder svp ?

En vous remerciant :)

Anthony