selectionner une plage de valeur et reporter celles ci
2 réponses
dreamth
Bonsoir à toutes et tous,
J'essaie de réaliser une macro qui me permettrai (entre autre) de
selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs
une par une dans les colonnes (une colone par plage) d'un tableau d'une
feuille non concernée.
J'essaie avec "
for i = 2 to sheet.count
range("R7:R36").select
For each cel in selection
toto = cel.value
sheet("recap").activate
et c'est là que je ne sais pas comment déplacer d'une colone à chaque boucle
next i ni injecter les valeurs de "toto" dans ma feuille récap
Merci beaucoup à ceux qui me répondront
--
a la découverte d''excel et VBA ....
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
JB
Bonsoir,
S'il n'y a pas de formule:
For i = 2 To Sheets.Count Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i) Next i
S'il y a formule:
For i = 2 To Sheets.Count Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i).PasteSpecial Paste:=xlPasteValues Next i
JB
On 2 août, 22:56, dreamth wrote:
Bonsoir à toutes et tous, J'essaie de réaliser une macro qui me permettrai (entre autre) de selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs une par une dans les colonnes (une colone par plage) d'un tableau d'une feuille non concernée. J'essaie avec " for i = 2 to sheet.count range("R7:R36").select For each cel in selection toto = cel.value sheet("recap").activate et c'est là que je ne sais pas comment déplacer d'une colone à chaq ue boucle next i ni injecter les valeurs de "toto" dans ma feuille récap
Merci beaucoup à ceux qui me répondront -- a la découverte d''excel et VBA ....
Bonsoir,
S'il n'y a pas de formule:
For i = 2 To Sheets.Count
Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i)
Next i
S'il y a formule:
For i = 2 To Sheets.Count
Sheets(i).[R7:R36].Copy
Sheets(1).Cells(7, i).PasteSpecial Paste:=xlPasteValues
Next i
JB
On 2 août, 22:56, dreamth <drea...@discussions.microsoft.com> wrote:
Bonsoir à toutes et tous,
J'essaie de réaliser une macro qui me permettrai (entre autre) de
selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs
une par une dans les colonnes (une colone par plage) d'un tableau d'une
feuille non concernée.
J'essaie avec "
for i = 2 to sheet.count
range("R7:R36").select
For each cel in selection
toto = cel.value
sheet("recap").activate
et c'est là que je ne sais pas comment déplacer d'une colone à chaq ue boucle
next i ni injecter les valeurs de "toto" dans ma feuille récap
Merci beaucoup à ceux qui me répondront
--
a la découverte d''excel et VBA ....
For i = 2 To Sheets.Count Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i) Next i
S'il y a formule:
For i = 2 To Sheets.Count Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i).PasteSpecial Paste:=xlPasteValues Next i
JB
On 2 août, 22:56, dreamth wrote:
Bonsoir à toutes et tous, J'essaie de réaliser une macro qui me permettrai (entre autre) de selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs une par une dans les colonnes (une colone par plage) d'un tableau d'une feuille non concernée. J'essaie avec " for i = 2 to sheet.count range("R7:R36").select For each cel in selection toto = cel.value sheet("recap").activate et c'est là que je ne sais pas comment déplacer d'une colone à chaq ue boucle next i ni injecter les valeurs de "toto" dans ma feuille récap
Merci beaucoup à ceux qui me répondront -- a la découverte d''excel et VBA ....
dreamth
Merci de votre réponse JB Je teste cela dès demain matin bonne soirée (nuit) -- a la découverte d''''''''excel et VBA ....
Bonsoir,
S'il n'y a pas de formule:
For i = 2 To Sheets.Count Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i) Next i
S'il y a formule:
For i = 2 To Sheets.Count Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i).PasteSpecial Paste:=xlPasteValues Next i
JB
On 2 août, 22:56, dreamth wrote:
Bonsoir à toutes et tous, J'essaie de réaliser une macro qui me permettrai (entre autre) de selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs une par une dans les colonnes (une colone par plage) d'un tableau d'une feuille non concernée. J'essaie avec " for i = 2 to sheet.count range("R7:R36").select For each cel in selection toto = cel.value sheet("recap").activate et c'est là que je ne sais pas comment déplacer d'une colone à chaque boucle next i ni injecter les valeurs de "toto" dans ma feuille récap
Merci beaucoup à ceux qui me répondront -- a la découverte d''excel et VBA ....
Merci de votre réponse JB
Je teste cela dès demain matin
bonne soirée (nuit)
--
a la découverte d''''''''excel et VBA ....
Bonsoir,
S'il n'y a pas de formule:
For i = 2 To Sheets.Count
Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i)
Next i
S'il y a formule:
For i = 2 To Sheets.Count
Sheets(i).[R7:R36].Copy
Sheets(1).Cells(7, i).PasteSpecial Paste:=xlPasteValues
Next i
JB
On 2 août, 22:56, dreamth <drea...@discussions.microsoft.com> wrote:
Bonsoir à toutes et tous,
J'essaie de réaliser une macro qui me permettrai (entre autre) de
selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs
une par une dans les colonnes (une colone par plage) d'un tableau d'une
feuille non concernée.
J'essaie avec "
for i = 2 to sheet.count
range("R7:R36").select
For each cel in selection
toto = cel.value
sheet("recap").activate
et c'est là que je ne sais pas comment déplacer d'une colone à chaque boucle
next i ni injecter les valeurs de "toto" dans ma feuille récap
Merci beaucoup à ceux qui me répondront
--
a la découverte d''excel et VBA ....
Merci de votre réponse JB Je teste cela dès demain matin bonne soirée (nuit) -- a la découverte d''''''''excel et VBA ....
Bonsoir,
S'il n'y a pas de formule:
For i = 2 To Sheets.Count Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i) Next i
S'il y a formule:
For i = 2 To Sheets.Count Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i).PasteSpecial Paste:=xlPasteValues Next i
JB
On 2 août, 22:56, dreamth wrote:
Bonsoir à toutes et tous, J'essaie de réaliser une macro qui me permettrai (entre autre) de selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs une par une dans les colonnes (une colone par plage) d'un tableau d'une feuille non concernée. J'essaie avec " for i = 2 to sheet.count range("R7:R36").select For each cel in selection toto = cel.value sheet("recap").activate et c'est là que je ne sais pas comment déplacer d'une colone à chaque boucle next i ni injecter les valeurs de "toto" dans ma feuille récap
Merci beaucoup à ceux qui me répondront -- a la découverte d''excel et VBA ....