Bonsoir,
J'ai sur la ligne 1 des cellules avec des intitulés, je souhaite remplacer ces intitules par des autres plus parlant
F92KY F92PRG F92ARG F9TP
je souhaite avoir a la place :
Clé unique libelle libre Chemin
Je ne souhaite pas utiliser la fonction choisir qui me limite en nbre de choix
je souhaite modifier ce code :
Merci de votre aide
bon dimanche
J'ai sur la ligne 1 des cellules avec des intitulés, je souhaite remplacer ces intitules par des autres plus parlant
F92KY F92PRG F92ARG F9TP
je souhaite avoir a la place :
Clé unique libelle libre Chemin
Je ne souhaite pas utiliser la fonction choisir qui me limite en nbre de choix
je souhaite modifier ce code :
Code:
ption Base 1
Function MAVAL(MACEL As Range)
t1 = Array("F910KY", "F910LIB", "F910CHEMIN", "F910TXT", "T910910MED", "T910910NAT", "K910TD4NATMEMO", "F910RICHE", "F910DTOPE")
t2 = Array("Clé unique F910", "libelle libre", "Chemin", "le memo", "média", "Nature", "Code nature de mémo", "Texte riche", "Date de saisie")
x = Application.Match(MACEL, t1, 0)
If Not IsError(x) Then MAVAL = t2(x)
End Function
Sub associe()
Dim rng As Range, l As Range
Set rng = Range("L3:L" & Range("C65000").End(xlUp).Row)
For Each l In rng
If c.Offset(0, 1) <> "" Then l = MAVAL(l.Offset(0, 1))
Next
End Sub
Merci de votre aide
bon dimanche