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
Partager