VBA afficher toutes les valeurs en fonction d'une condition

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/07/2017, 14h46
zaza45

VBA afficher toutes les valeurs en fonction d'une condition
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:

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

Bonjour,

Code:

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

05/07/2017, 15h25
zaza45

Bonjour

Merci pour votre réponse mais il ne se passe rien
05/07/2017, 15h28
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.

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

Code:

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

05/07/2017, 15h42
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é.
05/07/2017, 15h48
zaza45

Comment exécute-on du pas à pas
05/07/2017, 15h51
Invité

Dans ton éditeur VBA (tu y a accèdes avec Alt +F11), tu cliques dans ta macro et tu appuies sur F8 pour lancer le pas à pas, sa te permet d'exécuter ton code ligne par ligne (pour passer d'une ligne à l'autre il faut appuyer sur F8).
05/07/2017, 15h51
zaza45

Si je fais F8 sur chaque ligne le curseur reste sur la feuille 1 en A1
05/07/2017, 16h35
zaza45

En exécutant la macro je me suis rendue compte que j'avais oublié un paramètre

Si dans la feuille1 col E j'ai la valeur qu'il y a dans la feuille2 alors je copie la valeur en col A de la feuille1 dans la feuille2 en c6.

Et je dois faire la même chose pour plusieurs feuilles en fonction leur code copier la valeur de la col A de la feuille1 dans la feuille adéquate.

Je ne sais pas si je suis très claire

Après plusieurs réflexions, voici le résultat que j'aimerai obtenir pour une feuille mais le code n'est pas bon. En plus il faudrait le faire pour toutes les feuilles du classeur.
Code:

1 2 3 4 5 6 7 8 9 Sheets("feuille1").Select Range("A1").Select Dim i As Long For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Sheets("feuille1").Range("e2:e").Value = Sheets("feuille2").Range("A4") Then Sheets("feuille1").Range("A1:A" & i).Copy Worksheets("feuille2").Range("C6") End If Next
Merci pour votre aide

06/07/2017, 08h48
Invité

Citation:

Envoyé par zaza45

En exécutant la macro je me suis rendue compte que j'avais oublié un paramètre

Si dans la feuille1 col E j'ai la valeur qu'il y a dans la feuille2 alors je copie la valeur en col A de la feuille1 dans la feuille2 en c6.

Et je dois faire la même chose pour plusieurs feuilles en fonction leur code copier la valeur de la col A de la feuille1 dans la feuille adéquate.

Je ne sais pas si je suis très claire

Bonjour,

Si j'ai bien compris, si tu as n'importe où dans ta colonne E de ta feuille la valeur présente dans une des cellules de ta feuille2 (laquelle ?), tu fais ton copier coller ? Et l'objectif final est de faire ceci pour plusieurs feuilles à la fois ?
06/07/2017, 08h50
zaza45

Bonjour

je relance ma demande car à cette heure je n'ai pas trouvé de solution pour ma macro.

Peut-être y a t-il une solution excel

Si dans la feuille2 j'ai une valeur en a4 qui est 04,
A chaque fois que je trouve cette valeur dans la feuille 1 en col E

j'affiche la valeur de la col 1 dans la feuille 2 à partir de C6 et ainsi de suite pour toutes les valeur 04 que je vais trouver dans la feuille 1.

Merci beaucoup pour votre aide parce que je suis complétement perdue
06/07/2017, 09h13
zaza45

Bonjour Oudommer

Oui c'est cela

si à chaque fois que je trouve n'importe où dans la colonne E de la feuille1
la valeur (04 par exemple c'est le code département) qui est dans la feuille 2 en a4

je copie la valeur qui est en col a de la feuille 1 dans la feuille 2 à partir de c6.

j'ai une feuille par département

Il fau que je remplisse chaque feuille à partir de la feuille 1
06/07/2017, 11h05
Invité

Ok, j'essaye d'y réfléchir dès que j'ai du temps (beaucoup de taff aujourd'hui). Dès que j'ai quelque chose je te montre. ;)
06/07/2017, 11h22
zaza45

Merci beaucoup d'essayer parce que je desespère

Voilà un code qui marche de mon côté pour une seule feuille pour l'instant, dit moi ce que tu penses :) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub zaza()
 
    Dim res As Range
    Dim ligne As Integer
    Dim address As String
 
    Set res = Sheets("feuille1").Range("E:E").Find(Sheets("feuille2").Range("A4"))
    ligne = 6
 
    If Not res Is Nothing Then
 
        address = res.address
 
        Do
            Sheets("feuille2").Cells(ligne, 3).Value = Sheets("feuille1").Cells(res.Row, 1).Value
            Set res = Sheets("feuille1").Range("E:E").FindNext(res)
            ligne = ligne + 1
        Loop While Not res Is Nothing And res.address <> address
 
    End If
 
    Set res = Nothing
 
End Sub

06/07/2017, 14h21
zaza45

Cette fois-ci la macro réagi dès que l'on trouve la valeur 04 de la feuille2 ou autre code dept il affiche bien des valeurs de la col 1 de la feuille 1

Mais ce ne sont pas les valeurs en relation avec le code département en a4 sur la feuille2

voici la table principale
FEUILLE 1
CODE DEPT FORMAT TEXTE
TTR-55120-01 84
TTR-55120-02 84
TTR-55120-03 84
TTR-45140-04 04
TTR-84120-01 83
TTR-74130-01 06
TTR-06110-01 66
TTR-84120-02 83
TTR-83155-01 31
TTR-95460-01 45
TTR-84120-03 83

Voici ce que je dois trouvé
FEUILLE 2

EN A4 PAR EX 84
JE DOIS TROUVER EN C6
TTR-55120-01
TTR-55120-02
TTR-55120-03
06/07/2017, 14h58
Invité

Qu'est ce que tu trouves actuellement quand tu lances la macro ?
06/07/2017, 15h12
zaza45

Par exemple si je prends le département 66 il me donne des codes du dept 32-83-30
Il n'y as pas de correspondance même si je change le format des dept en standard

Voir 40 message(s) de cette discussion en une page