Discussion :

[cgomesfe]

Bonjour,

Je souhaiterai avoir un code qui me permette de copier coller les cellules de la colonne A si et seulement si la colonne B indique une erreur.
Dans ce cas, on copie la cellule en A et la colle dans une feuille 2.

Complication supp.: ma colonne A a des valeurs doubles et je souhaiterai que les valeurs collés dans ma feuille 2 n'apparaissent que une fois tout en les conservant dans ma première feuille.

Merci de m'aider.

[riaolle]

As-tu déjà un bout de code? Où bloques-tu? As-tu une erreur ou ne sais-tu pas comment t'y prendre?

Pour vérifier s'il y a une erreur, interesse-toi à la fonction isError.
Pour copier-coller des données, utilise l'enregistreur de macro et adapte ton code.
Quant à l'élimination des doublons, je pense que tu trouveras matière dans d'autres sujets du forum, mais tu peux, par exemple utiliser la fonctionnalité porposée par Excel (données > supprimer les doublons) et là aussi utiliser l'enregistreur de macro.

Une fois que tu auras essayé tout cela, reviens vers nous et dis-nous si tout se passe bien
Bon courage !

[Menhir]

En plus de ce qu'à écrit Riaolle :

Je souhaiterai avoir un code qui me permette de copier coller les cellules de la colonne A si et seulement si la colonne B indique une erreur.
Dans ce cas, on copie la cellule en A et la colle dans une feuille 2.

Pour scruter toutes les cellules : https://msdn.microsoft.com/fr-fr/lib.../gg264596.aspx
Pour le test : https://msdn.microsoft.com/fr-fr/lib.../gg251599.aspx
Pour la copie : https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx

Complication supp.: ma colonne A a des valeurs doubles et je souhaiterai que les valeurs collés dans ma feuille 2 n'apparaissent que une fois tout en les conservant dans ma première feuille.

Fais un test sur le résultat d'un Find pour savoir si ta valeur existe déjà dans la feuille destination.
https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx

[cgomesfe]

J'ai essayé ce code, mais cela ne semble pas marcher.

Sub nouveauté()
Dim i As Integer
i = Cells(1, 2)
For Each i In Sheets("CleanData").Range("B" & Rows.Count).End(xlUp).Row
If IsError(i.Value) Then
ActiveSheets.Cells(ActiveRow, "A").Select
Selection.Copy
Sheets("Classement").Activate
Range("D" & Rows.Count).End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Exit For
Next i

Sheet("Classement").Range("D").RemoveDuplicates , Header:=xlYes

End Sub[/INDENT]

[riaolle]

Bonjour!
Que veut dire "cela ne marche pas"? As-tu un message d'erreur? Si oui lequel? Si non, que se passe-t-il? Le code tourne, mais rien ne se passe? Le code tourne, mais ne fait pas ce que tu veux? Il faut que tu nous donnes plus de précisions si tu veux qu'on t'aide.

