[Excel - VBA] cellule

Résolu/Fermé

nino11 Messages postés 76 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 27 juin 2008 - 7 juin 2008 à 11:12
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 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

A voir également:

[Excel - VBA] cellule
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Verrouiller cellule excel - Guide
Formule excel pour additionner plusieurs cellules - Guide

5 réponses

Réponse 1 / 5

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 710
7 juin 2008 à 12:28

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.

nino11 Messages postés 76 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 27 juin 2008
7 juin 2008 à 14:08

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.

Réponse 2 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 juin 2008 à 14:20

Bonjour,
Montre la macro que tu a fait, ca aidera...
A+

nino11 Messages postés 76 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 27 juin 2008
7 juin 2008 à 14:25

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

Réponse 3 / 5

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 710
7 juin 2008 à 16:50

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.

Réponse 4 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 juin 2008 à 17:36

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+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 710
7 juin 2008 à 17:49

bonjour

Il suffit aussi de mettre ceci et de faire F9

Public Function aleatoire() 
application.volatile
Randomize 
aleatoire = (Int((5 * Rnd) + 1)) 
End Function

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 juin 2008 à 18:10

comme quoi ont apprend tout les jours..
connaissais pas

application.volatile

nino11 Messages postés 76 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 27 juin 2008 > lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020
7 juin 2008 à 18:33

Ca sert à quoi aplication.volatile

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190 > nino11 Messages postés 76 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 27 juin 2008
7 juin 2008 à 18:53

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.

ok, merci, je vais testé tout ça... ;)

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

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

Excel si cellule contient texte alors...