Macro excel langage VBA
Thiberte
-
Thiberte -
Thiberte -
Bonjour,
Je voudrais créer une macro sur Excel qui calculerais la moyenne de deux nombres et qui afficherais un message d'erreur si la valeur n'est pas comprise entre deux autres valeurs, variable en fonction de la saisi.
En clair ma question est que doit-on écrire pour que la macro affiche un message si la valeur est trop petite ou trop grande ?
Pour l'intant mon travail donne cela:
Dim moyenne As String
moyenne = Cells(10, 7)
Dim limsup As String
Dim liminf As String
limsup = Cells(4, 10)
liminf = Cells(4, 9)
If liminf < moyenne < limsup Then
moyenne = MsgBox("Densité correcte")
End If
Merci d'avance de votre attention pour mon post et de vos éventuelles réponses.
P.S: ça fait deux jours que j'avance pas à cause de ce truc donc je vous implore à genoux aidez moi :P
Je voudrais créer une macro sur Excel qui calculerais la moyenne de deux nombres et qui afficherais un message d'erreur si la valeur n'est pas comprise entre deux autres valeurs, variable en fonction de la saisi.
En clair ma question est que doit-on écrire pour que la macro affiche un message si la valeur est trop petite ou trop grande ?
Pour l'intant mon travail donne cela:
Dim moyenne As String
moyenne = Cells(10, 7)
Dim limsup As String
Dim liminf As String
limsup = Cells(4, 10)
liminf = Cells(4, 9)
If liminf < moyenne < limsup Then
moyenne = MsgBox("Densité correcte")
End If
Merci d'avance de votre attention pour mon post et de vos éventuelles réponses.
P.S: ça fait deux jours que j'avance pas à cause de ce truc donc je vous implore à genoux aidez moi :P
A voir également:
- Macro excel langage VBA
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
2 réponses
Bonjour
1. D'après ton code, la "moyenne" est déjà calculée dans la feuille Cell(10,7)
2. les valeurs dans la feuilles sont de type numérique et non caratère
3. Pour le reste
Cdlmnt
1. D'après ton code, la "moyenne" est déjà calculée dans la feuille Cell(10,7)
2. les valeurs dans la feuilles sont de type numérique et non caratère
3. Pour le reste
Dim moyenne As String
Dim limsup As single
Dim liminf As single
Dim moyenne as single
moyenne = Cells(10, 7)
limsup = Cells(4, 10)
liminf = Cells(4, 9)
If liminf < moyenne and moyenne < limsup Then
MsgBox "Densité correcte"
Else
MsgBox "Densité incorrecte"
End If
Cdlmnt
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci par un clic droit sur le lien proposé dans le message de réponse
Dans l’attente
Si je puis me permettre d'abuser encore de votre gentillesse, savez-vous comment on enregistre les données saisies dans une boite de dialogue les un après les autres sur une même colonne ?
J'ai trouvé ces fonctions :
MsgBox Range("A1").End(xlDown).Row
Range("A1").End(xlDown).Offset(1, 0).Select
Mais je ne comprend pas comment les utiliser
Merci d'avance
pour relayer CCM81 (bonjour, ca va ?) :o)
pour trouver la 1° ligne vide d'une colonne
ligvid=Columns("A").find("",range("A1"),xlvalues).row'et activer la cellule
Range("A" & ligvid).select
Oui c'est très compliqué c'est pour cela que votre aide m’aie très précieuse.
merci d'avance