Discussion :

[zaza45]

Bonjour

Ne connaissant rien en vba, j'aimerai trouver un code qui affiche dans une feuille2 à partir de C4, toutes les valeurs de la colonne A feuille1 en fonction d'une valeur d'une cellule a1 de la feuille2. La table n'est pas figé et le nombre d'enregistrements évolue.
J'ai commencé par :

Code :

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

1
2
3
4
5
6
Sheets("feuille1").Select
Range("A1").Select
Dim i As Long
 
For x = 1 To cells.Count
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row

mais je ne sais pas du tout comment faire.
Merci beaucoup pour votre aide

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub test()
 
    Dim ligne As Long
 
    ligne = Sheets("feuille1").Cells(Rows.Count, 1).End(xlUp).Row
 
    If Sheets("feuille2").Range("A1").Value = 'ta condition Then
        Sheets("feuille1").Range("A1:A" & ligne).Copy Destination:=Sheets("feuille2").Range("C4")
    End If
 
End Sub

[zaza45]

Bonjour

Merci pour votre réponse mais il ne se passe rien

[Invité]

Ah ? Tu as bien modifié la condition de mon If pour l'adapter à ton cas ? Si tu as un doute montre moi directement le code.

[zaza45]

Ma condition c'est la valeur 04 qui est en format texte
Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sheets("feuille1").Select
    Range("A1").Select     
 
    Dim ligne As Long   
 
 
    ligne = Sheets("feuille1").Cells(Rows.Count, 1).End(xlUp).Row
 
    If Sheets("feuille2").Range("a4").Value = "04" Then
        Sheets("feuille1").Range("A1:A" & ligne).Copy Destination:=Sheets("feuille2").Range("C6")
    End If

[Invité]

Si tu n'as pas d'erreur à l'exécution, tu peux essayer de lancer le code en pas à pas (avec F8) pour voir ce qu'il se passe. Comme sa je dirais que la condition du If n'est pas respecté.