Bonjour
je souhaite récupérer la valeur d'une case ici F1 : les valeurs texte vont de "01" à "99".
et l' insérer dans le nom d'une image avec le préfixe EMP.
le but, je change la valeur de la case F1 et je modifie la formule du nom de l'image qui va chercher une autre plage nommée EMP_01, EMP_02, etc.
je n'arrive pas a intégrer cela dans la formule.
Une idée?
Merci d'avance
Sub Maj_impression()
'
' Maj_impression Macro
'
Range("F1").Select
ActiveCell.FormulaR1C1 = "01" 'prendre la valeur de la cellule F1 (du texte)
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Formula = "=EMP_01" 'integrer la valeur de la cellule dans la formule du type EMP_ la valeur de F1
Range("C9").Select
End Sub
je souhaite récupérer la valeur d'une case ici F1 : les valeurs texte vont de "01" à "99".
et l' insérer dans le nom d'une image avec le préfixe EMP.
le but, je change la valeur de la case F1 et je modifie la formule du nom de l'image qui va chercher une autre plage nommée EMP_01, EMP_02, etc.
je n'arrive pas a intégrer cela dans la formule.
Une idée?
Merci d'avance
Sub Maj_impression()
'
' Maj_impression Macro
'
Range("F1").Select
ActiveCell.FormulaR1C1 = "01" 'prendre la valeur de la cellule F1 (du texte)
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Formula = "=EMP_01" 'integrer la valeur de la cellule dans la formule du type EMP_ la valeur de F1
Range("C9").Select
End Sub