Discussion :

[isabela]

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

[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?

[isabela]

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 :

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

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

[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.

[isabela]

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

[Pierre Fauconnier]

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

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
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