Bonjour le forum,
J'ai un fichier ou j'aimerais répertorier les différents numéros de téléhpone de chaque client.
J'ai donc utilisé des macros.
Pour obtenir le premier numéro de telephone, j'ai utiliser cette macro:
Jusque là tout va bien.
Puis pour obtenir le 2ème n° de téléhphone, j'ai utilisé cette macro:
Cependant cette macro ne fonctionne pas parfaitement. (elle fonctionne que si je supprime la ligne 2).
Pouvez-vous m'aider à résoudre ce problème svp? (fichier en pièce jointe).
J'ai un fichier ou j'aimerais répertorier les différents numéros de téléhpone de chaque client.
J'ai donc utilisé des macros.
Pour obtenir le premier numéro de telephone, j'ai utiliser cette macro:
Code:
Dim L As Long, TEL1 As Variant
For L = 2 To 35987
If Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" And TEL1 = "" Then
TEL1 = Cells(L, 16).Value
ElseIf Cells(L, 2).Value = "HOV" Then
Cells(L, 15).Value = TEL1
TEL1 = ""
End If
Next L
End Sub
Jusque là tout va bien.
Puis pour obtenir le 2ème n° de téléhphone, j'ai utilisé cette macro:
Code:
Sub Essai()
Dim L As Long, TEL2 As Variant
For L = 2 To 35987
If Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" And TEL2 = "" Then
TEL2 = Cells(L, 16).Value
ElseIf Cells(L, 2).Value = "HOV" And Cells(L, 15).Value <> TEL2 And Cells(L, 15).Value <> "" Then
Cells(L, 16).Value = TEL2
TEL2 = ""
ElseIf Cells(L, 2).Value = "HOV" Then
TEL2 = ""
End If
Next L
End Sub
Pouvez-vous m'aider à résoudre ce problème svp? (fichier en pièce jointe).
Pièces jointes
Dernière édition: