Macro récupération de données

[GHITZI]

Bonjour,

Je découvre votre site et forum, plein de bons conseils et d' "excelman" qui je pense vont pouvoir m'aider.
J'ai récupérer des infos et essayé de faire une macro me permettant de récupérer des infos dans une 1ere feuille (formulaire) et les transposant dans une 2eme (satisfaction).

Cette macro fonctionne à moitié, en effet, celle ci récupérer bien les infos (verticalement dans la feuille formulaire) et les transpose dans la feuille satisfaction (horizontalement).
Tout fonctionne bien sur la 1ere ligne mais dès que je rempli le formulaire une seconde fois la transpositon dans la feuille satisfaction ce fait horizontalement et verticalement et copie aussi la couleur et la mise en forme de la feuille formulaire.

Je vous joins la macro que j'utilise, si quelqu'un à une solution pour que seule les données soient copiées (sans la mise en forme) et uniquement à l'horizontal.

Merci d'avance pour votre aide
Pascal

Sub transpose_dans_tableau_satisfaction()
'atteindre le formulaire et memoriser les données'
Application.ScreenUpdating = False
Sheets("Satisfaction").Select
Range("B7:B14").Select
Selection.Copy
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Bdd Satistaction").Select
ValeurA2 = Range("A2").Value
If ValeurA2 = "" Then
Range("A2").Select
Else
Range("A1").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
ActiveSheet.Range("A" & ligne_active_base + 1).Select
ActiveSheet.Paste
End If
'Memorise le n° de la ligne où coller les données'
ligne_active_base = ActiveCell.Row
'Collage avec transposition'
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False_, Transpose:=True
'Rendre vierge le formulaire'
Sheets("Satisfaction").Select
Range("B7:B14").Select
Selection.ClearContents
Range("B1").Select
'Retour a l'accueil'
Sheets("Accueil").Select
Range("A1").Select
End Sub

 

[stefan373]

Bonjour ghitzi et le forum.
Peut-etre comme ceci 😉

Selection.PasteSpecial Paste:=xlPasteValues

au lieu de

Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False_, Transpose:=True

A+

 

[GHITZI]

Re : Re: Macro récupération de données

Bonjour stefan373,

Je viens d'essayer de remplacer cette partie du code, mais le problème est toujours le même....

Pascal

 

[stefan373]

Re bonsoir,
Après plusieurs tantatives, voila pour copier que le contenu.

A+


Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False_, Transpose:=True

 

[GHITZI]

Re : Re: Macro récupération de données

Bonjour,

Je viens d'essayer la manip conseillé par stefan373, mais rien à faire, avec moi celà ne fonctionne pas et le problème de copie des données est toujours le même (je joins une impression d'écran pour expliquer mes problèmes)

Normalement cette macro devrait copier les données d'un tableau (données verticales) et les transférer dans cett page à l'horizontal, et ainsi de suite, celà fonctionne très bien la 1ere fois et ensuite c'est la ........

Si quelqu'un à une idée pour me venir en aide, à la rigeur le problème de copie sans la mise en forme est secondaire...

¨Pascal

 

[stefan373]

Bonsoir ghitzi et le forum.

A mon avis, c'est cette partie de votre code qui copie verticalement. 😕

Sheets("Feuil2").Select
ValeurA2 = Range("A2").Value
Worksheets("Feuil2").Range("A2").PasteSpecial Paste:=xlPasteValues

A +

 

[GHITZI]

Re : Re: Macro récupération de données

Bonjour,

Désolé pour le retard de réponse, j'étais en déplacement.
Je ne comprend pas trop la réponse, c'est un morceau du code à modifier ?

Pascal