Copier des cellules selon des cdt d'1 feuille à 1 autres

Bonjour,

Je souhaiterai copier le contenu de la feuille1 dans la feuille2, si la colonne D de la feuille1 est egal à 20 et la colonne ai à 50.

Sachant que la feuille 1 commence de A2 : AR4000. Et le feuille 2 à partir de B9.

J’ai mis en place le code suivant mais il ne fonctionne pas. Merci pour votre aide.

Sub DATA1()

Dim nbligne As Long

nbligne = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To nbligne

catégorie1 = Worksheets("Feuil1").Cells(i, 4).Value

catégorie2 = Worksheets("Feuil1").Cells(i, 35).Value

If catégorie1 = "10" or catégorie2 = "50" Then

With Worksheets("Feuil2")

.Cells(9, 2) = Worksheets("Feuil1").Cells(i, 1).Value

End With

End If

Next

End Sub

Salut,

Si tu nous avais fourni un fichier, ça aurait été plus simple pour effectuer des essais.

Si je t’ai bien compris, le code ci-dessous devrait faire l’affaire.

Sub DATA1()
Dim i As Long, nbligne As Long

Application.ScreenUpdating = False

nbligne = Range("B" & Rows.Count).End(xlUp).Row

With Worksheets("Feuil2")
    For i = 2 To nbligne
        If Range("D" & i) = 20 And Range("AI" & i) = 50 Then
            .Cells(.Range("B" & Rows.Count).End(xlUp).Row + 1, 2) = Cells(i, 1)
        End If
    Next

    .Select
End With

End Sub

Pour l’instant, si tu lances plusieurs fois le code, les données sont ajoutées les unes à la suite des autres. Si nécessaire, on pourrait effacer les données reportées précédemment lors du lancement du code.

Cordialement.

Salut,

Je te laisse voir le point 8 de notre Charte

Explications et règles à respecter

A la prochaine

Bonjour, j'ai aussi une question sur le déplacement de données.

Alors attention: Moi je n'y connais que très peu, (les fonctions de base. Rien sur le VBA?).

Ma question: Depuis Excel 2007; Je souhaite avec une formule quelconque: déplacer des textes dans une colonne, vers une ligne.

C'est à dire: j'ai dans la colonne A:

Cellule A2: Ail blanc - 3 têtes

Cellule A3:Oignon jaune Cal 70 mm

Cellule A4:Echalote cuisse de dinde

Cellule A5:Oignon rouge Cal 60/80 mm

Cellule A6:Echalote olive

... j'ai plus de 230 lignes.

Je veux avoir dans la ligne:1

Cellule A1: Ail blanc - 3 têtes; Cellule B1: Echalote cuisse de dinde;

Cellule C1:Echalote cuisse de dinde ...

Évidement pas question de glisser déplacer avec la souris

Peut-être une petite programmation simple? Peut être une petite formule qu'ensuite je peux copier coller la valeur donné uniquement???

Merci de votre aide.

Salut Odul et bienvenue sur le Forum,

Tu aurais dû ouvrir ton propre fil en cliquant sur le bouton "Nouveau", alors je te laisse reposer ta question.

N'oublie pas qu'un fichier exemple multiplie par 37 tes chances d'obtenir une réponse.

Cordialement.

Ah d'accord merci

C'est que j'avais parcouru le forum pour trouvé ma réponse dans un ancien post. Je n'avais pas trouvé de solution qui réponde exactement à ma question.

Alors quand j'ai vu que e ce message était le plus proche de mon problème, j'ai posé ma question ici.