Discussion :

[Yhira]

Bonjour,

Je me permets de solliciter votre aide car le code ci-dessous le fonctionne pas.

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
 
Sub Feuill2_Bouton1_Cliquer()
 
p = 0
For a = 1 To Worksheets("Feuill1").Cells(1, 1).Value
 
    If Worksheets("Feuill1").Cells(2 + a, 3).Value = "G" Then
 
       Sheets("Feuill2").Range(Cells(9 + p, 2), Cells(9 + p, 12)).Value = Sheets("Feuill1").Range(Cells(2 + a, 2), Cells(2 + a, 12)).Value
       p = p + 1
    End If
 
Next a
 
End Sub

Dans un tableau présentant un nombre de lignes variable compté via "Worksheets("Feuill1").Cells(1, 1).Value", je souhaite copier de feuil1 à feuil2 les lignes quand la valeur de la 2e colonne d'une ligne est "G".

a permet d'avancer les lignes de feuil1 et p d'avancer les lignes dans feuil2.

Tout fonctionne sauf la partie "Sheets("Feuill1").Range(Cells(2 + a, 2), Cells(2 + a, 12)).Value". Quand je la remplace simplement par "1", ca marche correctement (en me mettant 1 partout et non pas les valeurs que je souhaite, forcement. ).

Merci par avance pour votre aide !

Yhira

[Marc-L]

Bonjour,

pour copier des données sous condition d'une feuille à une autre :

Les filtres avancés ou élaborés dans Excel …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Yhira]

Bonsoir,

Merci, je vais regarder tout ça.