tout petit souci pour grands pros !

[marie claude]

Bonjour à tous et à toutes

j'ai un tout petit problème que je vais vous expliquer

je fais mes premiers pas en vba et je galère pas mal
:silly:

voilà :
j'ai deux collones
dans la première un chiffre de 0 à 500 (par ex)
dans la seconde je voudrais réussir à noter les expressions suivantes :
< à 10
de 10 à 50
de 50 à 100 etc....

bien sûr je pourrais me servir de la fonction Si , mais j'ai envie de progresser en vba ! inch:

voilà ce que j'ai écrit :
Sub effectif1()

Dim Effect As Integer
Dim Résultat As String

Effect = Cells(i, 5).Value

For i = 1 To 20
If Effect < 10 Then
Résultat = 'moins de 10'
End If
Next i
End Sub

ca ne marche pas !!!
pouvez vous me dire où est mon erreur

j'ai une message d'erreur qui arrive : 400
????????????

merci

 

[pierrejean]

bonjour Marie Claude

il faut mettre

Effect = Cells(i, 5).Value

à l'interieur de la boucle

ici pour etre exact

For i = 1 To 20
Effect = Cells(i, 5).Value
If Effect < 10 Then
.....

 

[marie claude]

ce serait seulement cà ?


:angry:

 

[PascalXLD]

Bonjour

Là tu corriges ton erreur mais tu ne mets rien dans la cellule d'à coté

tien la même en simplifié et qui ecrit dans la colonne F

Sub effectif1()

For i = 1 To 20
If Cells(i, 5) < 10 Then cells(i,6)= 'moins de 10'
Next i
End Sub

 

[pat1545.]

Salut Marie Claude
un tit exemple avec explications
' debut du code
Option Explicit
Sub effectif1()
' déclarer les variables (avec option explicite , on y est obligé)
Dim I As Integer
Dim Last As Integer
Dim Valeur As Variant
' recherche de la dernière ligne occupée de la colonne A
' en commencant par le bas
Last = Range('A65000').End(xlUp).Row
' boucle de la ligne 1 à la dernière trouvée
For I = 1 To Last
' mémorisation de la valeur (
Valeur = Cells(I, 1)
' si pas numerique , on le signale
If Not IsNumeric(Valeur) Then Cells(I, 2).Value = 'non numérique'
'i s'incrémente à chaque next donc Cells(i,2) augmente , i étant la ligne, 2 la colonne B
Select Case Valeur
Case Is 50'
End Select
Next I ' boucle du for
End Sub

 

[marie claude]

non ca ne marche toujours pas
il doit y avoir autre chose

:silly:

Message édité par: marie claude, à: 23/03/2006 16:15

 

[PascalXLD]

re

tu as essayé lesquels Marie Claude ???

 

[marie claude]

vous avez tous les deux répondus pendant que je tentais d'envoyer un petit fichier

mais je n'ai pas encore lu toutes les réponses


[file name=Classeur2_20060323161700.zip size=8024]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060323161700.zip[/file]

 

[marie claude]

MERCI

ca marche

je vais continuer car ce n'est pas fini , je dois insérer d'autres if donc peut etre que je reviendrais chercher vos lumières

 

[PascalXLD]

Re

Tiens ton fichier modifié avec d'autres cas traités [file name=Classeur2_20060323162632.zip size=8304]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060323162632.zip[/file]

 

[marie claude]

alors là !!!

magnifique
merci