Forums XLPages

Tous les messages (jad73)

« 1 2 3 4 5 6 »
Re: ou est l'erreur dans le code vba
#21
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: 493 ]
Hors Ligne
Rapport   Haut 

ou est l'erreur dans le code vba
#22
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 

dépassement de capacité
#23
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 17-05-2011 16h14
bonjour le forum
j'ai un fichier que je n'arrive pas a faire fonctionner.Si quelqu'un peut me donner un coup de main,merci
je joint le fichier
 
merci
Pièce jointe:
xls jadkeno.xls   [ Taille: 52.50 Ko - Téléchargements: 507 ]
Hors Ligne
Rapport   Haut 

ecrire + de feuilles dans un code vba(worksheets)
#24
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 13-05-2011 12h03

bonjour le forum
j'ai un code vba mais il ne fonctionne qu'avec une seule feuille,excel2003 n'ayant que 256 colonnes il m'en faudrait bcp plus d'ou plusieurs feuilles en continuité de le feuil2,mais comment le formuler dans le code vba que je joint.

Sub Jad73()

Dim wsData As Worksheet, wsR As Worksheet, rg As Range
Dim larg As Integer, Série1 As Variant, Série2 As Variant
Dim i%, j%, nLg%, DeltaV%, Départ%, rCol%, rLig() As Integer

'----------- Lignes à modifier selon convenance --------------
Départ = 2                 'N° de la première ligne des résultats
Set wsData = Worksheets("Feuil1")   ' feuille contenant les données
Set wsR = Worksheets("Feuil2")     ' feuille contenant les réultats
wsData.Range("A1") = "Données"      ' impose un titre à la base de données
'------------------------------------------------------------

i = 2                             'N° de la première ligne des données
Application.ScreenUpdating = False
With wsData
  Set rg = .Range("A2").CurrentRegion
  Set rg = rg.Offset(1, 0).Resize(rg.Rows.Count - 1, rg.Columns.Count)
  larg = rg.Columns.Count                          'nbre de données sur une ligne
  DeltaV = Application.WorksheetFunction.Max(rg)
  ReDim rLig(DeltaV)
                  ' inscription du N° des blocs de résultats
  For j = 1 To DeltaV: rLig(j) = Départ - 1: wsR.Cells(rLig(j), (larg + 1) * (j - 1) + 1) = j: Next j
  Série1 = .Range(.Cells(i, 1), .Cells(i, larg)).Value
 
                 ' répartition des données dans les blocs
  While i <= rg.Rows.Count
    i = i + 1
    Série2 = .Range(.Cells(i, 1), .Cells(i, larg)).Value
    For j = LBound(Série1, 2) To UBound(Série1, 2)
      rLig(Série1(1, j)) = rLig(Série1(1, j)) + 1
      nLg = rLig(Série1(1, j))
      rCol = (Série1(1, j) - 1) * (larg + 1) + 1
      If rCol <= 0 Then MsgBox "Pas de valeur nulle dans les données. Veuillez corrigez.": Exit Sub
      wsR.Range(wsR.Cells(nLg, rCol), wsR.Cells(nLg, rCol + larg - 1)) = Série2
    Next j
    Série1 = Série2
  Wend
End With
Application.ScreenUpdating = True

End Sub

merci

Hors Ligne
Rapport   Haut 

Re: compter les cellules colorées
#25
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 11-01-2011 23h10

bonjour
Je ne comprend pas car dans mon classeur je n'ai aucune macro ni code qui correspond a cette formule.
je suis retourné  la ou j'ai trouvé cette formule et il y avait ce code ci-dessous.
Mais comment peut fonctionner cette formule dans mon classeur si il n'y a pas ce code.
merci

Function SOMMECOULEUR(Ra As Range, Coul As String) As Double
Dim IndexCoul As Long, R As Range, Som As Double
Som = 0
    Select Case UCase(Coul)
        Case "NOIR"
        IndexCoul = 1
        Case "ROUGE FONCÉ"
        IndexCoul = 9
        Case "ROUGE"
        IndexCoul = 3
        Case "ROSE"
        IndexCoul = 7
        Case "ROSE SAUMON"
        IndexCoul = 38
        Case "MARRON"
        IndexCoul = 53
        Case "ORANGE"
        IndexCoul = 46
        Case "ORANGE CLAIR"
        IndexCoul = 45
        Case "OR"
        IndexCoul = 44
        Case "BRUN"
        IndexCoul = 40
        Case "VERT OLIVE"
        IndexCoul = 52
        Case "MARRON CLAIR"
        IndexCoul = 12
        Case "CITRON VERT"
        IndexCoul = 43
        Case "JAUNE"
        IndexCoul = 6
        Case "JAUNE CLAIR"
        IndexCoul = 36
        Case "VERT FONCÉ"
        IndexCoul = 51
        Case "VERT"
        IndexCoul = 10
        Case "VERT MARIN"
        IndexCoul = 50
        Case "VERT BRILLANT"
        IndexCoul = 4
        Case "VERT CLAIR"
        IndexCoul = 35
        Case "BLEU-VERT FONCÉ"
        IndexCoul = 49
        Case "BLEU-VERT"
        IndexCoul = 14
        Case "VERT D'EAU"
        IndexCoul = 42
        Case "TURQUOISE"
        IndexCoul = 8
        Case "TURQUOISE CLAIR"
        IndexCoul = 34
        Case "BLEU FONCÉ"""
        IndexCoul = 11
        Case "BLEU"
        IndexCoul = 5
        Case "BLEU CLAIR"
        IndexCoul = 41
        Case "BLEU CIEL"
        IndexCoul = 33
        Case "BLEU MOYEN"
        IndexCoul = 37
        Case "INDIGO"
        IndexCoul = 55
        Case "BLEU GRIS"
        IndexCoul = 47
        Case "VIOLET"
        IndexCoul = 13
        Case "PRUNE"
        IndexCoul = 54
        Case "LAVANDE"
        IndexCoul = 39
        Case "GRIS80"
        IndexCoul = 56
        Case "GRIS50"
        IndexCoul = 16
        Case "GRIS40"
        IndexCoul = 48
        Case "GRIS25"
        IndexCoul = 15
        Case "BLANC"
        IndexCoul = 2
        Case "AUCUNE"
        IndexCoul = -4142
        Case Else
        SOMMECOULEUR = 0
        Exit Function
    End Select
For Each R In Ra
    If R.Interior.ColorIndex = IndexCoul Then
        Som = Som + R.Value
    End If
Next R
SOMMECOULEUR = Som
End Function

Function NOMBRECOULEUR(Ra As Range, Coul As String) As Long
Dim IndexCoul As Long, R As Range, Nombre As Long
Nombre = 0
    Select Case UCase(Coul)
        Case "NOIR"
        IndexCoul = 1
        Case "ROUGE FONCÉ"
        IndexCoul = 9
        Case "ROUGE"
        IndexCoul = 3
        Case "ROSE"
        IndexCoul = 7
        Case "ROSE SAUMON"
        IndexCoul = 38
        Case "MARRON"
        IndexCoul = 53
        Case "ORANGE"
        IndexCoul = 46
        Case "ORANGE CLAIR"
        IndexCoul = 45
        Case "OR"
        IndexCoul = 44
        Case "BRUN"
        IndexCoul = 40
        Case "VERT OLIVE"
        IndexCoul = 52
        Case "MARRON CLAIR"
        IndexCoul = 12
        Case "CITRON VERT"
        IndexCoul = 43
        Case "JAUNE"
        IndexCoul = 6
        Case "JAUNE CLAIR"
        IndexCoul = 36
        Case "VERT FONCÉ"
        IndexCoul = 51
        Case "VERT"
        IndexCoul = 10
        Case "VERT MARIN"
        IndexCoul = 50
        Case "VERT BRILLANT"
        IndexCoul = 4
        Case "VERT CLAIR"
        IndexCoul = 35
        Case "BLEU-VERT FONCÉ"
        IndexCoul = 49
        Case "BLEU-VERT"
        IndexCoul = 14
        Case "VERT D'EAU"
        IndexCoul = 42
        Case "TURQUOISE"
        IndexCoul = 8
        Case "TURQUOISE CLAIR"
        IndexCoul = 34
        Case "BLEU FONCÉ"""
        IndexCoul = 11
        Case "BLEU"
        IndexCoul = 5
        Case "BLEU CLAIR"
        IndexCoul = 41
        Case "BLEU CIEL"
        IndexCoul = 33
        Case "BLEU MOYEN"
        IndexCoul = 37
        Case "INDIGO"
        IndexCoul = 55
        Case "BLEU GRIS"
        IndexCoul = 47
        Case "VIOLET"
        IndexCoul = 13
        Case "PRUNE"
        IndexCoul = 54
        Case "LAVANDE"
        IndexCoul = 39
        Case "GRIS80"
        IndexCoul = 56
        Case "GRIS50"
        IndexCoul = 16
        Case "GRIS40"
        IndexCoul = 48
        Case "GRIS25"
        IndexCoul = 15
        Case "BLANC"
        IndexCoul = 2
        Case "AUCUNE"
        IndexCoul = -4142
        Case Else
        NOMBRECOULEUR = 0
        Exit Function
    End Select
