Discussion :

[Olivm]

Bonjour le forum.

Dans le cadre de mon stage, je souhaite créer un annuaire (40 000 lignes sur Excel donc à automatiser).
A partir de plusieurs bases de données, j'ai rapprochés les différentes informations des mêmes clients que l'on pouvait trouver.

Cependant, lorsque l'on retrouve plusieurs numéros de téléphone, je n'arrive pas saisir sur la même ligne, qui regroupe les informations, les 2 numéros de téléphone.

Pourtant ma macro me paraît cohérente mais je n'arrive pas au résultat voulu.
J'aimerais donc bénéficier de votre aide



Pour info, ma macro:

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
Sub Essai()
 
Dim L As Long, TEL1 As Variant, TEL2 As Variant
 
For L = 2 To 35777
 
 If Cells(L, 3).Value <> Cells(L - 1, 3).Value Then
  TEL1 = ""
  TEL2 = ""
 End If
 
 
 If Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" Then
  TEL1 = Cells(L, 16).Value
 ElseIf Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" And Cells(L, 16) <> TEL1 Then
  TEL2 = Cells(L, 16).Value
 End If
 
 
 If Cells(L, 2).Value = "HOV" Then
  TEL1 = Cells(L, 15).Value
  TEL2 = Cells(L, 16).Value
 End If
 
 
Next L
 
 
End Sub

[Jean-Pierre49]

Bonjour

Impossible de prendre ton fichier

Néanmoins, je ne comprends pas ce que doit faire

Code :

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

1
2
3
4
5
If Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" Then
  TEL1 = Cells(L, 16).Value
 ElseIf Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" And Cells(L, 16) <> TEL1 Then
  TEL2 = Cells(L, 16).Value
 End If

En fait je ne comprends pas ce que doit faire tout ce code
Tu dis
Bon courage

[Daniel.C]

Bonjour,

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
Sub Essai()
 
Dim L As Long, TEL1 As Variant, TEL2 As Variant
 
For L = 2 To 35777 'pour toutes les lignes du tableau
 
 If Cells(L, 3).Value <> Cells(L - 1, 3).Value Then 'si il s'agit d'un nouveau client (nouveau ensemble de lignes)
  TEL1 = ""   'on remet les variables à 0
  TEL2 = ""
 End If
 
 
 If Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" And TEL1 = "" Then 'si on est pas sur une ligne de récap client et qu'il y a un n° de tel, alors...
  TEL1 = Cells(L, 16).Value 'on enregistre dans la variable ce n° de tél
 ElseIf Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" And Cells(L, 16) <> TEL1 Then 'sinon , si il existe déjà un TEL1 (pour cette ensemble de ligne du même client car les variables n'ont pas été réinitialisées)
  TEL2 = Cells(L, 16).Value 'on enregistre tel2
 End If
 
 
 If Cells(L, 2).Value = "HOV" Then  'sur la ligne HOV récapitulative client
  Cells(L, 15).Value = TEL1 'on inscrit les 2 numéros de tel enregistrés
  Cells(L, 16).Value = TEL2
 End If
 
 
Next L
 
 
End Sub

[Jean-Pierre49]

Ok Daniel.C

Alors

Pourtant ma macro me paraît cohérente mais je n'arrive pas au résultat voulu.

Cordialement

[Olivm]

Merci Daniel, ça marche

Bonne soirée!