code VBC pour exel

[time]

Bonjour je vous écris pour avoir de l'aide car j'ai réalisé un code sur VBC (ci-dessous) il marche bien mais je voudrais que pour le collage dans les cellules le formats des cellules ne soient pas changés avec!!

Merci d'avance pour votre aide



Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("Saisie adhérents").Select
Range("B13:B19").Select
Selection.Copy
'Test pour déterminer la ligne où coller les infos dans le tableau
Sheets("Données adhérents").Select
valeurA2 = Range("A2").Value
If valeurA2 = "" Then
Range("A2").Select
Else
Range("A1").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
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("Saisie adhérents").Select
Range("B13:B19").Select
Selection.ClearContents
Range("B1").Select
'Retourner dans le tableau
Sheets("Données adhérents").Select
Range("A1").Select
End Sub

 

[Compte Supprimé 979]

Re : code VBC pour exel

Salut Time et bienvenue sur ce forum 😉

j'ai réalisé un code sur VBC

C'est quoi ça le : VBC 😕

Moi je connais le VBA (Visual Basic for Application) 😀

Sinon dans ton code c'est la valeur du "Paste" qui te pose problème
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, Skipblanks:=False, Transpose:=True

Il faut mettre : Paste:=xlPasteValues

Voili, voilà

A+

 

[time]

Re : code VBC pour exel

Merci à toi Bruno pour ta réponse sa marche maintenant 🙂 heureusement qu'il il y a des gens comme toi pour nous aider

Sinon à ce code j'aurai voulu que quand je clique sur ce macro sa enregistre les fichier si tu me dire commen faire merci d'avance