Déplacement d'un ligne vers une feuille si cellule égal "OUI"

[BOURLIER TONY]

Bonjour

J'aimerai déplacer une ligne (A:J) d'une feuille 1 vers une feuille 2 que si la cellule 6 de la feuile 1 est égal à "OUI"

Merci pour votre aide

😀

 

[guit]

Re : Déplacement d'un ligne vers une feuille si cellule égal "OUI"

Essayez ça

Sub Macro1()
Sheets("A").Select
Range("f1").Select
If Range("f1").Value = "oui" Then
Rows("1:1").Cut
Sheets("B").Select
Rows("1:1").Insert Shift:=xlDown
End If
End Sub

 

[Softmama]

Re : Déplacement d'un ligne vers une feuille si cellule égal "OUI"

Bjour Tony t Guit,

Tu voudrais déplacer une ligne... et tu précises A:J... Déjà je bloque : de quelle ligne parles-tu ? En général, les lignes ont un Numéro, et non une lettre pour les reconnaitre.
Ensuite, tu parles de la 6ème cellule de la feuille1... S'agit-il de la cellule F1 comme pense l'avoir compris guit, ou bien d'autre chose ?

@guit: En général, on tente d'éviter au maximum l'utilisation des activate et des select dans les macros, car ils les ralentissent considérablement.

Donc pour copier une ligne x d'une feuil1 vers une ligne y d'une feuil2 si la cellule F1 = "OUI", tu peux faire comme ceci :

If Sheets("Feuil1").Range("F1") = "OUI" Then Sheets("Feuil1").Rows(x).copy Sheets("Feuil2").Cells(y, 1)

 

[BOURLIER TONY]

Re : Déplacement d'un ligne vers une feuille si cellule égal "OUI"

Bonjour merci beaucoup pour vos réponses.
En effet, je veux déplacer une ligne entière, donc 1
En faite ce n'est complètement déplacer, c'est COPIER, donc copier une ligne quand la cellule F1 ou F2 ou F3 ou F..... est égal à "OUI"

Voici un fichier exemple avec deux feuilles et une ligne à copier quand la cellule F... est égal à "OUI"

Merci de votre aideRegarde la pièce jointe ESSAI BT v1.xls