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
JLuc
Set mc=Sheets("Feuil1").Range("A2") For I = 1 To 30 mc.Offset(I - 1, 0) = Sheets("Feuil" & I + 2).Range("B28") mc.offset(I - 1, 1) = Sheets("Feuil" & I + 2).Range("D28") Next
Devrait convenir, dis nous
-- JLuc
Set mc=Sheets("Feuil1").Range("A2")
For I = 1 To 30
mc.Offset(I - 1, 0) = Sheets("Feuil" & I + 2).Range("B28")
mc.offset(I - 1, 1) = Sheets("Feuil" & I + 2).Range("D28")
Next
Set mc=Sheets("Feuil1").Range("A2") For I = 1 To 30 mc.Offset(I - 1, 0) = Sheets("Feuil" & I + 2).Range("B28") mc.offset(I - 1, 1) = Sheets("Feuil" & I + 2).Range("D28") Next
Devrait convenir, dis nous
-- JLuc
Lolote
Salut Loupio,
Effectivement avec un For Next ca devrait marcher. Je n'ai pas testé, mais je me lance :
Set Mc=Sheets("Feuil1").Range("A2") For F=3 to 30 Mc.value=Sheets("Feuil" & F & "").Range("B28").Value Mc.offset(0,1).Value=Sheets("Feuil" & F & "").Range("D28").Value Set Mc=Mc.offset(1,0) Mc.select Next F
En espérant que cela marche.... @+ Lolote
"Loupio" a écrit dans le message de news:
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet pour des raisons d'efficacité:
Serait il possible de remplacer ces nombreuses lignes par une boucle "For i > 1 to 30).... Next i ???
Merci d'avance
Et profitez bien des cette journée
Loupio
Salut Loupio,
Effectivement avec un For Next ca devrait marcher. Je n'ai pas testé, mais
je me lance :
Set Mc=Sheets("Feuil1").Range("A2")
For F=3 to 30
Mc.value=Sheets("Feuil" & F & "").Range("B28").Value
Mc.offset(0,1).Value=Sheets("Feuil" & F & "").Range("D28").Value
Set Mc=Mc.offset(1,0)
Mc.select
Next F
En espérant que cela marche....
@+ Lolote
"Loupio" <Loupio@discussions.microsoft.com> a écrit dans le message de news:
7DB3EC40-B29A-4904-9234-3F7D3F300E7A@microsoft.com...
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous
VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet
pour des raisons d'efficacité:
Effectivement avec un For Next ca devrait marcher. Je n'ai pas testé, mais je me lance :
Set Mc=Sheets("Feuil1").Range("A2") For F=3 to 30 Mc.value=Sheets("Feuil" & F & "").Range("B28").Value Mc.offset(0,1).Value=Sheets("Feuil" & F & "").Range("D28").Value Set Mc=Mc.offset(1,0) Mc.select Next F
En espérant que cela marche.... @+ Lolote
"Loupio" a écrit dans le message de news:
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet pour des raisons d'efficacité:
Serait il possible de remplacer ces nombreuses lignes par une boucle "For i > 1 to 30).... Next i ???
Merci d'avance
Et profitez bien des cette journée
Loupio
isabelle
bonjour Loupio,
Sub Macro1() For i = 2 To 30 Sheets("Feuil1").Range("A" & i).Value = Sheets("Feuil" & i).Range("B28").Value Sheets("Feuil1").Range("B" & i).Value = Sheets("Feuil" & i).Range("D28").Value Next End Sub
isabelle
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet pour des raisons d'efficacité:
Serait il possible de remplacer ces nombreuses lignes par une boucle "For i= 1 to 30).... Next i ???
Merci d'avance
Et profitez bien des cette journée
Loupio
bonjour Loupio,
Sub Macro1()
For i = 2 To 30
Sheets("Feuil1").Range("A" & i).Value = Sheets("Feuil" & i).Range("B28").Value
Sheets("Feuil1").Range("B" & i).Value = Sheets("Feuil" & i).Range("D28").Value
Next
End Sub
isabelle
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous
VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet
pour des raisons d'efficacité:
Sub Macro1() For i = 2 To 30 Sheets("Feuil1").Range("A" & i).Value = Sheets("Feuil" & i).Range("B28").Value Sheets("Feuil1").Range("B" & i).Value = Sheets("Feuil" & i).Range("D28").Value Next End Sub
isabelle
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet pour des raisons d'efficacité:
Serait il possible de remplacer ces nombreuses lignes par une boucle "For i= 1 to 30).... Next i ???
Merci d'avance
Et profitez bien des cette journée
Loupio
papou
Bonjour Par exemple si ta feuille de départ est la feuille 3 (comme tu sembles l'indiquer dans ton message) Dim NomFeuille As String NomFeuille = "Feuil" For i = 3 To 30 mc.Value = Sheets(NomFeuille & i).Range("B28").Value mc.Offset(0, 1).Value = Sheets(NomFeuille & i).Range("D28").Value Set mc = mc.Offset(1, 0) Next i
Cordialement Pascal
"Loupio" a écrit dans le message de news:
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet pour des raisons d'efficacité:
Serait il possible de remplacer ces nombreuses lignes par une boucle "For i > 1 to 30).... Next i ???
Merci d'avance
Et profitez bien des cette journée
Loupio
Bonjour
Par exemple si ta feuille de départ est la feuille 3 (comme tu sembles
l'indiquer dans ton message)
Dim NomFeuille As String
NomFeuille = "Feuil"
For i = 3 To 30
mc.Value = Sheets(NomFeuille & i).Range("B28").Value
mc.Offset(0, 1).Value = Sheets(NomFeuille & i).Range("D28").Value
Set mc = mc.Offset(1, 0)
Next i
Cordialement
Pascal
"Loupio" <Loupio@discussions.microsoft.com> a écrit dans le message de news:
7DB3EC40-B29A-4904-9234-3F7D3F300E7A@microsoft.com...
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous
VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet
pour des raisons d'efficacité:
Bonjour Par exemple si ta feuille de départ est la feuille 3 (comme tu sembles l'indiquer dans ton message) Dim NomFeuille As String NomFeuille = "Feuil" For i = 3 To 30 mc.Value = Sheets(NomFeuille & i).Range("B28").Value mc.Offset(0, 1).Value = Sheets(NomFeuille & i).Range("D28").Value Set mc = mc.Offset(1, 0) Next i
Cordialement Pascal
"Loupio" a écrit dans le message de news:
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet pour des raisons d'efficacité:
Serait il possible de remplacer ces nombreuses lignes par une boucle "For i > 1 to 30).... Next i ???
Merci d'avance
Et profitez bien des cette journée
Loupio
Loupio
Ca marche trop trop trop bien! Merci beaucoup et que cette belle journée persiste! loupio
Set mc=Sheets("Feuil1").Range("A2") For I = 1 To 30 mc.Offset(I - 1, 0) = Sheets("Feuil" & I + 2).Range("B28") mc.offset(I - 1, 1) = Sheets("Feuil" & I + 2).Range("D28") Next
Devrait convenir, dis nous
-- JLuc
Ca marche trop trop trop bien! Merci beaucoup et que cette belle journée
persiste!
loupio
Set mc=Sheets("Feuil1").Range("A2")
For I = 1 To 30
mc.Offset(I - 1, 0) = Sheets("Feuil" & I + 2).Range("B28")
mc.offset(I - 1, 1) = Sheets("Feuil" & I + 2).Range("D28")
Next
Ca marche trop trop trop bien! Merci beaucoup et que cette belle journée persiste! loupio
Set mc=Sheets("Feuil1").Range("A2") For I = 1 To 30 mc.Offset(I - 1, 0) = Sheets("Feuil" & I + 2).Range("B28") mc.offset(I - 1, 1) = Sheets("Feuil" & I + 2).Range("D28") Next
Devrait convenir, dis nous
-- JLuc
Loupio
Merci à vous tous,
C super cool!
Loupio
Bonjour Par exemple si ta feuille de départ est la feuille 3 (comme tu sembles l'indiquer dans ton message) Dim NomFeuille As String NomFeuille = "Feuil" For i = 3 To 30 mc.Value = Sheets(NomFeuille & i).Range("B28").Value mc.Offset(0, 1).Value = Sheets(NomFeuille & i).Range("D28").Value Set mc = mc.Offset(1, 0) Next i
Cordialement Pascal
"Loupio" a écrit dans le message de news:
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet pour des raisons d'efficacité:
Serait il possible de remplacer ces nombreuses lignes par une boucle "For i > > 1 to 30).... Next i ???
Merci d'avance
Et profitez bien des cette journée
Loupio
Merci à vous tous,
C super cool!
Loupio
Bonjour
Par exemple si ta feuille de départ est la feuille 3 (comme tu sembles
l'indiquer dans ton message)
Dim NomFeuille As String
NomFeuille = "Feuil"
For i = 3 To 30
mc.Value = Sheets(NomFeuille & i).Range("B28").Value
mc.Offset(0, 1).Value = Sheets(NomFeuille & i).Range("D28").Value
Set mc = mc.Offset(1, 0)
Next i
Cordialement
Pascal
"Loupio" <Loupio@discussions.microsoft.com> a écrit dans le message de news:
7DB3EC40-B29A-4904-9234-3F7D3F300E7A@microsoft.com...
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous
VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet
pour des raisons d'efficacité:
Bonjour Par exemple si ta feuille de départ est la feuille 3 (comme tu sembles l'indiquer dans ton message) Dim NomFeuille As String NomFeuille = "Feuil" For i = 3 To 30 mc.Value = Sheets(NomFeuille & i).Range("B28").Value mc.Offset(0, 1).Value = Sheets(NomFeuille & i).Range("D28").Value Set mc = mc.Offset(1, 0) Next i
Cordialement Pascal
"Loupio" a écrit dans le message de news:
Bonjour tout le monde,
Je suis heureux de cette très belle journée ensoleillée malgré mon pb sous VBA excel.
J'ai un code qui fonctionne, mais je souhaiterai le simplifier au taquet pour des raisons d'efficacité: