Formulaire avec vba sous excel
fafa
-
lermite222 Messages postés 9042 Statut Contributeur -
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
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:
- Formulaire avec vba sous excel
- Whatsapp formulaire opposition - Guide
- Liste déroulante excel - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
2 réponses
Bonjour,
Résolution de l'erreur (Manque _ en fin de 1ère ligne en gras..
Et simplification de la recherche dernière ligne
A+
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+
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
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.