A voir également:
- Bases de données
- Effacer les données de navigation - Guide
- Supprimer une base de données phpmyadmin ✓ - Forum Logiciels
- Reinstaller windows sans perte de données - Guide
- Tnt base de données vide - Forum TNT / Satellite / Réception
- Formules excel de base - Guide
2 réponses
man1999
Messages postés
89
Date d'inscription
jeudi 9 juillet 2009
Statut
Membre
Dernière intervention
6 novembre 2009
19
29 juil. 2009 à 15:22
29 juil. 2009 à 15:22
As tu access ?
Excel est bien mais a ses limites
Access je pense ira bien
Excel est bien mais a ses limites
Access je pense ira bien
j'ai trouvé comment faire ma bases de données, mais j'ai un souci avec le code VBA.
Si qq1 peut bien m'aider.
Sub transpose_dans_tableau()
Sheets("Formulaire").Select
Range("B2:B28").Select
Selections.Copy
Sheets("Bases de données").Select
valeurA3 = Range("A3").Value
If valeurA3 = "" Then
Range("A3").Select
Else
Range("A2").Select
Selection.End(x1Down).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base).Select
Selection.PasteSpecialPaste = x1PasteallExceptBorders
Operation:=x1None , skipBlanks:=False, Transpose:=True (il me dit que l'erreur vient d'ici)
Sheets("Formulaire").Select
Range("B2:B28").Select
Selection.ClearContents
Range("B2").Select
Sheets("Bases de données").Select
Range("A2").Select
End Sub
Merci de votre aide
Si qq1 peut bien m'aider.
Sub transpose_dans_tableau()
Sheets("Formulaire").Select
Range("B2:B28").Select
Selections.Copy
Sheets("Bases de données").Select
valeurA3 = Range("A3").Value
If valeurA3 = "" Then
Range("A3").Select
Else
Range("A2").Select
Selection.End(x1Down).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base).Select
Selection.PasteSpecialPaste = x1PasteallExceptBorders
Operation:=x1None , skipBlanks:=False, Transpose:=True (il me dit que l'erreur vient d'ici)
Sheets("Formulaire").Select
Range("B2:B28").Select
Selection.ClearContents
Range("B2").Select
Sheets("Bases de données").Select
Range("A2").Select
End Sub
Merci de votre aide
29 juil. 2009 à 15:29