Bonjour,
J'ai la Macro ci-dessous qui fonctionne bien, mais je
voudrai y apporter 2 modifications sur la ligne:
For Each Cell In Range("J3:J291")
1) au lieu de 291, je voudrai utiliser la
zone "derniereligne"
2) au lieu d'indiquer la colone "J", je voudrai en faite,
la colonne "C" + mois (car il y a une colonne par mois
(12))
Merci pour votre aide,
marchepied
Sub recherche_compte()
Dim derniereligne As Long
Dim Cell As Variant
Feuille = [D19]
mois = Mid(Feuille, 7, 2)
Worksheets("cumul 2004").Select
derniereligne = Range("a65536").End(xlUp).Row
For Each Cell In Range("J3:J291")
Position = Mid(Cell.Address, 4, 5)
kkk = Range("A" & Position)
Range("J" & Position) = Evaluate("index(montant,match(" &
kkk & ",ref,0))")
Next
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
Bonsoir ' D'abord, définir la var derL Dim derL As Long ' Ensuite, lui attribuer sa valeur derL = Sheets("feuil1").[A65536].End(xlUp).Row
ce que tu as fait parfaitement.
' Ensuite, la faire travailler Range("B" & derL).Select Comme dans ton : kkk = Range("A" & Position)
---------------------------- Pour ce qui est de la colonne C, je ne comprends pas. Tu veux une boucle sur 12 colonnes (12 mois) ? Ou bien C = janvier, D = février ...... ----------------------------- Bonne chance
-- Bien amicalmement, Vivement conseillé >> http://www.excelabo.net Jacquouille.
"marchepied" a écrit dans le message de news:047d01c4b849$b3bb5aa0$
Bonjour, J'ai la Macro ci-dessous qui fonctionne bien, mais je voudrai y apporter 2 modifications sur la ligne: For Each Cell In Range("J3:J291") 1) au lieu de 291, je voudrai utiliser la zone "derniereligne" 2) au lieu d'indiquer la colone "J", je voudrai en faite, la colonne "C" + mois (car il y a une colonne par mois (12)) Merci pour votre aide, marchepied
Sub recherche_compte() Dim derniereligne As Long Dim Cell As Variant Feuille = [D19] mois = Mid(Feuille, 7, 2) Worksheets("cumul 2004").Select derniereligne = Range("a65536").End(xlUp).Row For Each Cell In Range("J3:J291") Position = Mid(Cell.Address, 4, 5) kkk = Range("A" & Position) Range("J" & Position) = Evaluate("index(montant,match(" & kkk & ",ref,0))") Next End Sub
Bonsoir
' D'abord, définir la var derL
Dim derL As Long
' Ensuite, lui attribuer sa valeur
derL = Sheets("feuil1").[A65536].End(xlUp).Row
ce que tu as fait parfaitement.
' Ensuite, la faire travailler
Range("B" & derL).Select
Comme dans ton : kkk = Range("A" & Position)
----------------------------
Pour ce qui est de la colonne C, je ne comprends pas.
Tu veux une boucle sur 12 colonnes (12 mois) ?
Ou bien C = janvier, D = février ......
-----------------------------
Bonne chance
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.
j.thiernesseNOSPAM@skynet.be
"marchepied" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:047d01c4b849$b3bb5aa0$a601280a@phx.gbl...
Bonjour,
J'ai la Macro ci-dessous qui fonctionne bien, mais je
voudrai y apporter 2 modifications sur la ligne:
For Each Cell In Range("J3:J291")
1) au lieu de 291, je voudrai utiliser la
zone "derniereligne"
2) au lieu d'indiquer la colone "J", je voudrai en faite,
la colonne "C" + mois (car il y a une colonne par mois
(12))
Merci pour votre aide,
marchepied
Sub recherche_compte()
Dim derniereligne As Long
Dim Cell As Variant
Feuille = [D19]
mois = Mid(Feuille, 7, 2)
Worksheets("cumul 2004").Select
derniereligne = Range("a65536").End(xlUp).Row
For Each Cell In Range("J3:J291")
Position = Mid(Cell.Address, 4, 5)
kkk = Range("A" & Position)
Range("J" & Position) = Evaluate("index(montant,match(" &
kkk & ",ref,0))")
Next
End Sub
Bonsoir ' D'abord, définir la var derL Dim derL As Long ' Ensuite, lui attribuer sa valeur derL = Sheets("feuil1").[A65536].End(xlUp).Row
ce que tu as fait parfaitement.
' Ensuite, la faire travailler Range("B" & derL).Select Comme dans ton : kkk = Range("A" & Position)
---------------------------- Pour ce qui est de la colonne C, je ne comprends pas. Tu veux une boucle sur 12 colonnes (12 mois) ? Ou bien C = janvier, D = février ...... ----------------------------- Bonne chance
-- Bien amicalmement, Vivement conseillé >> http://www.excelabo.net Jacquouille.
"marchepied" a écrit dans le message de news:047d01c4b849$b3bb5aa0$
Bonjour, J'ai la Macro ci-dessous qui fonctionne bien, mais je voudrai y apporter 2 modifications sur la ligne: For Each Cell In Range("J3:J291") 1) au lieu de 291, je voudrai utiliser la zone "derniereligne" 2) au lieu d'indiquer la colone "J", je voudrai en faite, la colonne "C" + mois (car il y a une colonne par mois (12)) Merci pour votre aide, marchepied
Sub recherche_compte() Dim derniereligne As Long Dim Cell As Variant Feuille = [D19] mois = Mid(Feuille, 7, 2) Worksheets("cumul 2004").Select derniereligne = Range("a65536").End(xlUp).Row For Each Cell In Range("J3:J291") Position = Mid(Cell.Address, 4, 5) kkk = Range("A" & Position) Range("J" & Position) = Evaluate("index(montant,match(" & kkk & ",ref,0))") Next End Sub
