Formulaire avec vba sous excel

fafa -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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
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
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191 > fafa
 
Pas compris la question.. essaye d'expliquer un peu mieux.
0
fafa > lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention  
 
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
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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