Comment faire une macro Qui

Jimy

03/12/2007 à 03:34

Bonjour Camille.
Je ne trouve pas de section "Macro complémentaire dans Excel 2007 :(
et comme il est assez nouveau, je ne sais vraiment pas ou le trouver
Mais le prob. ne vient pas de la il le surligne et c'est donc :
ActiveCell) qui bug.
sais tu d'ou cela vient ?
encore merci de ton aide :)
Jimmy
"Ellimac" a écrit dans le message de
news:

Re,

Je pense que le problème peut venir de la macro complémentaire Utilitaires
d'analyse.
Il faut aller dans Outils/Macros complémentaires et cocher Utilitaires
d'analyse.

Camille

Bonjour Camille.
Je viens d'essayer le code mais il me met : Erreur de compilation...
Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s
Merci de ton coup de main (treeees sympa )
Bye
Jimmy
"Ellimac" a écrit dans le message de
news:
Bonjour,

Un début de solution. Les macros suivantes renvoient en M1:M7 une plage
de
valeurs entre 1 et 50.

Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub

Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub

Camille

Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a
50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy

Jimy

03/12/2007 à 03:55

Rebonjour .
Encore moi.
Je viens de modifier ( juste supprimé "ActiveCell)" ) la formule, et il me
donne [M1:M7] 7cellules avec l'erreur: #NOM ?
je te montre la ligne que j'ai modifié;
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell) et j'ai supprimé le deuxieme ActiveCell) qui était surligné.
je pense qu'elle devrait marcher en la modifiant un peu.... Mais quoi ? :-s

merci encore
Jimmy
"Ellimac" a écrit dans le message de
news:

Re,

Je pense que le problème peut venir de la macro complémentaire Utilitaires
d'analyse.
Il faut aller dans Outils/Macros complémentaires et cocher Utilitaires
d'analyse.

Camille

Bonjour Camille.
Je viens d'essayer le code mais il me met : Erreur de compilation...
Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s
Merci de ton coup de main (treeees sympa )
Bye
Jimmy
"Ellimac" a écrit dans le message de
news:
Bonjour,

Un début de solution. Les macros suivantes renvoient en M1:M7 une plage
de
valeurs entre 1 et 50.

Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub

Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub

Camille

Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a
50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy

Jimy

05/12/2007 à 02:21

Bonjour.
J'attendais apres le weekend un petite réponse ...
tu as réessayé la formule ? elle me met toujours erreur #NOM?
et je ne sais toujours pas comment faire...
Tout aide est bienvenu, merci
Jimmy
"Ellimac" a écrit dans le message de
news:

Re,

Je pense que le problème peut venir de la macro complémentaire Utilitaires
d'analyse.
Il faut aller dans Outils/Macros complémentaires et cocher Utilitaires
d'analyse.

Camille

Bonjour Camille.
Je viens d'essayer le code mais il me met : Erreur de compilation...
Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s
Merci de ton coup de main (treeees sympa )
Bye
Jimmy
"Ellimac" a écrit dans le message de
news:
Bonjour,

Un début de solution. Les macros suivantes renvoient en M1:M7 une plage
de
valeurs entre 1 et 50.

Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub

Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub

Camille

Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a
50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy

Comment faire une macro Qui

3 réponses

Veuillez sélectionner un problème