Macro VBA : recuperation de valeur d'une feuille a l'autre
Résolu
chrispr07
Messages postés
50
Statut
Membre
-
chrispr07 Messages postés 50 Statut Membre -
chrispr07 Messages postés 50 Statut Membre -
Bonjour ,
j'essaie de recuperer des valeurs d'une feuille a une autre mais
et donc j'ai imbriqué deux boucles for
mais j'obtiens pas le resultat escompté
voici mon code
Sub PP_Information()
Dim a1 As String
Dim a2 As String
Dim m As Integer
Dim numColpp As Integer
numColpp = 29
' je recupere les données des cinq précédentes variantes
For m = 2 To 7
For i = numColpp - 5 To numColpp
Sheets("PP").Select
a1 = Cells(3, i).Value
a2 = Cells(5, i).Value
Cells(203, i).Value = a1
Cells(204, i).Value = a2
Cells(203, i).Select
ActiveWorkbook.Names.Add Name:="xpp" & i, RefersToR1C1:="=PP!R203C" & i
Cells(204, i).Select
ActiveWorkbook.Names.Add Name:="xps" & i, RefersToR1C1:="=PP!R204C" & i
Sheets("exemple").Select
Sheets("exemple").Range("c" & m).Value = Sheets("PP").Range("xpp" & i).Value & "_" & Sheets("PP").Range("xps" & i).Value
'Sheets("exemple").Range("B" & m).Value = Sheets("PP").Range("xps" & i).Value
'nommer les différents emplacements ou je stock mes données
''''''
Next
next
end sub
merci pour votre aide
j'essaie de recuperer des valeurs d'une feuille a une autre mais
et donc j'ai imbriqué deux boucles for
mais j'obtiens pas le resultat escompté
voici mon code
Sub PP_Information()
Dim a1 As String
Dim a2 As String
Dim m As Integer
Dim numColpp As Integer
numColpp = 29
' je recupere les données des cinq précédentes variantes
For m = 2 To 7
For i = numColpp - 5 To numColpp
Sheets("PP").Select
a1 = Cells(3, i).Value
a2 = Cells(5, i).Value
Cells(203, i).Value = a1
Cells(204, i).Value = a2
Cells(203, i).Select
ActiveWorkbook.Names.Add Name:="xpp" & i, RefersToR1C1:="=PP!R203C" & i
Cells(204, i).Select
ActiveWorkbook.Names.Add Name:="xps" & i, RefersToR1C1:="=PP!R204C" & i
Sheets("exemple").Select
Sheets("exemple").Range("c" & m).Value = Sheets("PP").Range("xpp" & i).Value & "_" & Sheets("PP").Range("xps" & i).Value
'Sheets("exemple").Range("B" & m).Value = Sheets("PP").Range("xps" & i).Value
'nommer les différents emplacements ou je stock mes données
''''''
Next
next
end sub
merci pour votre aide
A voir également:
- Macro VBA : recuperation de valeur d'une feuille a l'autre
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Excel compter cellule couleur sans vba - Guide
- Arreter une macro vba ✓ - Forum VB / VBA
1 réponse
Bonjour,
En appliquant un décalage à chaque copie de données, tu auras un meilleure idée du traitement effectué par ta procédure.
A+
En appliquant un décalage à chaque copie de données, tu auras un meilleure idée du traitement effectué par ta procédure.
Sub PP_Information()
Dim a1 As String
Dim a2 As String
Dim m As Integer
Dim numColpp As Integer
numColpp = 29
' je recupere les données des cinq précédentes variantes
For m = 2 To 7
For i = numColpp - 5 To numColpp
Sheets("PP").Select
a1 = Cells(3, i).Value
a2 = Cells(5, i).Value
Cells(203, i).Value = a1
Cells(204, i).Value = a2
Cells(203, i).Select
ActiveWorkbook.Names.Add Name:="xpp" & i, RefersToR1C1:="=PP!R203C" & i
Cells(204, i).Select
ActiveWorkbook.Names.Add Name:="xps" & i, RefersToR1C1:="=PP!R204C" & i
Sheets("exemple").Select
Sheets("exemple").Range("C" & m).Offset(0, i - 24).Value = Sheets("PP").Range("xpp" & i).Value & "_" & Sheets("PP").Range("xps" & i).Value
'Sheets("exemple").Range("B" & m).Value = Sheets("PP").Range("xps" & i).Value
'nommer les différents emplacements ou je stock mes données
''''''
Next
Next
End Sub
A+
c'est OK