Discussion :

[cyr.il10]

Bonjour,
J'ai un soucis avec ma macro, je ne vois pas ou est l'erreur
J'aimerais remplir la colonne B d'une feuille à partir du numéro client en colonne A dont les deux premiers chiffres renseignent sur le numéro de département.
Ce numéro de département présent dans une autre feuille correspond à une personne avec ses initiales en commentaires.
J'aimerais ainsi compléter automatiquement la colonne B .

Fichier en PJ , je vous remercie d'avance

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
 
Sub Initiales()
Dim Classeurinitiales As Workbooks
Dim NumeroDepartement As String
Dim Colonne As Variant
Dim Initiales
Set Classeurinitiales = GetObject("C:\Documents and Settings\Cyrille.DECHANCE-C6FF05\Bureau\Classeurinitiales.xlsx")
Range("A2").Select
While ActiveCell.Value <> ""
NumeroDepartement = Left(ActiveCell.Select, 2)
Colonne = Classeurinitiales.Sheets(1).Range("A2:C5").Find(What:=NumeroDepartement, LookIn:=xlFormulas, LookAt:=xlWhole).Address
Colonne = Range(Colonne).Column
Colonne = CInt(Colonne)
Initiales = Classeurinitiales.Sheets(1).Cells(2, Colonne).Comment.Text
ActiveCell.Offset(0, 1).Range(“A1”).Select
ActiveCell.FormulaR1C1 = Initiales
ActiveCell.Offset(-1, 1).Range(“A1”).Select
Wend
Set Classeurinitiales = Nothing
Workbooks(“Classeurinitiales.xlsx”).Close
End Sub