remplacer les codes VB

Version imprimable

01/06/2011, 17h33
isabela

remplacer les codes VB

Bonjour,

Dans ma base de données, il y a plusieurs variables:
groupe, effectif, code, secteur

Je dois chercher le max de chaque groupe, puis si un groupe a un code qui est = x ou y, il faut le remplacer par celui qui a le plus grand effectif ainsi que pour le secteur.

Merci de m'aider encore car je suis vraiment une débutante en vb.

Cordialement
01/06/2011, 23h17
Pierre Fauconnier

Bonjour.

Souvent, l'explication claire du problème est un début de solution. Ici, personnellement, je n'ai rien compris à ta demande... :?

Pourrais-tu détailler tes explications?

Bonjour,

en fait, il ya 4 variables: groupe, effectif, code, secteur
un groupe peut avoir plusieurs code, plusieur secteurs, plusieurs effectifs. si le groupe possède x ou y comme code alors il faut les remplacer par le code qui le plus grand effectif, et changer le secteur aussi

exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 For i = 2 To Cells(65536, 1).End(xlUp).Row Step 1 If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then a = a + 1 End If MsgBox "Le nombre de groupe est de : " & a + 1 If Cells(i, 3).Value = "x" Or Cells(i, 3).Value = "y" Then Cells(i, 3).Value = Cells(n, 3).Value ' avec n = ligne du groupe qui a le plus grand effectif je bloque ici Cells(i, 4).Value = Cells(n, 4).Value End If Next i
vous pouvez me donner une idée svp? merci
cordialement

02/06/2011, 12h41
Philippe Tulliez

Bonjour,
Je crois qu'il serait plus judicieux de nous expliquer comment est organisée ta feuille excel et ce que tu cherches à obtenir comme résultat.
Il est difficile de donner une solution quand on ne connaît pas tous les éléments d'un problème.
02/06/2011, 12h50
isabela

1 pièce(s) jointe(s)

dans la feuille excel:
colonne A: groupe
colonne B: effectif
colonne C: code
colonne D: secteur

je remet un fichier exemple en pièce jointe

Sur base de données commençant en A1 (intitulés)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub RemplacementCodes()
  Dim CodeAAffecter As Variant
  Dim SecteurAAffecter As Variant
  Dim LigneEffectifMax As Long
  Dim Cellule As Range
 
  ' Recherche de l'effectif le plus grand
  ' et des valeurs à affecter
  LigneEffectifMax = Evaluate("MAX(ROW(B:B)*(B:B=MAX(B:B)))")
  CodeAAffecter = Cells(LigneEffectifMax, 3)
  SecteurAAffecter = Cells(LigneEffectifMax, 4)
 
  ' Parcours des données et remplacement
  For Each Cellule In Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    If Cellule(1, 3) = "X" Or Cellule(1, 3) = "Y" Then
      Cellule(1, 3) = CodeAAffecter
      Cellule(1, 4) = SecteurAAffecter
    End If
  Next Cellule
End Sub

02/06/2011, 16h53
isabela

Bonjour Pierre Fauconnier,
j'ai essayé votre code mais il remplace tous les x par y,
02/06/2011, 18h58
Pierre Fauconnier

A priori, j'avais testé et cela fonctionnait. Es-tu certaine que ce n'est pas un groupe ayant Y comme code qui ait le maximum d'effectifs?
02/06/2011, 22h45
isabela

1 pièce(s) jointe(s)

Bonsoir,

il faut que les x et y soient remplacés par le code qui a le plus grand effectif
de chaque groupe, je sais pas si c'est clair j'ai peut être du mal a m'exprimer, il faut que les codes ainsi que les secteur soient remplacés comme dans la feuille 3, merci de m'aider jsuis vraiment désolée...

j'ai oublié de mettre le fichier afin de voir la feuille 3

