Formulaire avec vba sous excel

fafa -  
lermite222 Messages postés 9042 Statut Contributeur -
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

2 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    0
    1. fafa
       
      Merci

      Par contre, ça ne marche que pour la première ligne du tableau, vous avez une idée de comment r&ésoudre le problème ?

      Merci en tout cas
      0
      1. lermite222 Messages postés 9042 Statut Contributeur 1 199 > fafa
         
        Pas compris la question.. essaye d'expliquer un peu mieux.
        0
      2. fafa > lermite222 Messages postés 9042 Statut Contributeur
         
        Désolée, je suis allée un peu vite.

        Le code permet de copier les informations saisies dans le formulaire, dans les lignes du tableur Excel.
        Çà marche bien pour remplir la première ligne. Mais, une fois que je veux saisir d'autres informations (une autre fiche), ça ne fonctionne plus. Et, si j'efface la première ligne précédemment remplit, ça marche de nouveau.
        J'espère être plus claire.
        0
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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. !
    0