For Each R In Ra
    If R.Interior.ColorIndex = IndexCoul Then
        Nombre = Nombre + 1
    End If
Next R
NOMBRECOULEUR = Nombre
End Function

Edité par le Webmaster pour insérer proprement le code VBA comme expliqué dans cette FAQ
Merci d'appliquer cette procédure la prochaine fois !


Edité par myDearFriend! le 12/01/2011 23:21:15
Hors Ligne
Rapport   Haut 

compter les cellules colorées
#26
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 11-01-2011 17h31
bonjour le forum
j'utilise cette formule"=nombrecouleur(B$2:B$500;"jaune")"pour compter les cellules de couleur jaune,mais je voudrais compter toutes les cellules qui sont colorées,et je ne sais pas par quoi remplacer "jaune".Le nombre de couleurs varient entre 6 et 12 couleurs
merci
Hors Ligne
Rapport   Haut 

Re: nombre de lignes d'une matrice
#27
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 13-11-2010 18h02
bonjour le foum,jean-marie,guy,mth
merci pour ta réponse,j'ai oublié de préciser que je n'y connais pas grand chose en VBA,toutes les formules que j'utilise viennent de vous,des forums excel .
Le fihier que j'ai joint n'est pas le fichier de mon classeur(trop gros),il faut maintenant que je l'insere dans mon classeur,faut-il copié les 2 feuilles macro et funtion.
merci
Hors Ligne
Rapport   Haut 

Re: nombre de lignes d'une matrice
#28
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 12-11-2010 22h32
bonjour le forum,jean-marie
oui si une ligne a 1 des criteres elle est recopiée une fois,2 criteres 2 fois, 3 criteres elle est copiée 3 fois
Dans la colonne AT c'est de nombre de fois que le 1,2,3,...etc ,sont sorti dans la plage X4::AQ...
Dans la colonne AZ c'est le nombre de fois que 2 numéros sont sortis ensemble EX: le 1 et le 2 ou le 16 et 30, suivant le numéro que j'inscris aprés le premier =,dans la meme plage X4:AQ..
merci
Hors Ligne
Rapport   Haut 

Re: nombre de lignes d'une matrice
#29
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 12-11-2010 18h06
bonjour le forum, guy,mth
je joint le fichier original que j'ai trouvé sur le forum excel,c'est la partie VBA qui m'interresse.Bien sur il ne correspond pas exactement a ma feuille,j'ai donc copié le code dans un module de mon classeur et la j'ai essayé de adapté a mes besoins c'est 20 colonnes et 730 lignes et 4 criteres alors que dans l'original il n'y en a que 14 lignes et 10 colonnes et 2 criteres (16 et 30) en MetN 39 et la il ne fonctionne plus.
le but c'est de rechercher des lignes qui ont les criteres,si une ligne a les 2 criteres elle doit etre recopiée 2 fois, si je met 3 criteres et que la ligne a les 3 elle sera copiée 3 fois.
La plage de donnée dans le fichier que j'ai joint hier (essai1) est en C4:V.., les criteres sont en O,P,Q R 3 et les données recopiées sont en X4:AQ..
merci
Pièce jointe:
xls test1.xls   [ Taille: 69.00 Ko - Téléchargements: 453 ]
Hors Ligne
Rapport   Haut 

Re: nombre de lignes d'une matrice
#30
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 12-11-2010 12h14
bonjour
excusez moi je n'avais fait attention il faisait 88 ko il n'avait pas passé,je l'ai réduit mais je ne comprends pas plus rien ne fonctionne.je le joint quand mème
merci
Pièce jointe:
zip essai1 (2).zip   [ Taille: 32.97 Ko - Téléchargements: 503 ]
Hors Ligne
Rapport   Haut 

« 1 2 3 4 5 6 »