manipuler 2feuilles avec macro vba

[TOUB42]

bonsoir,
comment manipuler deux feuilles excel sous vba afin de croiser et copier des données des données d'une feuille vers une autre, feuiille reglement, feuille facturation, les cellules à copier montant et n°facture voici le code développé mais ma boucle ne fonctionne pas merci pour votre réponse Sub CopieMOntant()
Dim j As Integer
Dim MONTANTAREPORTER

'NOMDELAFEUILLE = InputBox("Entrez le Nom de la Feuille")
NOMDELAFEUILLE = "REGLEMENT"
'Application.ScreenUpdating = False
'saisie obligatoire
Worksheets(NOMDELAFEUILLE).Activate
Set r = Range("a1:a3073")
'ON DETERMINE LA DERNIERE LIGNE ACTIVE
DerniereLigne = ActiveSheet.UsedRange.Row - 1
DerniereLigne = DerniereLigne + ActiveSheet.UsedRange.Rows.Count

' NOMDELAFEUILLE2 = InputBox("Entrez le Nom de la Feuille")
NOMDELAFEUILLE2 = "ECART2-2010"
Worksheets(NOMDELAFEUILLE2).Activate
DerniereLigne2 = ActiveSheet.UsedRange.Row - 1
DerniereLigne2 = DerniereLigne2 + ActiveSheet.UsedRange.Rows.Count


For i = 2 To 26 'DerniereLigne

'je consulte la période de la feuille règlement
If r.Cells(i, 11).Value = s.Cells(i, 5).Value Then
' Worksheets("Feuille1").Cells(6,1).value,3) = Worksheets("Feuille2").Range("A1:A65636").Value Then
For j = (i) To 5 'DerniereLigne2

'COLONNE N°SS----------JE TESTE LA COLONNE N°SS------------------------
If r.Cells(i, 10).Value = s.Cells(j, 3).Value Then
'JE SURLIGNE LES LIGNES EN JAUNE FEUILLE REGLEMENT--------------------

r.Cells(i, 10).EntireRow.Interior.ColorIndex = 6
'JE SURLIGNE LES LIGNES EN JAUNE FEUILLE ECART2-2010--------------------
s.Cells(j, 3).EntireRow.Interior.ColorIndex = 6
'i = i + 1
'JE RECOPIE LE MONTANT FACTURE SUR LA FEUILLE REGLEMENT--------------------
MONTANTAREPORTER = s.Cells(j, 10).Value 'MONTANT FACTURE A REPORTER
'JE RECOPIE LE N°FACTURE SUR LA FEUILLE REGLEMENT--------------------
NUMEROFACTUREAREPORTER = s.Cells(j, 28).Value 'N°FACTURE A REPORTER

'JE recopie le montant dans la colonne F de la feuille REGLEMENT DANS La feuille ecart2-2010 colonne K
'POUR LE MOIS DE 2/2010
r.Cells(i, 6).Value = MONTANTAREPORTER
s.Cells(j, 22).Value = NUMEROFACTUREAREPORTER

Exit For
Else

' i = i + 1
End If

Next j

Else 'je consulte la période de la feuille règlement



End If

Next i

Application.ScreenUpdating = True
MsgBox ("Copie terminée")
End Sub

 

[smotty]

Re : manipuler 2feuilles avec macro vba

Bonsoir,

Set r = Range("a1:a3073")

If r.Cells(i, 11).Value = s.Cells(i, 5).Value Then

Vous avez déterminer r mais pas s

Il est plus simple de se référer à 2 feuilles en utilisant une variable worksheet

exemple juste pour montrer la simplicité:
dim sh1 as worksheet
dim sh2 a worksheet

set Sh1=worksheets(Nomfeuille1)
set Sh2=worksheets(Nomfeuille2)

sh1.cells(x,y)=sh2.cells(x,Y)

Voilà, en espérant que ça aidera

smotty

 

[TOUB42]

Re : manipuler 2feuilles avec macro vba

Bonsoir,

Set r = Range("a1:a3073")

If r.Cells(i, 11).Value = s.Cells(i, 5).Value Then

Vous avez déterminer r mais pas s

Il est plus simple de se référer à 2 feuilles en utilisant une variable worksheet

exemple juste pour montrer la simplicité:
dim sh1 as worksheet
dim sh2 a worksheet

set Sh1=worksheets(Nomfeuille1)
set Sh2=worksheets(Nomfeuille2)

sh1.cells(x,y)=sh2.cells(x,Y)

Voilà, en espérant que ça aidera

smotty

bonsoir,
merci pour votre réponse, mais je souhaite tester la période j de la feuille reglement avec la période colonne la E la feuille ecart2-2010si egale pour boucler sur leN°SS colonne C reglement=N°SS colonne j si = je recopie le montant et le N°facture dans la feuille reglement colonne F et N°facture colonne Z(fevrier)
le