Discussion :

[fransky]

Bonjour,

Je rencontre un problème pour transférer des données d'une feuille à l'autre :

En feuille 1, j'ai un tableau de gestion commerciale avec différentes données et une colonne Origine 1 ou se trouve différents lieux (Foires&Salons, Internet, TéléMarketing,....)

En feuille 2, j'ai un tableau qui doit réceptionner automatiquement toutes les données qui correspondent à Foires&Salons se trouvant dans la feuille 1 (Nom, Prénom,Adresse,....).

Foires&Salons apparaissent sur la feuille 1 dans une liste déroulante faite par Données Validation mais je n'arrive pas à transférer les données correctement car si j'utilise la fonction Recherche, cela me laisse des lignes blanches dans le cas ou en Feuille 1, je n'ai pas Foires&Salons qui apparait.

Pouvez-vous m'aider s'il vous plait.

Merci d'avance,

[Touffe54]

Salut,

Je t'ai écrit une petite boucle, qui devrait peut être faire ce que tu souhaites.

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
 
Sub Tagada()
    sheets("Feuille2").select   ' Sélection de la première cellule
    range("A1").select           ' dans feuille destination
    sheets("Feuille1").select
    range("A1").select    ' Colonne A est la colonne "Origine1"
 
    while activecell<>""
        if activecell="Foires&Salons" then
            activecell.entirerows.copy
            sheets("Feuille2").select
            activecell.entirerows.pastespecial xlpasteall
            activecell.offset(1,0).select
       end if
    sheets(("Feuille1").select
    activecell.offset(1,0).select
    wend

Si t'as des questions...

[MarcelG]

Bonjour à tous les deux, et bonjour au forum;

Houlala !

Passons-nous des

Code :

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

Select

A adapter

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
Option Explicit
 
Public Sub Essai()
Dim c As Range, colle As Range
Application.ScreenUpdating = False
Set colle = Sheets("Feuil2").Range("A2")
Sheets("Feuil1").Activate
For Each c In Sheets("Feuil1").Range("A2", Range("A" & Rows.Count).End(xlUp))
    With c
        If c = "foire" Then
            Range(.Offset(0, 1), .Offset(0, .CurrentRegion.Columns.Count - 1)).Copy colle
            Set colle = colle.Offset(1, 0)
        End If
    End With
Next
End Sub