Discussion :

[ANANA49]

Bonjour,

Je souhaiterai copier des données sur une autre feuille de mon classeur en incluant les conditions :

S'il trouve dans la colonne A de ma feuille "Source", le chiffre 7, il doit prendre toutes les lignes au dessus (de 1 à 6 inclus) et les copier sur ma feuille "Tranche" en cellule A7.

Autre condition :

S'il trouve dans la colonne A de ma feuille "Source", le chiffre 6, il doit prendre toutes les lignes en dessous (de 7 à ....) et les copier sur ma feuille "Tranche" en cellule A23.

Je me mélange les pédales avec les boucles..et conditions..
Merci pour votre aide.

[MarcelG]

Bonjour Anana, et bienvenu sur ce Forum,

Tout est clairement dit dans ton énoncé.

Pour "trouver" (traduit en anglais) et "copier", regarde les méthodes décrites dans cet espace documentaire.
Objet Range.

Essaie de développer et reviens si nécessaire.

[Menhir]

Je me mélange les pédales avec les boucles..et conditions..

Peut-être pourrais-tu montrer le code que tu as réalisé pour qu'on puisse t'indiquer ce qui est incorrect et comment le corriger.

[ANANA49]

Bonjour,

Ci-dessous mon bout de code mais c'est mal parti.. Car je ne sais pas comment lui dire de me copier toutes les lignes au dessus de la valeur 6 qu'il trouve etc..

Code :

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

1
2
3
4
5
6
7
8
Sub SourceTranche()
 
For i = 1 To 6
If Cells(i, 1).Value = "6" Then
Sheets("Tranche").Range("A7").Value = Sheets("Source").Cells(i, 6).Value
 
End If
End Sub

[Menhir]

Déjà, une boucle For doit être fermée par un Next.
https://docs.microsoft.com/fr-fr/off...next-statement

Ensuite, à chaque tour de boucle, tu inscris le contenu de la cellule courante dans A7.
Ce qui fait, au final, que seule la dernière valeur scrutée sera inscrite, chaque autre aura été écrasée par la suivante.

[ANANA49]

Merci Menhir,

J'ai bien compris l'explication pour la boucle For - Next mais par contre je ne vois pas comment je peux lui dire de me copier toutes les lignes au dessus de la valeur 6 sur ma feuille "Tranche" en "A7" car je ne veux pas qu'une seule valeur mais toutes les valeurs des lignes ??

Merci pour ton aide car j'ai consulté les liens et plus j'en consultes plus je me perds (Boucle For Each...)

[MarcelG]

Salut,

A mon avis, mieux vaut utiliser la méthode Find (voir le lien que je t'ai indiqué).
Cette méthode Find retourne un objet Range dont tu peux récupérer la ligne.
Ne reste plus alors qu'à copier le champ

A2:A& cette ligne

(à adapter)

[Menhir]

J'ai bien compris l'explication pour la boucle For - Next mais par contre je ne vois pas comment je peux lui dire de me copier toutes les lignes au dessus de la valeur 6 sur ma feuille "Tranche" en "A7" car je ne veux pas qu'une seule valeur mais toutes les valeurs des lignes ??

Au lieu de transférer une valeur, copie toute la zone avec la méthode Copy.
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
La ligne contenant la valeur cible te fixe la ligne du haut.
La propriété End(xlUp) te donnera la ligne du bas.
https://msdn.microsoft.com/fr-fr/lib...9(v=office.15)
Tu fixes toi-même les colonnes à copier.