Forums XLPages

Excel & VBA Espace Débutants ou est l'erreur dans le code vba

ou est l'erreur dans le code vba
#1
jad73
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 02-02-2012 17h07



bonjour le forum
 
j'ai un programme qui fonctionne avec 5 colonnes,j'ai voulu l'agrandir a 10
colonnes et la probleme.
Ce que je fais et qui fonctionne dans la Feuil 1 pour les unités et les dizaines,c'est que je comptabilise les numéros appelé par la ligne précédente mais dans leur catégorie,les unités avec les unités,les dizaines avec les dizaines ainsi de suite.
ligne1:1-2-3-10-20-30
ligne2:4-5-6-11-22-40
le 1 a appelé le 4-5-6,le 2 aussi le 4-5-6-,le 10 le 11,le 20 le 22,le 30 rien puisqu'il n'y a pas de trentaine dans la ligne2
quand je rajoute une autre ligne3,la ligne1 ne sert plus c'est la ligne2 qui a appelé les numéros de la ligne 3
et ansi de suite.Les données sont additionnées dans les tableaux de gauche,le premier c'est les unités(1 a 9),le deuxieme les dizaines(10 a 19)etc...
Dans la Feuil2 il fonctionne bien avec seulement les unités et les dizaines mais dans la Feuil1 ou j'ai rajouté les vingtaines,trentaines,quarantaine la il ne fonctionne plus sauf pour les unités et dizaines.En espérant que mes explications soient assez claires.



 merci     
Hors Ligne
 Rapport   Haut 

Re: ou est l'erreur dans le code vba
#2
jad73
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 04-02-2012 10h30
bonjour le forum







j'ai oublié de'ajouter le fichier,le voici,mes excuses
merci

Pièce jointe:
xlsm jad73_v1 (1).xlsm   [ Taille: 48.46 Ko - Téléchargements: 500 ]
Hors Ligne
 Rapport   Haut 

Re: ou est l'erreur dans le code vba
#3
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 04-02-2012 13h33
Bonjour Jad73, Didier, le forum

Essaye avec le code ci-dessous, des petites corrections dans ton code.
Sub essai()
Dim Cel As Range, x As Byte, y As Byte
Dim TbloU(1 To 9, 1 To 9)
Dim TbloD(10 To 19, 10 To 19)
Dim TbloE(20 To 29, 20 To 29)
Dim TbloF(30 To 39, 30 To 39)
Dim TbloG(40 To 49, 40 To 49)
Dim DerLig As Long, I As Long
Dim J As Byte
DerLig = Cells(Rows.Count, 2).End(xlUp).Row - 1
Range("O2:BK10").ClearContents
For I = 2 To DerLig
    For Each Cel In Cells(I, 2).Resize(1, 9)
        If Cel.Value <> "" Then
            For J = 2 To 10
                Select Case Cel.Value
                    Case Is < 10
                        If Cells(I + 1, J).Value < 10 Then
                            TbloU(Cel, Cells(I + 1, J).Value) = TbloU(Cel, Cells(I + 1, J).Value) + 1
                        End If
                    Case 10 To 19
                        If Cells(I + 1, J).Value >= 10 And Cells(I + 1, J).Value < 20 Then _
                            TbloD(Cel, Cells(I + 1, J).Value) = TbloD(Cel, Cells(I + 1, J).Value) + 1
                    Case 20 To 29
                        If Cells(I + 1, J).Value >= 20 And Cells(I + 1, J).Value < 30 Then _
                            TbloE(Cel, Cells(I + 1, J).Value) = TbloE(Cel, Cells(I + 1, J).Value) + 1
                    Case 30 To 39
                        If Cells(I + 1, J).Value >= 30 And Cells(I + 1, J).Value < 40 Then _
                            TbloF(Cel, Cells(I + 1, J).Value) = TbloF(Cel, Cells(I + 1, J).Value) + 1
                    Case Is < 50
                        If Cells(I + 1, J).Value >= 40 And Cells(I + 1, J).Value < 50 Then _
                            TbloG(Cel, Cells(I + 1, J).Value) = TbloG(Cel, Cells(I + 1, J).Value) + 1
                End Select
            Next J
        End If
    Next Cel
Next I
Range("O2").Resize(9, 9) = Application.Transpose(TbloU)
Range("O13").Resize(9, 9) = Application.Transpose(TbloD)
Range("O25").Resize(9, 9) = Application.Transpose(TbloE)
Range("O37").Resize(9, 9) = Application.Transpose(TbloF)
Range("O49").Resize(9, 9) = Application.Transpose(TbloG)
End Sub

bon courage, pour la suite

@+Jean-Marie 
Hors Ligne
 Rapport   Haut 

Re: ou est l'erreur dans le code vba
#4
jad73
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 04-02-2012 17h50


bonjour Jean-Marie,le forum



merci pour ta réponse,mais j'ai une erreur 9"l'indice n'appartient pas a la selection"
 



 TbloE(Cel, Cells(I + 1, J).Value) = TbloE(Cel, Cells(I + 1, J).Value) + 1



merci
Pièce jointe:
xlsm jad73_v1 (1).xlsm   [ Taille: 47.98 Ko - Téléchargements: 423 ]
Hors Ligne
 Rapport   Haut 

Re: ou est l'erreur dans le code vba
#5
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 04-02-2012 18h54
Re...

Je vois que tu n'as pas appliquer sur le code de ton fichier, toutes que j'ai apporté. C'est pour cela, que tu obtiens un message d'erreur.

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: ou est l'erreur dans le code vba
#6
jad73
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 07-02-2012 18h19
bonjour jean-marie,le forum



merci pour ta réponse.

excuse pour cette erreur,pour ce classeur c'est bon.
j'ai un autre classeur avec 20 colonnes et 69 numéros,j'ai donc rajouté certaines données(les Dim,Case et Range)mais il comptablise que jusqu'au tableau des 40 mais avec des oublis dans ce tableau,par contre rien dans les 50 et 60,si tu pourrais voire ou j'ai fait des erreurs


merci



Pièce jointe:
xlsm jadke.xlsm   [ Taille: 43.35 Ko - Téléchargements: 417 ]
Hors Ligne
 Rapport   Haut 

Re: ou est l'erreur dans le code vba
#7
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 07-02-2012 21h00
Bonsoir Jad73, Didier, le forum

Il me semble que ton erreur se trouve sur la re-définiton du Cells(I, 2).Resize(1, xxxxxx) et la valeur de fin de la boucle J.

@+Jean-Marie
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes