Discussion :

[maxime17s]

Bonjour,

Je suis en train de développer une petite application en VBA (je suis débutant) mais je bloque sur une partie.

Ma description s'appuie sur la PJ. Les lignes 21 et suivantes sont des données. Chaque ligne est soit de type 1 soit de type 2 (colonne E). Je voudrais pour toutes les lignes identifiées de type 1 que:
- on regarde la date présente dans la colonne date (colonne H à partir de la ligne 21)
- on calcule cette date - 1 mois.
- on vient remplir le tableau (A1 : F13). Pour cela on repère la ligne correspondant "date-1 mois" (colonne A) en fonction du mois et la colonne (C,D,E,F) en fonction de l'année. On remplit la ligne Type 1.
- On vient remplir la cellule à l'intersection mois/année en y mettant le chiffre présent dans la colonne J ou on additionne ce chiffre à celui déjà présent dans le tableau (A1 : F13).
- On fait le même travail avec les colonnes K (on prend en compte "date") et L (en prend en compte "date+1 mois")

On fait également le même travail pour Type 2.

N'hésitez pas si vous avez des questions.

Merci de votre aide.

[maxime17s]

Bonjour,

J'ai réussi à faire quelque chose mais une partie bug :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim tabDonnees(4, 10) As Integer
 
For l = 0 To 9
 
    For m = 0 To 3
    n = 2 + 3 * m
    o = 3 + l
 
    Cells(n, o).Value = tabDonnees(m, l).Value
 
Next m
 
Next l

Il me dit qualificateur incorrect en mettant en jaune "tabDonnees(m, l).Value". Tout le reste fonctionne.

Merci de votre aide.

[le petit nicolas]

salut

tabDonnees(m, l) n'est pas un objet mais un tableau de valeurs Integer
il ne possède pas de propriété Value
=> enlève le ".value"

à +

[maxime17s]

Merci pour l'information qui m'a débloqué. J'ai un nouveau problème avec cette ligne :

Code :

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

enCours = (mois2 <= 24) And (mois.DECALER("H" & i & "," & mois2) <= Worksheets("nomsst").Range("P" & i).Value)

mois2 est un "Interger". Encours est censé être un boolean mais j'ai juste mis "Dim enCours". Dois-je ajouter quelque chose ? Voyez-vous l'erreur ?

Merci

[le petit nicolas]

oui,
je trouve cette expression très bizarre :

Code :

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

mois.DECALER("H" & i & "," & mois2)

l'équivalent VBA pour "DECALER" est Offset (voir aide F1 pour la syntaxe).

pour utiliser une fonction Excel il faut mettre Application.worksheetfunction.LeNomDeLaFonction (voir F1 encore). Le NomDeLaFonction est en anglais, je n'ai pas vérifié mais il est très probable que DECALER se dise en anglais OFFSET.

et que représente mois ?

à +