Problème sur VBA - VB/VBA/VBS - Programmation
Marsh Posté le 10-03-2004 à 15:06:04
Mon problème ce porte principalement sur ces quelques lignes :
Range("F7" ).Select
ActiveCell.FormulaR1C1 = _
"=DGET('Base de données'!C[-4]:C[9],R[-1]C,R[-1]C[6]:RC[6])"
Marsh Posté le 10-03-2004 à 15:26:24
e sais pas trop ce que fait la formule DGET mais ca concerne la feuille Base de données
Marsh Posté le 10-03-2004 à 14:46:58
Est-ce quelqu'un peut me déchiffrer se code, merci
Range("B7" ).Select
ActiveCell.FormulaR1C1 = _
"=DGET('Base de données'!C[-3]:C[10],R[-1]C,R[-1]C[7]:RC[7])"
Range("F7" ).Select
ActiveCell.FormulaR1C1 = _
"=DGET('Base de données'!C[-4]:C[9],R[-1]C,R[-1]C[6]:RC[6])"
Selection.Locked = True
Selection.FormulaHidden = False
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("E17:G17" ).Select
Selection.Locked = True
Selection.FormulaHidden = False
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("I5:J5" ).Select