AIDE URGENTE

Question

BONJOUR!
Toujours débutant en programmation, j'ai un programme a faire pour demain, je suis sur c'est tout bête pour vous mais voilà :
Il faut tout d'abord entrer sur excel manuellement des entiers, des decimaux et chaines de caracteres, puis tout selectionner et lancer le programme qui lui doit lire ce qui est selectionné et réécrire dans un coin de la feuille excel le nombre de decimaux, le nombre d'entiers et le nombre de chaines de caracteres, voila quoi, merci de votre aide, et bonne année!
Jonathan

jrivet · Answer

Salut,
Ceci est l'énoncé d'un problème.... pour demain où pas, Débutant ou pas, je pense que tu as du commencer qqch, non?

Ce que tu souhaites c'est que l'on fasse le code à ta place?
Où est ce que tu n'y arrive pas?

@+: Ju£i?n
Pensez: Réponse acceptée

_Fabien · Answer

C'est du VBA ! Ça je connaîs ! Mais je suis pas sûr d'avoir tout compris : donne un exemple. Qu'as-tu en A1, A2, etc.

Sinon, va sur http://www.excel-downloads.com/

Pourtant, je m'y connaîs, mais eux, ce sont des Pros.

Bon j'espère que je vais pas me faire tuer en conseillant ce site.

_Fabien · Answer

jrivet : lol ! ("Ce que tu souhaites c'est que l'on fasse le code à ta place?")

ducobave · Answer

J'aimerai bien le faire tout seul mais vu que je n'y connais rien du tout je ne vois pas trop
comment je peux m'en sortir, pour l'instant je me débrouille comme ca, mais si personne ne veut le faire il n'y a pas de probleme, c'est juste pour pas que je soit dans la galère!!!
Merci quand même

_Fabien · Answer

Si tu donnais un exemple précis ?

ducobave · Answer

comment ca un exemple precis?

ducobave · Answer

par exemple sur exel je rentre un truc du genre ca :

4.5     bobo     9           3     5.9     
hey     1.2        8.23     aie       6
2        2.6        zut       3.33  

puis a coté un bouton et quand on clik dessus le programme affiche :

6 decimal
5 entiers
4 chaines de caracteres

un truc du genre!

_Fabien · Answer

OK, voyons voir...

_Fabien · Answer

Je suis pas chez moi et l'aide en ligne n'est pas terrible. il suffit de parcourir chaque cellule de ta plage et pour chacun de compte le nombre de décimal, etc.

J'arrive pas à trouver en VBA, le mot-clé qui dit indique si c'est un décimal etc.

_Fabien · Answer

Désolé. Je trouve que des trucs pour savoir comment convertir : cstr, cint, mais pas une qui indique si c'est un entier, etc.

Il existe sous excel, une fonction type =type(A1) qui indique si A1 est un nombre (entier ou décimal) (renvoie 1) dans ce cas

renvoie 2 si c'est du texte.

jmfmarques · Answer

Cherche un peu...

Il me semble bien avoir donné hier (au plus tard) une astuce à ce propos...

jmfmarques · Answer

Tiens ...

Cherche donc ton astice parmi les messages de cette discussion d'hier  (facile à trouver où) 
http://www.vbfrance.com/infomsg_COMPTABILISER-VALEURS-TPE-ENTIER-DECIMAL-CHAINE_869502.aspx#11

_Fabien · Answer

Voilà la réponse (tardive) ! C'était TypeName.http://img214.imageshack.us/img214/3344/typesdescellulesnb1.jpg

Const nom_plage = "A4:C6"
Sub ComptageType_click()


Dim i, nbStr, nbInt, nbDec As Byte


nbStr 0: nbInt 0: nbDec = 0


With ActiveSheet


For i = 1 To .Range(nom_plage).Count
  
  If TypeName(.Range(nom_plage)(i).Value) = "String" Then
    nbStr = nbStr + 1
  ElseIf TypeName(.Range(nom_plage)(i).Value) = "Double" Then
    If .Range(nom_plage)(i).Value - Fix(.Range(nom_plage)(i).Value) > 0 Then
      nbDec = nbDec + 1
    ElseIf Fix(.Range(nom_plage)(i).Value) - .Range(nom_plage)(i).Value = 0 Then
      nbInt = nbInt + 1
    End If
  End If
  
Next i


.Range("A2").Value = nbStr
.Range("B2").Value = nbInt
.Range("C2").Value = nbDec


End With
End Sub


Private Sub EffacerResultats_Click()


With ActiveSheet


.Range("A2").Value = ""
.Range("B2").Value = ""
.Range("C2").Value = ""

_Fabien · Answer

Oups !



Private Sub EffacerResultats_Click()


With ActiveSheet


.Range("A2").Value = ""
.Range("B2").Value = ""
.Range("C2").Value = ""


End With
End Sub

AIDE URGENTE

14 réponses

Votre réponse