Selection de 2 feuilles via une combobox
Puis à l'aide de la selection on va se positionner sur la première feuille sur la colonne F et chercher les doublons.
Pour les valeurs avec doublons on fait la somme des lignes des colonnes H,I et J indépendamment.
Pour les valeurs sans doublons on conserve les valeurs des colonnes H,I et J
Ensuite on fait pareil sur la deuxième feuille (qui contient les mêmes codes que la première feuille dans la colonne F mais pas les mêmes valeurs dans H, I et J)
Enfin on soustrait les valeurs des 2 feuilles sur les colonnes H,I et J correspondant aux mêmes codes dans la colonne F.
Voila mon debut de code
Mais à l'execution il ne se passe vraiment rien
Pouvez vous maider !!!!!!!!!!!!!!!!
Private Sub comparaison()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
Dim Plage As Range
Dim Tableau(), Resultat() As String
Dim k As Integer, j As Integer, m As Integer
Dim Un As Collection
Dim Doublons As String
Set Un = New Collection
'La plage de cellules à tester
Set Plage = Range("F5:F" & Range("A65536").End(xlUp).Row)
Dim comp, comp16
Dim comp1, comp10
Dim comp2, comp11
Dim comp3, comp12
Dim comp4, comp13
Dim comp5, comp14
Dim comp6, comp15
Dim MaCellule As Range, i As Long, msg As String
Dim FirstCell As String, ValeurRecherche As Variant
With ActiveCell
ValeurRecherche = .Value
FirstCell = .Address
End With
If ValeurRecherche = "" Then
msg = "Impossible de faire une recherche a partir d'une cellule vide. "
Else
i = 0
With Worksheets(CStr(Me.ComboBox2))
For Each MaCellule In Plage
If MaCellule.Value = ValeurRecherche And MaCellule.Address <> FirstCell Then
14 mars 2008 à 11:53
et c'est biensur dans un fichier excel!!
Aurais tu une idée