Réaliser une base données sous excel

Redwarf · 18 Octobre 2007

Bonjour à tous,

A chaque fois que je viens sur ce forum c'est à la suite d'un nouveau poste dans une boîte

Et ce nouveau poste ne me propose pas Acess qui m'aurait été très utile

Je souhaite donc créer un formulaire sous excel(le 2007, je me perds dans la refonte de l'affichagge par rapport au 2003) qui me permettra de rentrer des données diverses (sexe, ages, communes et autres).

Ces données seront donc stockées afin de réaliser des stats !

C'est donc cette partie de base de données que je n'arrive pas à réaliser.

Encore une fois de plus je me remets à vos connaissances et compétences.

En vous remerciant,

Fabien.

Redwarf · 12 Mars 2008

Re : Réaliser une base données sous excel

Mais c'est génial !

Merci rudymagny, je suis rudement satisfait de ce forum à chaque fois on me trouve une réponse rapide, encore merci !

je vais pouvoir développer le reste de mon formulaire de cette manière !

En fait c'est très simple, le fait de cocher ces cellules me permettra de faire des stats sur ceux qui sont :

- ANPE
- ANPE/RMI
-ANPE/RMI/Salarié
- ...

Je poursuis la conception du formulaire, il faut encore que j'automatise les stats et à ce sujet, quelle formule pourra m'indiquer la plage de donnée qui concerne le mois de janvier par exemple.

Encore merci

Redwarf · 13 Mars 2008

Re : Réaliser une base données sous excel

Oups, pas aussi facile que prévu :

Code:

' Inscrit la SITUATION
  For I = 1 To 12
    If Me("checkbox" & I) = True Then
        If ShtD.Range("F" & DerLig + 1).Value = "" Then
            ShtD.Range("F" & DerLig + 1).Value = Me("checkbox" & I).Caption
        Else
            ShtD.Range("F" & DerLig + 1).Value = ShtD.Range("F" & DerLig + 1).Value & Chr(10) & Me("checkbox" & I).Caption
        End If

      '
  ' Inscrit l'orientation
  For I = 10 To 13
    If Me("checkbox" & I) = True Then
        If ShtD.Range("H" & DerLig + 1).Value = "" Then
            ShtD.Range("H" & DerLig + 1).Value = Me("checkbox" & I).Caption
        Else
            ShtD.Range("H" & DerLig + 1).Value = ShtD.Range("H" & DerLig + 1).Value & Chr(10) & Me("checkbox" & I).Caption
        End If

Ca me met VARIABLE DE CONTROLE FOR DEJA UTILISE.

Je pensais qu'un Next I ferait l'affaire mais non. Un avis ?

Compte Supprimé 979 · 13 Mars 2008

Re : Réaliser une base données sous excel

Salut Redwarf,

Ben oui, il faut peut être penser à finir tes boucles FOR par des NEXT !

Sinon tu auras effectivement un problème

Redwarf · 13 Mars 2008

Re : Réaliser une base données sous excel

Il me met erreur de compilation next sans for...

Pourtant on a bien un For.

rudymagny · 13 Mars 2008

Re : Réaliser une base données sous excel

Bonjour Redwarf,

Code:

' Inscrit la SITUATION
  For I = 1 To 12
    If Me("checkbox" & I) = True Then
        If ShtD.Range("F" & DerLig + 1).Value = "" Then
            ShtD.Range("F" & DerLig + 1).Value = Me("checkbox" & I).Caption
        Else
            ShtD.Range("F" & DerLig + 1).Value = ShtD.Range("F" & DerLig + 1).Value & Chr(10) & Me("checkbox" & I).Caption
        End If
  Next I
      '
  ' Inscrit l'orientation
  For I = 10 To 13
    If Me("checkbox" & I) = True Then
        If ShtD.Range("H" & DerLig + 1).Value = "" Then
            ShtD.Range("H" & DerLig + 1).Value = Me("checkbox" & I).Caption
        Else
            ShtD.Range("H" & DerLig + 1).Value = ShtD.Range("H" & DerLig + 1).Value & Chr(10) & Me("checkbox" & I).Caption
        End If
    Next I

normalement ça marche .

Redwarf · 13 Mars 2008

Re : Réaliser une base données sous excel

Toujours erreur de compilation, Next sans For.

rudymagny · 13 Mars 2008

Re : Réaliser une base données sous excel

peux tu me donner ton fichier ?

C'est plus simple.

Redwarf · 13 Mars 2008

Re : Réaliser une base données sous excel

http://redwarf401.free.fr/Formulaire.xls

Merci

rudymagny · 13 Mars 2008

Re : Réaliser une base données sous excel

Pourquoi as tu utilisé une autre variable "j"?

Redwarf · 13 Mars 2008

Re : Réaliser une base données sous excel

J c'est pour compléter une autre cellule, aurais je mal interpréter le code ?

rudymagny · 13 Mars 2008

Re : Réaliser une base données sous excel

ça devrait être bon là:
http://cjoint.com/?dnrIy2TnDc

Tu n'avais pas fermé ton premier if avec end if.
Tu avais une autre erreur sur le " j " pas d'espace avant et après le j.

un petit conseil, pour &éviter ces problèmes de boucle, range bien ton code avec des tabulations comme je l'ai fais dans ce fichier.

Redwarf · 13 Mars 2008

Re : Réaliser une base données sous excel

Encore merci, je regarde ca ce soir !

Redwarf · 20 Mars 2008

Re : Réaliser une base données sous excel

Tout marche comme sur des roulettes, juste que il met du temps à ajouter les données !

Quand je clic sur ajouter ca prend bien 15 sec, bizarre, non ?

rudymagny · 20 Mars 2008

Re : Réaliser une base données sous excel

Bonsoir le forum, RedWarf,
Peux tu mettre le fichier pour lequel l'insertion de données prend du temps?
Pour que je le test chez moi.

Redwarf · 21 Mars 2008

Re : Réaliser une base données sous excel

Voilà comme convenu.

Fichier

Réaliser une base données sous excel

Redwarf

XLDnaute Nouveau

Redwarf

XLDnaute Nouveau

Redwarf

XLDnaute Nouveau

Compte Supprimé 979

Guest

Redwarf

XLDnaute Nouveau

rudymagny

XLDnaute Occasionnel

Redwarf

XLDnaute Nouveau

rudymagny

XLDnaute Occasionnel

Redwarf

XLDnaute Nouveau

rudymagny

XLDnaute Occasionnel

Redwarf

XLDnaute Nouveau

rudymagny

XLDnaute Occasionnel

Redwarf

XLDnaute Nouveau

Redwarf

XLDnaute Nouveau

rudymagny

XLDnaute Occasionnel

Redwarf

XLDnaute Nouveau

Discussions similaires