formulaire avec vba sous excel Fermé

Question

Bonjour,

J'ai saisi ce code :
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
    Sheets("Formulaire-environnement").Select
    Range("B1 : B12").Select
    Selection.Copy
'Test pour déterminer la ligne où coller les informations dans le tableau
    Sheets("Base-environnement").Select
    valeurA2 = Range("A2").Value
    If valeurA2 = "" Then
    Range("A2").Select
    Else
    Range("A1").Select
    Selection.End(x1Down).Select
    ligne_active_base = ActiveCell.Row
    Range("A" & ligne_active_base + 1).Select
    End If
'Mémorise le numéro 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("Formulaire-environnement").Select
    Range("B1:B12").Select
    Selection.ClearContents
    Range("B1").Select
'Retourner dans le tableau
    Sheetes("Base-environnement").Select
    Range("A1").Select
End Sub

Mais les deux lignes en gras ne passent pas.
Quelles sont les erreurs ? 

Merci

lermite222 · Answer

Bonjour,
Résolution de l'erreur (Manque _ en fin de 1ère ligne en gras..
Et simplification de la recherche dernière ligne
'Test pour déterminer la ligne où coller les informations dans le tableau
ligne_active_base = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
'Collage avec transposition
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True
A+

lermite222 · Answer

Je ne vois toujours pas où est le poblème, la ligne..
ligne_active_base = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
Sélectionne la première cellule vide de la colonne A, évidemment je n'ai pas ton classeur, il doit y avoir autre chose.
Mais d'ici c'est difficile à déterminer. !

Formulaire avec vba sous excel

2 réponses