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:
- Reprise application vba
- Application word et excel gratuit - Guide
- Desinstaller application windows - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Application franceconnect - Guide
- Miroir application - Guide
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