Affectation de donnees

[polyteis]

Bonsoir

je vous adresse une petite demande :
je dispose dans un classeur de plusieurs feuilles, la première contient toutes les données ( c'est une extraction d'une autre application).

je crée autant de feuillet que de nom, est il possible de faire rapatrier toutes les données d'un même individu dans le bon onglet, et ce grâce au nom du feuillet



merci de votre collaboration

 

[Gardien de phare]

Re : Affectation de donnees

Bonjour,

Testes ce code :

Sub rr()
Dim derlig As Long, nom As String
With Sheets("base")
    derlig = .Range("A100000").End(xlUp).Row
    For i = 2 To derlig
    nom = .Range("D" & i).Value
    Sheets(nom).Range("B1") = .Range("A" & i).Value
    Sheets(nom).Range("B2") = .Range("C" & i).Value
    Sheets(nom).Range("C5") = .Range("D" & i).Value
    Sheets(nom).Range("C6") = .Range("E" & i).Value
    Sheets(nom).Range("C8") = .Range("F" & i).Value
    Sheets(nom).Range("C12") = .Range("B" & i).Value
    Next
End With
End Sub

Attention le code ne prévoit pas le cas où la feuille de destination n'existe pas !

 

[laurent950]

Re : Affectation de donnees

Bonsoir,

Cela devrais correspondre

Sub test()

x = Range("a65536").End(xlUp).Row
T = Range(Cells(2, 1), Cells(x, 6))

For Each MyObject In Worksheets
    For i = 1 To UBound(T, 1)
        If T(i, 4) = MyObject.Name Then
            MyObject.Cells(1, 2) = T(i, 1)
            MyObject.Cells(2, 2) = T(i, 3)
            MyObject.Cells(5, 3) = T(i, 4)
            MyObject.Cells(6, 3) = T(i, 5)
            MyObject.Cells(8, 3) = T(i, 6)
            MyObject.Cells(12, 3) = T(i, 2)
        End If
    Next i
Next MyObject
End Sub

laurent

 

[polyteis]

Re : Affectation de donnees

merci à tous les 2 pour vos réponses rapides.
mais comment fonctionne le code vba.

je dois le placer dans une feuille particuliere, "thisworkbook", module, ect ....
j'ai des choses à paramétrer dans votre codes

je sais encore des questions, .....


mais déjà un grand merci d'avoir pris le temps de repondre

 

[polyteis]

Re : Affectation de donnees

re bonsoir
j ai bien vu le fichier données_test xlm
vu pour le bouton 2 qui une fois que le lance rempli bien les fiches
mais a la fin j obtiens un message
erreur d'éxécution 1004
la méthode Add de l objet sheets a échoué

?????????
merci pour un éclaircissement

 

[laurent950]

Re : Affectation de donnees

Bonsoir,
j'ai nettoyer le programme ne temps c'est propre vous pouvez re-telecharger la nouvelle version en poste 3

laurent

 

[polyteis]

Re : Affectation de donnees

merci laurent

cela fonctionne tres bien,
j'ai adapté ton programme pour que cela transfert 80 lignes comprenant chacune 22 données

encore merci