Bonjour à tous,
J'ai fait une petite macro mais qui ne fonctionne malheureusement pas !
La formule Index est bien appliquée sur toute la sélection. En fin de macro, je souhaite enlever la formule des cellules pour ne laisser que les valeurs mais la macro plante au niveau du collage spéciale. Je soupçonne la fonction index de perturber la macro mais je n'arrive pas à saisir le pourquoi du comment !
merci de votre aide !
Florian
ci-après la macro
Sub Nom_aléatoire()
'
' Nom_aléatoire Macro
'
'
Range("C2:C366,E2:E366,G2:G366,I2:I366").Select
Selection.FormulaR1C1 = "=INDEX(BDD!R2C1:R439C1,INT(RAND()*365)+1)"
Range("C2:C366,E2:E366,G2:G366,I2:I366").Select
Selection.Copy
Sleection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
J'ai fait une petite macro mais qui ne fonctionne malheureusement pas !
La formule Index est bien appliquée sur toute la sélection. En fin de macro, je souhaite enlever la formule des cellules pour ne laisser que les valeurs mais la macro plante au niveau du collage spéciale. Je soupçonne la fonction index de perturber la macro mais je n'arrive pas à saisir le pourquoi du comment !
merci de votre aide !
Florian
ci-après la macro
Sub Nom_aléatoire()
'
' Nom_aléatoire Macro
'
'
Range("C2:C366,E2:E366,G2:G366,I2:I366").Select
Selection.FormulaR1C1 = "=INDEX(BDD!R2C1:R439C1,INT(RAND()*365)+1)"
Range("C2:C366,E2:E366,G2:G366,I2:I366").Select
Selection.Copy
Sleection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub