Problème de Boucle

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème de Boucle

loulou56

Bonjour ,

J'ai crée un petit programme sous VBA pour faire la moyenne par heure, de valeur prises toutes les 10 minutes.

Mon programme calcul bien la moyenne, mais ne veut pas écrire mon résultat dans la cellule et ne veut pas continuer (pb de boucle).

Si quelqu'un peut m'aider.

Code :

Dim C1 As Single
Dim C2 As Single
Dim C3 As Single
Dim C4 As Single
Dim C5 As Single
Dim C6 As Single
Dim s&, z&, w&, x&, y&
x = 3
w = 9
z = 3
y = 2
Do
If y = 7 Then
MsgBox "la feuille est finie;"
y = y + 1
'instruction de fin attendue '
Else
If IsEmpty(ActiveCell.Value) = x Then
MsgBox "c'est la fin de la colonne;"
y = y + 1
w = w + 1
Else
C1 = ActiveSheet.Cells(x, y)
x = x + 1
C2 = ActiveSheet.Cells(x, y)
x = x + 1
C3 = ActiveSheet.Cells(x, y)
x = x + 1
C4 = ActiveSheet.Cells(x, y)
x = x + 1
C5 = ActiveSheet.Cells(x, y)
x = x + 1
C6 = ActiveSheet.Cells(x, y)
s = C1 + C2 + C3 + C4 + C5 + C6
If s = 0 Then
m = 0
MsgBox "la somme vaut 0, remplissage de la feuille"
ActiveSheet.Cells(w, z).Value = m
Else: m = s / 6
'remplissage de la feuille'
ActiveSheet.Cells(w, z).Value = m
End If
z = z + 1
x = x + 1
End If
End If
Loop While IsEmpty(ActiveSheet.Cells(x, y).Value)
End Sub

Merci d'avance.

Publicité

seniorpapou

Bonjour,
une formule dans excel devrait suffire à régler ton PB. La formule DECALER devrait pouvoir faire l'affaire.

Pour répondre à ta question, en voici une:

peux-tu nous expliquer ce que tu demande à VB de faire en écrivant cette ligne?

"If IsEmpty(ActiveCell.Value) = x Then"

Cordialement

seniorpapou

Par exemple:

=SOMME(DECALER(Feuil1!$A$3;6*(COLONNE()-3);LIGNE()-9;6;1))/6

en colonne C ligne 9 de la feuille où tu veux tes résultats, tu étires à droite puis sur 7 lignes

loulou56

Merci,

En réalité, je voudrais automatiser le tout, c'est pour cela que j'utilise VBA,

La ligne de code If IsEmpty.......permet de passer à la colonne suivante, j'ai corrigé la ligne en mettant IsEmpty(activesheet.cells(x,y))

Pour automatiser le tout, j'ai crée une Userform, ainsi j'espère pouvoir exporter ma macro sur les prochains fichiers reçut et juste ne cliquant, avoir ma nouvelle feuille avec les moyennes par heure?

Comment programme t-on la création et le remplissage d'une nouvelle feuille avec les résultats des moyennes sous VBA?

Comment je peux transcire la ligne:
=SOMME(DECALER(Feuil1!$A$3;6*(COLONNE()-3);LIGNE()-9;6;1))/6

en langage VBA?

Merci de votre aide,

seniorpapou

Bonsoir
Sub dodo()
'pour mettre dans la cellule ligne 9 colonne 3 de la feuil2 la moyenne des cellules 3 à 8 de la colonne 1 se trouvant sur feuil1
'adapte le valeurs.........................
With Sheets("feuil1" )

Sheets("feuil2" ).Cells(9, 3) = WorksheetFunction.Sum(.Range(.Cells(3, 1), .Cells(8, 1))) / 6
End With

End Sub

je ne t'écris pas tout pour que tu puisses faire quelque chose par toi-même.
Cordialement

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème de Boucle

Sujets relatifs
URGENT : problème shell windows boucle for	Problème avec boucle while qui ne s'arrêt pas
Problème dans ma boucle	[VBA] problème dans une boucle
[Oracle & PHP] boucle if dans while : problème	Excel 2003, problème avec une boucle
[vb] problème de boucle avec datagridview	Problème d'affichage double boucle (mysql_fetch_array)
problème boucle while	[PHP} Probleme boucle
Plus de sujets relatifs à : Problème de Boucle

Page générée en 0.069 secondes