Discussion :

[Poor Frog]

Bonjour a Tous,

J'ai crée une base de donnée compositeur. Pour chaque œuvre musicale, je souhaiterai que les différents mouvements soient indiques dans une colonne dédiée (GM) sur 2 digits. "01" "02" etc.....

J'ai écris une Private Sub Ref_Mvt_Count(Index As Interger) pour cela mais cela ne marche : je me fais insulter "out of memory"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Ref_Mvt_Count(Index As Integer)
 
        Dim dLi As Integer
        Dim rPl As Range
        Dim stMvt As String
 
        With Sheets("WORKS_DATA")
        dLi = .Cells(Application.Rows.Count, 2).End(xlUp).Row
        Set rPl = .Range("GM2:GM" & dLi)
        End With
                If Index >= 10 Then
                 stMvt = CStr(Index)
             Else
                    stMvt = "0" & CStr(Index)
                End If
        For Each cel In rPl
            cel.Value = stMvt
        Next
End Sub

Cette routine est appelée comme suit :

Code :

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

 Call Ref_Mvt_Count(iMvt)

iMvt étant l'entier qui contient le numéro du mouvement qui commence a "0"

Qu'en pensez vous?

Merci d'avance pour votre aide.

[Marc-L]

Bonjour,

j'en pense qu'il faut vraiment faire attention à la déclaration des variables !

Et merci d'utiliser la prochaine fois l'icône # pour encadrer le code …


Sinon en respectant la règle du TBTO, la procédure se résume à ceci :

Code :

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

1
2
3
4
5
Private Sub Ref_Mvt_Count(Index As Byte)
    With Sheets("WORKS_DATA")
        .Range("GM2:GM" & .Cells(.Rows.Count, 2).End(xlUp).Row).Value = Format$(Index, "00")
    End With
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[parmi]

Bonjour,

Tu n'indiques pas la version que tu utilises, mais déclare dLi as Long

[Poor Frog]

Bonsoir,

Je ne crains que le probleme soit plus GRAVE...

En effet :

Pour chaque partition une copie automatique ce fait par rapport au nombre d'instruments dans l'oeuvre et de mouvements. ( 2 instruments + 2 mouvements = 6 lignes)

* au moment du "run" je vois que toutes les precedentes saisies se recalculent suivant la nouvelle entree (je vois dans GM defiler 0 ou 1 ou 2)

* si j'ai trois partitions, les nombres de mouvements de la derniere partition entree modifient les precedentes, et dans ma colonne GM je retrouve a chaque ligne 2 (= 3 mouvements)

Petite info : pack office 2010 et mes debut en vba datent de janvier dernier.

Merci

[Poor Frog]

J'ai declare dLi As Long,
changer Index en As Byte et
determine un format personnalise

du coup je vois ces nouveaux grains de sable.

Le numero des mouvements de s'incremente pas au fur et a mesure des lignes et de plus modifie les precedentes.

Maintenant avec le code ci-dessous j'ai une erreur de type 1004 pour :

" If Application.WorksheetFunction.CountA(cel.Offset(-91, -136).Resize(1, 45)) <> 1"

Il faut savoir que les donnees se trouvent dans les colonnes BB a CU soit de -136 a -91 vers la gauche de la colonne GM2.

De mon humble avis j'ai du loupe quelque chose quelque part!!!!!


#

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Ref_Mvt_Count(Index As Byte) 
 
Dim dLi As Long 
Dim rPl As Range 
Dim stMvt As String 
 
With Sheets("WORKS_DATA") 
dLi = .Cells(Application.Rows.Count, 2).End(xlUp).Row 
Set rPl = .Range("GM2:GM" & dLi) 
End With 
If Index >= 10 Then 
stMvt = CStr(Index + 1) 
Else 
stMvt = "0" & (Index + 1) 
End If 
For Each cel In rPl 
If Application.WorksheetFunction.CountA(cel.Offset(-91, -136).Resize(1, 45)) <> 1 Then 
cel.Value = "00" 
Else 
cel.Value = stMvt 
End If 
Next 
End Sub

#

[parmi]

Offset(-91, -136)

Ceci veut dire 136 colonnes vers la gauche et 91 lignes vers le haut...
Est-ce que c'est possible dans ton cas sachant que les lignes et colonnes commencent à 1 ?

Si ça donne 0 ou un chiffre négatif, ça va assurément planter.
Peut-être que tu devrais utiliser le Range tel quel plutôt que Offset (?)
ex: Range("A" & Ligne) ou Cells(Ligne, 1)