Bonjour à tous,
Je vous expose mon problème, très simple mais qui me bloque pour non connaissance basique sur ce cas.
Je desire recuperer (en VBA) sur une feuille, des cellules (valeurs entieres et (ou) decimales) que je vais totaliser dans une variable et afficher ainsi, la somme pour une recap.
Jusqu'à là pas de problème.
Pour recuperer les valeurs des cellules j'ai une boucle FOR I ... next I
Je declare un tableau dim data(10) As Double
Ma boucle For I me permet de cumuler les valeurs des cells(i,J+3) (valeurs numériques) tel que : data(I)=data(I) + cells (i,J+3)
Le probleme, j'obtiens une errer d'execution 13 pour incompatibilité de type.
Si je fais comme ci dessous, c'est OK, cela fonctionne mais j'obtiens que des valeurs entières.
Je lis verticalement (for I = 6 to xxx) jusqu'à trouver un indicateur "vrai" qui me permet de recuperer le numero de ligne pour pouvoir recolter les valeurs à additionner de cette ligne.
La recolte des datas
.....
.....
.....
For i = 6 To 130
If Cells(i, 10) = chantier(Y) Then
For J = 1 To 5
data(J) = data(J) + Val(Cells(i, J + 3))
Next J
End If
Next i
Affichage et ecriture sur une feuille
...
...
...
Sheets("vent").Select
For J = 2 To 6
Cells(Y + 6, J) = data(J - 1)
Next J
Next K 'fin boucle K
For J = 1 To 5
data(J) = 0
Next J
Y = Y + 1
Next X 'fin boucle chantier
En gros, si mes commentaires sont compréhensibles, comment afficher les valeurs entières ou decimales car je n'arrive pas à comprendre l'erreur de formatage des données.
Les cellules sont formater en decimales avec affiche du type "0,00" pour 2 decimales.
En l'attente, merci pour vos connaissances au sein de cette base de données qu'est Excel Download donc je fais reference sur ERCI Informatique.
Je vous expose mon problème, très simple mais qui me bloque pour non connaissance basique sur ce cas.
Je desire recuperer (en VBA) sur une feuille, des cellules (valeurs entieres et (ou) decimales) que je vais totaliser dans une variable et afficher ainsi, la somme pour une recap.
Jusqu'à là pas de problème.
Pour recuperer les valeurs des cellules j'ai une boucle FOR I ... next I
Je declare un tableau dim data(10) As Double
Ma boucle For I me permet de cumuler les valeurs des cells(i,J+3) (valeurs numériques) tel que : data(I)=data(I) + cells (i,J+3)
Le probleme, j'obtiens une errer d'execution 13 pour incompatibilité de type.
Si je fais comme ci dessous, c'est OK, cela fonctionne mais j'obtiens que des valeurs entières.
Je lis verticalement (for I = 6 to xxx) jusqu'à trouver un indicateur "vrai" qui me permet de recuperer le numero de ligne pour pouvoir recolter les valeurs à additionner de cette ligne.
La recolte des datas
.....
.....
.....
For i = 6 To 130
If Cells(i, 10) = chantier(Y) Then
For J = 1 To 5
data(J) = data(J) + Val(Cells(i, J + 3))
Next J
End If
Next i
Affichage et ecriture sur une feuille
...
...
...
Sheets("vent").Select
For J = 2 To 6
Cells(Y + 6, J) = data(J - 1)
Next J
Next K 'fin boucle K
For J = 1 To 5
data(J) = 0
Next J
Y = Y + 1
Next X 'fin boucle chantier
En gros, si mes commentaires sont compréhensibles, comment afficher les valeurs entières ou decimales car je n'arrive pas à comprendre l'erreur de formatage des données.
Les cellules sont formater en decimales avec affiche du type "0,00" pour 2 decimales.
En l'attente, merci pour vos connaissances au sein de cette base de données qu'est Excel Download donc je fais reference sur ERCI Informatique.