Bases de données
Christ69fr
-
christ69fr -
christ69fr -
Bonjour,
Je voudrais créer une bases de données avec un formulaire et des listes déroulantes.
Je vous joint mon fichier, j'espère que vous comprendrez ce que je souhaite.
http://www.cijoint.fr/cjlink.php?file=cj200907/cij2YSgRUK.xls
Merci de m'aider.
Christ69fr
Je voudrais créer une bases de données avec un formulaire et des listes déroulantes.
Je vous joint mon fichier, j'espère que vous comprendrez ce que je souhaite.
http://www.cijoint.fr/cjlink.php?file=cj200907/cij2YSgRUK.xls
Merci de m'aider.
Christ69fr
A voir également:
- Bases de données
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
- Base de registre - Guide
- Sauvegarde des données - Guide
2 réponses
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
Christ69fr
non pas d'acces, oblige de me débrouiller avec excel
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
