VBA - Condition si nombre à virgule alors... Résolu

Question

Bonjour, 

Mon problème est simple : je cherche un bout de code VBA qui détermine si un nombre est à virgule ou non. Exemple :


Si n = 3.22 alors
             aligner à droite
Sinon ( n = 3)
             aligner à gauche
Fin si 

Merci!

beber005 · Answer

Bonjour,

Ce que je te conseille de faire c'est

SI ta chaine contient un caractère spécial ici un point ALORS
             aligner à droite
SINON 
             aligner à gauche
FIN Si 

En fait dès que dans ta chaine tu rencontre l'élément point tu en déduis que c'est un nombre à virgule

zivodul8 · Answer

Je n'ai pas réussi à faire un :

Application.WorksheetFunction.Search

Il n'y a pas d'autres méthodes?

blux · Answer

Salut,

tu peux faire ça avec la fonction int(nombre) qui renvoie la partie entière d'un nombre.

Si elle est égale au nombre lui-même, c'est qu'il n'y a pas de virgule.

IF INT(nombre) = nombre THEN
...
END IF

zivodul8 · Answer

Arff, c'est tellement bête! Je vais essayer merci ;-)

zivodul8 · Answer

J'ai un autre (rapide) problème. Je cherche à déterminer le numéro de la ligne où en colonne, deux cellules vides se suivent verticalement. Voilà ce que j'ai fait mais cela ne fonctionne pas : Sub NbLigne() Dim NbLigne, i As Integer i = 1 Do While Range("A" & i).Value <> "" And Range("A" & i + 1).Value <> "" NbLigne = i i = i + 1 Loop MsgBox NbLigne End Sub Merci!

zivodul8 · Answer

J'ai résolu, je viens de découvrir qu'en VBA le ET se traduisait par or et non and!

Ctesias · Answer

Ce que tu peux faire, c'est :

Dim nombre1 as integer
Dim nombre2 as string

Nombre1=Int(nombre2)

If nombre2%nombre1 = 0 then

décaler a gauche

Sinon

décaler à droite

end if

VBA - Condition si nombre à virgule alors...

7 réponses

Discussions similaires

Newsletters