Discussion :

[Guizmonster]

Bonjour,

Je voudrais faire une macro qui va copier certaines cellules (par exemple les cellules des colonnes A, D, F, H de la ligne) d'une ligne de ma feuille de départ ("feuil1") vers une autre feuille ("feuil2") si des conditions sont remplies. En partant avec le code ci-dessous, je suis capable de copier la ligne entière ou une cellule mais pas certaines cellules seulement.

Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
DERNIERELIGNE = Range("B" & Rows.Count).End(xlUp).Row
For I = 2 To DERNIERELIGNE
    If Cells(I, 11) = "texte1" And Cells(I, 13) = "texte2" Then
 
    End If
Next
 
End Sub

[Menhir]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
    Dim Lig As Long, I As Long
    Dim WS1 As Worksheet, WS2 As Worksheet
 
    Set WS1 = Worksheets("feuil1")
    Set WS2 = Worksheets("feuil2")
    Lig = 2
    For I = 2 To WS1.Range("B" & Rows.Count).End(xlUp).Row
        If WS1.Cells(I, 11) = "texte1" And WS1.Cells(I, 13) = "texte2" Then
            WS1.Cells(I, "A").Copy WS2.Cells(Lig, "A")
            WS1.Cells(I, "D").Copy WS2.Cells(Lig, "B")
            WS1.Cells(I, "F").Copy WS2.Cells(Lig, "C")
            WS1.Cells(I, "H").Copy WS2.Cells(Lig, "D")
            Lig = Lig + 1
        End If
    Next I
 
End Sub

En partant avec le code ci-dessous, je suis capable de copier la ligne entière ou une cellule

Il est peu probable que le code que tu as présenté copie quoi que ce soit.

[Guizmonster]

Bonjour Menhir,
Je vais tester ton code demain. Quand je disais avec ce code, j'avais retiré la partie après le Then.

Merci en tout cas car tu réponds souvent à mes demandes.

PS: J'allais chercher les titres des dites colonnes qui sont sur la première ligne par une autre macro. Existe-t-il un moyen de les intégrer par cette macro pour faire un truc plus propre?

[Menhir]

Quand je disais avec ce code, j'avais retiré la partie après le Then.

C'était juste histoire de compliquer la tâche de ceux qui se pencheront sur ton problème ?

PS: J'allais chercher les titres des dites colonnes qui sont sur la première ligne par une autre macro. Existe-t-il un moyen de les intégrer par cette macro pour faire un truc plus propre?

Copier les lignes 10 à 14 avant le For To en remplaçant I par 1.

[Guizmonster]

Cela marche parfaitement.

Néanmoins je vais chercher ces données dans un tableau donc le .copy recopie également la mise en forme du tableau. Existe-t-il une possibilité de ne recopier que les valeurs ou texte?

[Menhir]

Au moins deux solutions (il en existe certainement plus).

Code :

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

WS2.Cells(1, "A") = WS1.Cells(1, "A")

ou

Code :

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

WS1.Cells(1, "A").Copy : WS2.Cells(1, "A").PasteSpecial(xlPasteValue)