salut tout le monde
Je souhaite que quelqu'un m'aide à résoudre le problème suivant:
j'ai une base de donnée ayant un certain nombre de ligne et colonne
-la colonne L présente taille et la colonne M présente le prix de vente
-Dans la colonne C (référence); j'ai certaines valeur qui ce répètent. je veux enlever les lignes ayant des doublons de valeur (références) dans la colonne C et calculer à chaque fois la moyenne de prix et la somme des tailles qui correspondent à ces lignes.
J'ai la macro suivante seulement je veux introduire uniquement la fonction moyenne (prix) et la fonction somme(taille) affectées aux lignes ayant les même valeur de la colonne C tout en gardant les autres cellules des autres colonnes (c.à.d. outres colonnes L et M )intacts (inchangés)
Sub Doub()
Dim X As Long
Dim Y As Long
Dim Flg_V As Boolean
For X = [A65536].End(xlUp).Row To 2 Step -1
For Y = X - 1 To 1 Step -1
If Range("C" & X) = Range("C" & Y) Then
Flg_V = True
Exit For
End If
Next Y
If Flg_V Then
Flg_V = False
Rows(X).Delete
End If
Next X
End Sub
Y'a t-il quelqu'un qui peut m'aider
j'en ai besoin, merci d'avance
Je souhaite que quelqu'un m'aide à résoudre le problème suivant:
j'ai une base de donnée ayant un certain nombre de ligne et colonne
-la colonne L présente taille et la colonne M présente le prix de vente
-Dans la colonne C (référence); j'ai certaines valeur qui ce répètent. je veux enlever les lignes ayant des doublons de valeur (références) dans la colonne C et calculer à chaque fois la moyenne de prix et la somme des tailles qui correspondent à ces lignes.
J'ai la macro suivante seulement je veux introduire uniquement la fonction moyenne (prix) et la fonction somme(taille) affectées aux lignes ayant les même valeur de la colonne C tout en gardant les autres cellules des autres colonnes (c.à.d. outres colonnes L et M )intacts (inchangés)
Sub Doub()
Dim X As Long
Dim Y As Long
Dim Flg_V As Boolean
For X = [A65536].End(xlUp).Row To 2 Step -1
For Y = X - 1 To 1 Step -1
If Range("C" & X) = Range("C" & Y) Then
Flg_V = True
Exit For
End If
Next Y
If Flg_V Then
Flg_V = False
Rows(X).Delete
End If
Next X
End Sub
Y'a t-il quelqu'un qui peut m'aider
j'en ai besoin, merci d'avance