Néanmoins en regardant ton code :
Tu veux faire une boucle sur des cellules (si j'ai bien compris), mais tu dimensionne i commen un entier (Integer) et ensuite tu mets des expressions qui sortent des entiers et parfois d'autres qui sont propores à une cellule. Là, Excel est perdu
J'ai l'impression que dans ton cas, c'est plus simple de faire une boucle sur les lignes:

Code :

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

1
2
3
4
5
6
7
8
Dim i As Integer
For i = 1 To Sheets("CleanData").Range("B" & Rows.Count).End(xlUp).Row
    If IsError(Range("B" & i) Then
    ActiveSheets.Cells("A" & i).Copy      'Evite les Select
    Sheets("Classement").Range("D" & Rows.Count).End(xlUp).PasteSpecial Paste:=xlPasteValues
 End If
'Là, si tu mets Exit For, tu sors de la boucle For dès le premier i, donc tu ne fais jamais ta boucle.
Next i

Je ne pense pas qu'on puisse écrire :

Code :

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

Cells(1, "A")

J'écris toujours:

Code :

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

Cells(1, 1)

Et si tu veux utiliser la lettre, utilise la syntaxe suivante:

Code :

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

1
2
Range("A1")    ' avec une variable:
Range("A" & i)

Evite (si possible) les Select et Activate, ça donne souvent des erreurs difficiles à gérer.

Tu mets un "Exit For" juste avant le Next i. Exit For veut dire que tu sors de la boucle, donc, en fait, ici tu arrêtes ta boucle juste après i=1.

J'espère que tu pourras déjà un peu avancer comme ça


Autre précision liée au forum : quand tu écris du code, utilise les balises code. Il faut cliquer sur le bouton # et écrire (ou souvent plutôt copier-coller) ton code entre les balises. C'est plus simple à lire.

[riaolle]

J'ai oublié autre chose : ne donne pas un nom avec des caractères "spéciaux" à ton sub, plutôt que "nouveauté" utilise "nouveaute".

[cgomesfe]

Bonjour,

Merci de ta réponse! Je suis débutante sur l'outil. C'est pour ça qu'il y a autant de fautes en fait.


J'ai réadapté le code comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub nouveaute()
Dim i As Variant
For i = 1 To Sheets("CleanData").Range("B" & Rows.Count).End(xlUp).Row
    If IsError(Range("B" & i)) = True Then
    ActiveSheets.Cells("A" & i).Copy
    Sheets("Classement").Range("D" & Rows.Count).End(xlUp).PasteSpecial Paste:=xlPasteValues
    End If
Next i
 
End Sub

Mais il y a une erreur au niveau de la ligne ActiveSheets. Dans la fenêtre espion ça me met que la valeur est vide.

Merci

[riaolle]

C'est peut-être ma faute Il y a un "s" qui s'est glissé en trop dans le code, essaie avec ActiveSheet plutôt que ActiveSheets et dis-moi si ça marche

Edit:
et

Code :

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

Dim i As Integer

plutôt que

Code :

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

Dim i As Variant

[Menhir]

Pour les variables référent un numéro de ligne, je conseille de prendre l'habitude de les déclarer de type "Long" plutôt que "Integer", étant donné que le nombre de ligne peut (potentiellement) dépasser 32 000.
C'est vrai que dans 99% des cas, Integer suffit, mais pour le 1% restant, ça fait un bug assez vicieux à régler. Donc, autant prendre l'habitude, ça ne mange pas de pain.

[cgomesfe]

Bonjour,

J'ai fait la correction mais la procédure ne me donne pas le résultat que je veux.
En fait, elle ne me colle que la dernière ligne sur la colonne E. Alors que je voudrais coller à las suite toutes les cellules en A dont la cellule B est une erreur.

J'ai cherché d'autres combinaisons mais sans succès

C'est gentil de m'aider. Après ça j'irai prendre des cours.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub nouveaute()
Dim i As Long
For i = 1 To Sheets("CleanData").Range("B" & Rows.Count).End(xlUp).Row
    If IsError(Range("B" & i)) = True Then
    ActiveSheet.Range("A" & i).Copy
    Sheets("Classement").Range("E" & Rows.Count).End(xlUp).PasteSpecial Paste:=xlPasteValues
    End If
Next i
 
End Sub

[riaolle]

Quand tu dis "B est une erreur", il y a quoi exactement dans la cellule B?

Peux-tu essayer avec:

Code :

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

If isError(Range("B" & i).Value) then ...

Sinon, par soucis de simplification du code : au lieu de copier-coller la valeur comme tu le ferais "à la main" sur Excel, tu peux simplement écrire dans la colonne E la valeur de la colonne B (comme tu le ferais littéralement "à la main", sur un bout de papier ):

Code :

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

Sheets("Classement").Range("E" & Rows.Count).End(xlUp).Value = ActiveSheet.Range("A" & i).Value

[cgomesfe]

Dans ma colonne B il y a une formule RechercheV qui recherche A dans un tableau dans "Classement".
Si la formule ne me trouve pas la valeur en A, ça veut dire que c'est nouveau que ça pas été encore recensé dans mon classement.

J'ai essayé ta proposition mais ça a pas fonctionné.
En revanche j'ai essayé autres chose qui marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub nouveaute()
Dim i As Long
For i = 1 To Sheets("CleanData").Range("B" & Rows.Count).End(xlUp).Row
    If IsError(Range("B" & i)) = True Then
    ActiveSheet.Range("A" & i).Copy
    Sheets("Classement").Range("E" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    End If
Next i
 
 
End Sub

Maintenant il ne me reste plus qu'à éliminer les doublons. Est-ce que tu pourrais m'aider ? J'ai essayé ça mais ça marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub nouveaute()
Dim i As Long
For i = 1 To Sheets("CleanData").Range("B" & Rows.Count).End(xlUp).Row
    If IsError(Range("B" & i)) = True Then
    ActiveSheet.Range("A" & i).Copy
    Sheets("Classement").Range("E" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    End If
Next i

Sheet("Classement").Range("E").RemoveDuplicates , Header:=xlYes

End Sub

Merci

[riaolle]

En fait quand tu fais:

Code :

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

Sheets("Classement").Range("E" & Rows.Count).End(xlUp)

Il remonte à la première ligne non vide, du coup à chaque fois, tu copiais sur la première ligne non vide, donc tu copiais toujours sur la même ligne. Il faudrait écrire :

Code :

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

Sheets("Classement").Range("E" & Rows.Count).End(xlUp) + 1

ou ce que tu as proposé.

Pour l'élimination des doublons. Que veut dire "ça ne marche pas"? Mesage d'erreur? Rien ne se passe? Mais essaie déjà cela : tu as oublié un "s" à Sheets("Classement").

[cgomesfe]

Haa d'accord merci de l'explication!

Bon alors même avec le s j'ai un message d'erreur sur cette ligne. Dans la fenêtre Espion, rien ne s'affiche dans valeur je sais pas si ça a un lien.

[riaolle]

Quand tu veux faire référence à une colonne, il faut écrire :

Code :

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

Range("E:E")

Et pas seulement

Code :

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

Range("E")

Ainsi, ce code :

Code :

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

ActiveSheet.Range("E:E").RemoveDuplicates Columns:=1, Header:=xlYes

marche chez moi

N'oublie pas d'ajouter l'élement Columns:=1

[cgomesfe]

Oui merci c'est fantastique ça marche!

Encore merci pour tout!!

[Menhir]

J'ai fait la correction mais la procédure ne me donne pas le résultat que je veux.
En fait, elle ne me colle que la dernière ligne sur la colonne E. Alors que je voudrais coller à las suite toutes les cellules en A dont la cellule B est une erreur.

Tu fais tourné ton programme en pas-à-pas.
A chaque ligne, tu vérifies l'effet du code, par exemple en allant regarder le contenu des variables dans la fenêtre de variables locales.
Ca te permettra de localiser quel élément ne fait pas ce que tu souhaites.