Discussion :

[thib.pe]

Bonjour à tous,

Je vous sollicite car je coince dans le développement d'un formulaire à usage professionnel.
La finalité de mon fichier EXCEL est de compiler dans une seule et même feuille les informations contenues dans les demandes de prospects émanant de plusieurs sources différentes (notre site internet, annuaires de référencement professionnels, ...). Cette feuille sera ensuite utilisée pour importer directement l'ensemble des demandes dans notre base CRM.

Pour l'une de ces sources, je dois procéder de la manière suivante:

1) Extraction des Leads (pistes commerciales) sous forme de tableau EXCEL
2) Copier-Coller de ces informations dans la feuille 1 de mon classeur
3) Utilisation de la feuille 2 pour extraire uniquement les informations destinées à être importées dans notre base CRM
4) Utilisation d'une macro (via un bouton de commande) pour copier ces informations utiles de la feuille 2 et les insérer dans une nouvelle ligne sur la feuille 3

En cherchant sur internet et en copiant des codes, je suis parvenu à obtenir une macro effectuant l'opération décrite en 4).
Le problème que je rencontre est le suivant: il arrive que j'obtienne plusieurs lignes d'informations sur la feuille 2 (chaque ligne correspondant à un Lead). Or, avec la macro que j'utilise actuellement, je ne parviens qu'à copier la première ligne de données.

J'ai donc besoin de modifier la macro de manière à ce que son fonctionnement soit adapté au nombre de lignes d'informations à copier en feuille 2.
Ainsi, si j'ai 6 lignes à copier, la macro doit copier chaque ligne pour la retranscrire à la suite des autres lignes déjà écrites en feuille 3.

J'ai essayé d'être le plus complet possible. Je joins à ce message une version simplifiée du formulaire ne comportant que les feuilles 2 et 3 citées ci-dessus. La macro en question est "Save".

Merci d'avance pour vos réponses!

[Manu3100]

Essaye le code et dis moi si c'est ce que tu cherche a faire:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Sub SaveTest()
 
Dim wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastrow As Long, lastrow2 As Long
Dim i As Integer
 
Set wb = ThisWorkbook
Set ws1 = wb.Sheets("Feuille 1")
Set ws2 = wb.Sheets("Feuille 2")
 
lastrow = ws1.Range("A" & Rows.Count).End(xlUp).Row
 
If MsgBox("Souhaitez-vous enregistrer ce contact?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then
 
    For i = 3 To lastrow
 
        lastrow2 = ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
 
                ws2.Range("A" & lastrow2) = ws1.Range("A" & i)
                ws2.Range("B" & lastrow2) = ws1.Range("B" & i)
                ws2.Range("F" & lastrow2) = ws1.Range("C" & i)
                ws2.Range("G" & lastrow2) = ws1.Range("D" & i)
                ws2.Range("H" & lastrow2) = ws1.Range("E" & i)
                ws2.Range("I" & lastrow2) = ws1.Range("F" & i)
                ws2.Range("J" & lastrow2) = ws1.Range("G" & i)
                ws2.Range("L" & lastrow2) = ws1.Range("H" & i)
                ws2.Range("M" & lastrow2) = ws1.Range("I" & i)
                ws2.Range("U" & lastrow2) = ws1.Range("J" & i)
 
    Next i
 
End If
 
MsgBox "Contact enregistré!", vbOKOnly, "Confirmation"
 
ws1.Select
 
End Sub

Manu

[thib.pe]

Bonjour Manu,

Merci beaucoup, c'est le résultat que je voulais atteindre!

A bientôt!