récupération d'information

[meddsou1812]

salut tout le monde au fait j'ai un probleme urgent;au fait j'ai 2 feuilles excel; et je veux ramener des informations d'une feuille a l'autre ; je veux que le porgram parcour la liste des gsm et verifi les num et les classer selon la consomation et le mois , si il ya le num qui se repete avec des montants different qu'il les classe selon le mois , le mieux serait de voir mon demo
h = 2
For i = 2 To 5
dat = Cells(i, 1)
gsm = Cells(i, 5)
mont = Cells(i, 6)
'une boucle sur la liste des gsm de la feuille gsm
Do
If (Sheets(fey).Range("B" & h).Value = gsm) Then m = h
h = h + 1
MsgBox m
MsgBox "tour " & h
Loop While Sheets(fey).Range("B" & h).Value <> ""

MsgBox Sheets(fey).Range("B" & h) & "" & m

Sheets(fey).Range("A" & m) = numsec
Sheets(fey).Range("B" & m) = gsm
For j = 3 To 14
If (Sheets(fey).Cells(1, j).Value = dat) Then
Sheets(fey).Cells(m, j) = mont
End If
Next
Next

 

[meddsou1812]

a l'aide

aider moi c'est urgent plse