Discussion :

[joelweb]

Bonjour à tous,

Les voies de l'emploi sont parfois bien sinueuses.

Je me présente en quelques mots à travers ce tout 1er forum post:
j'ai 40 ans, 3 enfants et je travaille depuis fort longtemps en intérim.

C'est loin d'être idéal en ces temps de disette mais c'est bien mieux que de pointer au chômage chaque mois sans pouvoir faire autrement.

Donc l'intérim pour moi ce n'est que l'expression de la farouche volonté de ne pas rester inactif...

Mes compétences vont de la traduction EN > FR à la SEO.
Là je peux vous aider.

Après toute cette intro. me voici à modifier une macro dans Excel avec pour tout bagage VBA un cours de 4h il y a 11 ans.

En théorie, il me suffit de modifier certaines plages de sélection pour rafraîchir cette macro.
En réalité... ça semble bine plus complexe.

Voici la partie qui pour le moment me pose problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
'Volume 5j
For i = 1 To nbGP
    For j = 5 To 10
        If ActiveSheet.Range("B" & 19 + i).Value = ActiveSheet.Range("G" & j).Value Then
            somme5j = somme5j + ActiveSheet.Range("C" & 19 + i).Value
        End If
    Next j
Next i
ActiveSheet.Range("J7").Value = somme5j / sommeGlobal
ActiveSheet.Range("J7").Select
Selection.NumberFormat = "0.00%"

L'erreur doit se situer sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

somme5j = somme5j + ActiveSheet.Range("C" & 19 + i).Value

puisqu'elle apparaît en jaune.

Merci d'avance de votre aide.
Joel.

[pijaku]

Bonjour,

En fait, il faut, pour pouvoir additionner deux "objets", que ceux ci soient du même genre. On n'ajoute pas des carottes aux girafes.
Votre variable somme5j est déclarée As???

Cet exemple renvoie une "erreur 13 incompatibilité de type" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim somme5j As String, Chiffre As Integer
Chiffre = CInt(ActiveSheet.Range("C19").Value)
somme5j = somme5j + Chiffre

Cet exemple non :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim somme5j As Double, Chiffre As Double
If ActiveSheet.Range("C19").Value <> 0 Then Chiffre = CDbl(ActiveSheet.Range("C19").Value)
somme5j = somme5j + Chiffre

Plus d'infos? ftp://ftp-developpez.com/silkyroad/V...sVariables.pdf

regarde en particulier :
- byte,
- Integer,
- Currency,
- Single,
- Double.

[joelweb]

Merci pour cette piste Franck,
je parcours le pdf et je tente de modifier le code.

Joel.

[pijaku]

J'ajouterai ceci car c'est une erreur assez fréquente ;si, dans ta feuille, les nombres sont saisis avec le mauvais séparateur (point au lieu de virgule ou inversement), le même type d'erreur se produit.

[joelweb]

Effectivement Franck, il y avait un problème de déclaration de variables :

Avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim mois, mois2, numMois, i, annee, numSem, nbGP As Integer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim nbParc, sommeSolli, somme5j, somme15j, sommeGlobal, moisMoinsUn, total As Long

Après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim mois As Integer, mois2 As Integer, numMois As Integer, i As Integer, annee As Integer, numSem As Integer, nbGP As Integer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim nbParc As Long, sommeSolli As Long, somme5j As Long, somme15j As Long, sommeGlobal As Long, moisMoinsUn As Long, total As Long

Merci encore.

Cordialement,
Joel.