Voilà qui devrait convenir
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub Test() Dim LigneMax As Long Dim Cellule As Range For Each Cellule In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)) ' Recherche de la ligne contenant le maximum pour le groupe, à l'exclusion codes = X ou Y LigneMax = Evaluate("MAX(ROW($A$2:$A$23)*(($A$2:$A$23=""" & Cellule.Value & _ """)*($B$2:$B$23)=MAX(($A$2:$A$23=""" & Cellule.Value & _ """)*($B$2:$B$23)*($C$2:$C$23<>""x"")*($C$2:$C$23<>""y""))))") ' Test si on est sur une ligne x ou y If Cellule(1, 3) = "x" Or Cellule(1, 3) = "y" Then ' si oui, on remplace par les valeurs de C et D de la ligne contenant le max Cellule(1, 3) = Cells(LigneMax, 3) Cellule(1, 4) = Cells(LigneMax, 4) End If Next Cellule End Sub
Si tu préfères sans VBA, tu peux utiliser les formules

Citation:

=DECALER($A$1;MAX(LIGNE($A$2:$A$23)*(($A$2:$A$23=A2)*($B$2:$B$23)=MAX(($A$2:$A$23=A2)*($B$2:$B$23)*($C$2:$C$23<>"x")*($C$2:$C$23<>"y"))))-1;2)

pour le code,

et

Citation:

=DECALER($A$1;MAX(LIGNE($A$2:$A$23)*(($A$2:$A$23=A2)*($B$2:$B$23)=MAX(($A$2:$A$23=A2)*($B$2:$B$23)*($C$2:$C$23<>"x")*($C$2:$C$23<>"y"))))-1;3)

pour le secteur.

Attention! Tu dois valider les formules avec CTRL+SHIFT+ENTER pour les transformer en formules matricielles. Excel ajoute alors les accolades.

Après, un simple copier/coller spécial valeur permet de remplacer les valeurs en C et D

http://fauconnier.developpez.com/for...ricielle_1.png

05/06/2011, 10h55
isabela

Bonjour Pierre Fauconnier,
je vous en remercie pour votre aide, quand je l'applique sur ma base de données il fonctionne pas, j'ai essayé de modifier mais toujours pas de resultat, il remplace tous les code x et y par le code de la dernière ligne de la base de donnée. depuis hièr j'essaye de le modifier mais j'ai pas réussi.
05/06/2011, 12h35
Pierre Fauconnier

Avec le fichier que tu as donné le 02/06 à 22h45, mon code et mes formules fonctionnent et donnent le résultat attendu comme illustré sur ta feuille 3.

As-tu vraiment besoin de VBA? Si non, utilise mes formules.

Si oui, le code fonctionne et c'est donc dans les modifications que tu y a apportées qu'il y a un problème.
06/06/2011, 00h12
isabela

Bonsoir Pierre Fauconnier,
pourriez vous m'envoyer votre adresse mail afin de vous envoyer mon fichier si ça ne vous dérange pas bien sur?
cordilement
isabela
06/06/2011, 00h17
Pierre Fauconnier

Ce n'est pas dans l'esprit du forum... Il serait de loin préférable de continuer dans cette discussion.

De cette manière, plusieurs personnes peuvent contribuer à la résolution de votre problème...

Si vous avez transformé le code que je vous ai donné, mettez ici une copie de votre code.

Testez mes formules pour voir si vous ne pourriez pas trouver une solution Excel plutôt que VBA...

Cordialement,

Je m'excuse,
dans mon fichier le groupe se trouve en
colonne D: groupe
colonne M: effectif
colonne E: code
colonne K: secteur
vici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Test()
    Dim LigneMax As Long
    Dim Cellule As Range
 
    For Each Cellule In Range(Cells(2, 4), Cells(Rows.Count, 1).End(xlUp))
      ' Recherche de la ligne contenant le maximum pour le groupe, à l'exclusion codes = X ou Y
      LigneMax = Evaluate("MAX(ROW($D$2:$D$23)*(($D$2:$D$23=""" & Cellule.Value & _
        """)*($M$2:$M$23)=MAX(($D$2:$D$23=""" & Cellule.Value & _
        """)*($M$2:$M$23) *($E$2:$E$23<>""x"")*($E$2:$E$23<>""y""))))")
 
      ' Test si on est sur une ligne x ou y
      If Cellule(1, 5) = "x" Or Cellule(1, 5) = "y" Then
        ' si oui, on remplace par les valeurs de C et D de la ligne contenant le max
        Cellule(1, 5) = Cells(LigneMax, 5)
        Cellule(1, 11) = Cells(LigneMax, 11)
      End If
    Next Cellule
End Sub

Il faut essayer de comprendre les codes, sinon, tu ne pourras forcément pas les adapter à ta situation.

Dans la ligne

Code:

For Each Cellule In Range(Cells(2, 4), Cells(Rows.Count, 1).End(xlUp))

tu as bien remplacé 1 par 4 pour la première cellule du range, mais pas le deuxième et la plage de cellules sur laquelle tu boucles est donc forcément mauvaise. Dans le code corrigé que je te donne ci-dessous, j'ai supposé que l'on allait boucler sur D2:Dx (x = dernière ligne utilisée en D ).

L'objet Cellule représente donc une cellule de D (et non de A). Dès lors, les décalages pour réaffecter les codes et les secteurs doivent être adaptés.

Par rapport à D :

E est décalé d'une colonne
K est décalé de huit colonnes

Tu dois donc adapter les lignes de code qui opèrent le remplacement.

Voici un code fonctionnel pour la configuration que tu donnes
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Test() Dim LigneMax As Long Dim Cellule As Range ' On boucle sur les cellules de la colonne D For Each Cellule In Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp)) ' On recherche de la ligne contenant le maximum pour le groupe, à l'exclusion codes = X ou Y LigneMax = Evaluate("MAX(ROW($D$2:$D$23)*(($D$2:$D$23=""" & Cellule.Value & _ """)*($M$2:$M$23)=MAX(($D$2:$D$23=""" & Cellule.Value & _ """)*($M$2:$M$23) *($E$2:$E$23<>""x"")*($E$2:$E$23<>""y""))))") ' On teste si on est sur une ligne x ou y If Cellule(1, 2) = "x" Or Cellule(1, 5) = "y" Then ' si oui, on remplace par les valeurs de E et K de la ligne contenant le max Cellule(1, 2) = Cells(LigneMax, 2) Cellule(1, 8) = Cells(LigneMax, 8) End If Next Cellule End Sub

Bonjour,
merci beaucoup Pierre Fauconnier , en mettant ce code ça fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
    Dim LigneMax As Long
    Dim Cellule As Range
 
    ' On boucle sur les cellules de la colonne D
    For Each Cellule In Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp))
      ' On recherche de la ligne contenant le maximum pour le groupe, à l'exclusion codes = X ou Y
      LigneMax = Evaluate("MAX(ROW($D$2:$D$23)*(($D$2:$D$23=""" & Cellule.Value & _
        """)*($M$2:$M$23)=MAX(($D$2:$D$23=""" & Cellule.Value & _
        """)*($M$2:$M$23) *($E$2:$E$23<>""x"")*($E$2:$E$23<>""y""))))")
 
      ' On teste si on est sur une ligne x ou y
      If Cellule(1, 2) = "x" Or Cellule(1, 2) = "y" Then
        ' si oui, on remplace par les valeurs de E et K de la ligne contenant le max
        Cellule(1, 2) = Cells(LigneMax, 5)
        Cellule(1, 8) = Cells(LigneMax, 11)
      End If
    Next Cellule
End Sub