Macro VBA : recuperation de valeur d'une feuille a l'autre

Résolu/Fermé

chrispr07 Messages postés 47 Date d'inscription mercredi 6 août 2014 Statut Membre Dernière intervention 2 juillet 2015 - 11 juin 2015 à 21:18
chrispr07 Messages postés 47 Date d'inscription mercredi 6 août 2014 Statut Membre Dernière intervention 2 juillet 2015 - 13 juin 2015 à 20:34

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

A voir également:

Macro VBA : recuperation de valeur d'une feuille a l'autre
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Incompatibilité de type vba ✓ - Forum Programmation

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
12 juin 2015 à 10:06

Bonjour,

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+

chrispr07 Messages postés 47 Date d'inscription mercredi 6 août 2014 Statut Membre Dernière intervention 2 juillet 2015
13 juin 2015 à 20:34

MERCI
c'est OK

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters