Macro copier contenu de certains onglets

[edi]

Bonjour à tous,
J'ai un fichier excel avec 5 feuilles et la première est nommée « IG ».
L’objectif de la macro est que si les lignes des différentes feuilles remplissent certaines conditions, alors on doit copier certaines cellules de ces lignes dans la feuille « Alertes_recos ».
J’ai deux soucis avec ma macro:

1. La fonction if devrait remplir les trois conditions (Range("l" & i) = "Échéance proche" Or Range("l" & i) = "En retard" And Range("g" & i) = "DPO") et la cela ne fonctionne pas tel qu’écrit. La première condition à remplir est Range("l" & i) = "Échéance proche" Or Range("l" & i) = "En retard" et ensuite la dernière doit être remplie également.

2. Le deuxième souci est que je souhaite qu’à l’ajout d’une nouvelle ligne qui remplit les conditions dans l’une des feuilles, l’exécution de la macro puisse ajouter cette ligne et non pas dupliquer les autres résultats déjà affichés. (Actuellement lorsque j’exécute la macro deux fois, les lignes qui remplissent les conditions sont dupliquées dans l’onglet « Alertes_recos ».

La macro est en pièce jointe.
Merci de votre aide... je suis coincé.

Crdlt
Edi

 

[Pierrot93]

Re : Macro copier contenu de certains onglets

Bonjour,

essaye peut être ceci :

If (Range("l" & i) = "Échéance proche" Or Range("l" & i) = "En retard") And Range("g" & i) = "DPO" Then

il eut été préférable de nous joindre un fichier excel avec le code à l'interieur plutôt qu'un word... plus facile pour tester..

bonne journée
@+

 

[edi]

Re : Macro copier contenu de certains onglets

Bonjour,
Le premier point est résolu. Il me fallait mettre des parenthèses.
Par contre il me reste le deuxième point.
Merci de votre aide.

 

[edi]

Re : Macro copier contenu de certains onglets

Bonjour Pierrot,
Merci, effectivement avec les parenthèses, ça marche parfaitement. Par contre, il me reste le second point.
Ok j'ajoute le fichier excel.

 

[edi]

Re : Macro copier contenu de certains onglets

Re, Pierrot
Ci-joint le fichier excel.

 

[Pierrot93]

Re : Macro copier contenu de certains onglets

Re,

fais une recherche au préalable sur la colonne "n° reco", regarde du coté de la méthode "find" devrait t'aider à avancer...

 

[edi]

Re : Macro copier contenu de certains onglets

Re, Pierrot
Etant un vrai débutant sur VBA, peux-tu m'aider à partir de mon fichier que j'ai joint ?
Merci d'avance.

 

[Pierrot93]

Re : Macro copier contenu de certains onglets

Re,

regarde ceci :

Sub MAJ()
Dim ws As Worksheet, x As Range, i As Long
For Each ws In Worksheets
    With ws
        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            If (.Cells(i, 6) = "Échéance proche" Or .Cells(i, 8) = "En retard") And .Cells(i, 4) = "DPO" Then
                Set x = Sheets("Alertes_Recos").Columns(1).Find(.Cells(i, 1), , xlValues, xlWhole, , , False)
                If Not x Is Nothing Then
                    .Range("a" & i & ":b" & i & ",e" & i & ",g" & i & ":h" & ",j" & i & ":l" & i).Copy Sheets("Alertes_Recos").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8)
                End If
            End If
        Next i
    End With
Next ws
End Sub

verifie bien les numéros de colonnes.... il faut que tous les onglets aient la même construction...

 

[edi]

Re : Macro copier contenu de certains onglets

Re,
Je teste et je te fais un retour.

Crdlt
Edi

 

[edi]

Re : Macro copier contenu de certains onglets

Re, J'ai essayé en adaptant les numéros de colonne mais la macro ne donne aucun résultat.
Pourtant les onglets ont les mêmes colonnes.

Sub MAJ()
Dim ws As Worksheet, x As Range, i As Long
For Each ws In Worksheets
With ws
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If (.Cells(i, 12) = "Échéance proche" Or .Cells(i, 12) = "En retard") And .Cells(i, 7) = "DPO" Then
Set x = Sheets("Alertes_Recos").Columns(1).Find(.Cells(i, 1), , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
.Range("a" & i & ":b" & i & ",e" & i & ",g" & i & ":h" & ",j" & i & ":l" & i).Copy Sheets("Alertes_Recos").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8)
End If
End If
Next i
End With
Next ws
End Sub

 

[Pierrot93]

Re : Macro copier contenu de certains onglets

Bonjour,

bah... fonctionne chez moi sur le fichier joint...

bonne journée
@+

 

[edi]

Re : Macro copier contenu de certains onglets

Bonjour Pierrot,
Tu peux STP joindre le fichier avec la macro qui fonctionne... je ne sais pas qu'est-ce qui ne fait que ça ne fonctionne pas chez moi.
Encore merci pour ton aide.

Edi.

 

[Pierrot93]

Re : Macro copier contenu de certains onglets

Re,

Tu peux STP joindre le fichier avec la macro qui fonctionne... je ne sais pas qu'est-ce qui ne fait que ça ne

c'est le fichier que tu as joint hier avec le code que j'ai proposé en lieu et place du tien....

 

[Pierrot93]

Re : Macro copier contenu de certains onglets

Re,

attention manquait un numéro de ligne :

Option Explicit
Sub MAJ()
 Dim ws As Worksheet, x As Range, i As Long
 For Each ws In Worksheets
     With ws
         For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
             If (.Cells(i, 6) = "Échéance proche" Or .Cells(i, 8) = "En retard") And .Cells(i, 4) = "DPO" Then
                 Set x = Sheets("Alertes_Recos").Columns(1).Find(.Cells(i, 1), , xlValues, xlWhole, , , False)
                 If Not x Is Nothing Then
                     .Range("a" & i & ":b" & i & ",e" & i & ",g" & i & ":h" & i & ",j" & i & ":l" & i).Copy Sheets("Alertes_Recos").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8)
                 End If
             End If
         Next i
     End With
 Next ws
 End Sub

 

[edi]

Re : Macro copier contenu de certains onglets

Re,
Malgré tout, ça ne fonctionne pas. Merci pour ton aide. Je vais chercher encore...