[Excel - VBA] cellule

Résolu

nino11 Messages postés 76 Statut Membre -
lermite222 Messages postés 9042 Statut Contributeur - 7 juin 2008 à 21:46

Bonjour,

J'ai créer un fonction qui affecte une valeur aléatoire à une cellule... Cependant, pour que cette fonction fonctionne, il faut passer OBLIGATOIREMENT en paramètres une cellule de la feuille Excel... Mais je n'arrive pas à la passé, on me retourne un message d'erreur... INCOMPATIBILITÉ DE TYPE

Configuration: Windows XP
Firefox 2.0.0.14

Afficher la suite

5 réponses

Réponse 1 / 5
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention 4 744

bonjour

Il faut que tes données aient le même type car si tu veux faire du calcul avec du texte c'est une incompatibilité de type.
0
1. nino11 Messages postés 76 Statut Membre
  
  oui, je sais, mais moi, je souhaite passer en paramètre un cellule vide pour y affecter un valeur générée aléatoirement.
  
  0
Réponse 2 / 5
lermite222 Messages postés 9042 Statut Contributeur 1 199

Bonjour,
Montre la macro que tu a fait, ca aidera...
A+
0
1. nino11 Messages postés 76 Statut Membre
  
  Public Sub aleatoire(cell as !!C'est la que le type convient pas!!)
  
  Randomize
  
  cell = (Int((5 * Rnd) + 1))
  
  End Sub
  
  ___________________________________________________
  Sinon, j'ai essayé un truc comme ça
  ___________________________________________________
  
  Public Sub aleatoire()
  
  Randomize
  
  aleatoire = (Int((5 * Rnd) + 1))
  
  End Sub
  
  0
Réponse 3 / 5
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention 4 744

bonjour

Ta deuxième formule est la bonne car une fonction met son résultat dans la cellule qui l'appelle.

Une procédure "sub" peut agir sur une autre cellule mais on ne peut pas l'utiliser comme fonction.
0
Réponse 4 / 5
lermite222 Messages postés 9042 Statut Contributeur 1 199
bonjour,
Un peu contredire gbinforme mais aucune des deux n'est valable, remplacer par
```
Public Function aleatoire() 
Randomize 
aleatoire = (Int((5 * Rnd) + 1)) 
End Function
```
Avec ca tu va l'avoir dans la cellule d'appel, pour réinitialiser, sélectionner la cellule, mettre le curseur sur la barre d'édition (au bout) et taper Enter
A+
0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Réponse 5 / 5
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention 4 744
bonjour

Il suffit aussi de mettre ceci et de faire F9
```
Public Function aleatoire() 
application.volatile
Randomize 
aleatoire = (Int((5 * Rnd) + 1)) 
End Function
```
0
1. lermite222 Messages postés 9042 Statut Contributeur 1 199
  
  comme quoi ont apprend tout les jours..
  connaissais pas
  application.volatile
  
  0
2. nino11 Messages postés 76 Statut Membre > lermite222 Messages postés 9042 Statut Contributeur
  
  Ca sert à quoi aplication.volatile
  
  0
3. lermite222 Messages postés 9042 Statut Contributeur 1 199 > nino11 Messages postés 76 Statut Membre
  
  Quand tu as une tel question... Tu sélectionne le mot et tu tape F1.. Voir l'aide.
  Ca sert à réinitialiser la fonction à chaque recalcul de la feuille et F9 oblige le recalcul.
  
  0
4. nino11 Messages postés 76 Statut Membre > lermite222 Messages postés 9042 Statut Contributeur
  
  ok, merci, je vais testé tout ça... ;)
  
  0
5. nino11 Messages postés 76 Statut Membre > lermite222 Messages postés 9042 Statut Contributeur
  
  Euh, ce que tu m'as filé marche, mais j'ai une autre procédure qui marche pas...
  
  Public Sub Tirs_aux_buts(cell1 As Range, cell2 As Range)
  
  Randomize
  
  For i = 1 To 5
  If (Int((1 * Rnd) + 0)) = 1 Then
  cell1 = cell1 + 1
  End If
  
  If (Int((1 * Rnd) + 0)) = 1 Then
  cell2 = cell2 + 1
  End If
  Loop
  
  While cell1 = cell2
  If (Int((1 * Rnd) + 0)) = 1 Then
  cell1 = cell1 + 1
  End If
  
  If (Int((1 * Rnd) + 0)) = 1 Then
  cell2 = cell2 + 1
  End If
  Wend
  
  End Sub
  
  0

[Excel - VBA] cellule

5 réponses

Discussions similaires

Newsletters